uses
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,IdHTTP;
function DownLoadFromURL(URL : String;LocalFile: String): Integer;
var
idHTTP: TIdHTTP;
Fs : TFileStream;
begin
Result := -1;
try
idHTTP := TIdHTTP.Create(nil);
try
Fs := TFileStream.Create(LocalFile,fmCreate);
try
idHTTP.Get(URL,Fs);
finally
FS.Free;
end;
finally
idHTTP.Free;
end;
except
end;
end;
//使用部分
procedure TForm1.Button1Click(Sender: TObject);
begin
DownLoadFromURL('http://www.delphibbs.com/delphibbs/dfwlogo.gif','C:/1.Gif');
end;