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.
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
Curtir tópico
+ 0
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!´);
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!
Abraços!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)