Hallo
mit dem Code kann ich eine Datei schnell downloaden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream:TMemoryStream;
http:TidHttp;
name,
url:
string;
begin
url:='
http://xxx.com/test.exe';
//download url
name:='
c:\test.exe';
//
try
try
Stream := TMemoryStream.Create;
http:=TIdHTTP.Create(self);
HTTP.Request.Referer := '
http://www.xxx.com';
HTTP.Get(
Url,Stream);
if FileExists(
Name)
then DeleteFile(
Name);
Stream.SaveToFile(
Name);
except
on e:
exception do
begin
//...
end;
end;
finally
Stream.Free;
http.Free;
end;
end;
Ich muss in Ereignis :
OnWork
OnWorkbegin
OnWorkEnd
was eingeben, damit ich die Prozess in Statusbar anschauen
Hier habe ich so ähnlich aber der Code ist ganz ganz langsam (mehr als 10 Mals langsamer als normal):
http://www.delphipraxis.net/internal...ct.php?t=81071