GARANTIR DESCONTO

Fórum comando DownloadFile no Delphi 7 #266778

31/01/2005

0

Ola a todos, estou com um probleminha, no delphi 5/6 eu utilizava o comando DownloadFile para baixar algum arquivo da net.

Porem o mesmo comando no Delphi 7 nao esta funcionando e nao estou encontrando nem no help do delphi 7 este comando mudou alguem saberia me informar ?

Agradeco antecipadamente a todos.


Icheuk

Icheuk

Responder

Posts

31/01/2005

Icheuk

Desculpem a pergunta mas este comando é apenas uma funçao, sendo o correto isto que achei, obrigado a todos e espero que de alguma forma ajude alguem.

uses
URLMon;

function DownloadFile(WEB, LOCAL: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(WEB), PChar(LOCAL), 0, nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile(
´http://www.servidor.com.br/figuras/figura.gif´,
´C:\Figura.gif´) then
Image1.Picture.LoadFromFile(´C:\Figura.gif´)
else
ShowMessage(´Erro ao fazer download!´);


Responder

Gostei + 0

31/01/2005

Nildo

Grande Ivan!! Quanto tempo hein? Bem vindo devolta!

Abraços!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar