Datei Download mit SaveDialog

[LDericher]

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...