Fazendo Downloads com Delphi

['MarcoReis 0]

O que vamos precisar?

 

* 2 Edits

* 1 Button

* 2 Labels

 

 

 

:arrow: Primeiramente Adicione 2 Edits encontrados na Paleta Standard. Adicione mais 2 Labels, também encontrados na paleta Standard e um Button.

Arrume de forma que fique mais ou menos assim:

 

 

Depois disso, declare URLMon nas uses, ficando assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Agora adicione a função URLDownloadToFile no button, ficando assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Veja:

 

 

Explicando o código...

 

Função:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Vamos enteder...

Para Caller: IUnknow usamos nil que é a mesma coisa que nulo ou 0, para URL: PAnsiChar ultilizamos o que estiver contido no Edit1, mas com? Se Edit1.Text é String e a função só aceita PAnsiChar?

Simples... Ultilizando o código PChar(); que transforma uma string em PAnsiChar. O mesmo se da para o FileName: PAnsiChar, só que esta variavel guardara o endereço de onde será salvo a de cima, de onde baixará. Reserved: DWORD terá o valor de 0 e StatusCB: IBindStatusCallBack terá o valor de nil, ou seja, nulo, podeira ser outra coisa, mas isto seria mais avançado.

 

log_22 & MarcoReis

[Rafael'z 0]

Função incompleta..

 

para saber se fez o download ou nao coloque esta funcao

 

URLDownloadToFile(nil, PChar(Edit1.text), PChar(Edit2.Text),0,nil);

if not URLDownloadToFile(nil, PChar(Edit1.text), PChar(Edit2.Text),0,nil)>0 then begin

showmessage ('impossivel fazer o download');

end;

['MarcoReis 0]

Função incompleta..

 

para saber se fez o download ou nao coloque esta funcao

 

Nen tão incompleta, isso podé só complementar o mesmo, obrigado por postar !

[tekitos123 3]

Função incompleta..

 

para saber se fez o download ou nao coloque esta funcao

 

o certo seria

if not URLDownloadToFile(nil, PChar(Edit1.text), PChar(Edit2.Text),0,nil)>0 then begin

showmessage ('impossivel fazer o download');

end;