Delphi-Quellcode:
procedure TForm1.GoClick(Sender: TObject);
var lStream:TFileStream;
begin
if SaveTo.Execute
then
begin
ShowMessage('
Start...');
lStream:=TFileStream.Create(SaveTo.FileName, fmCreate
or fmShareDenyNone);
try
idHTTP1.Get(
URL.Text, lStream);
finally
lStream.Free;
end;
ShowMessage('
Done.');
end;
end;
Hehe - Ich weiß nur, dass meines funzt
Edit: Sieht aus, als würdest du "EasyHelper" benutzen/zumindest kennen...