Websiten speichern..

[SleepyMaster]

Delphi-Quellcode:

uses IdHTTP;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TSaveDialog.Create(nil) do
  begin
  with TIdHTTP.Create(nil) do
    begin
    if Execute then
    Get(Edit1.Text,TFileStream.Create(FileName,fmCreate));
    Free;
    end;
  Free;
  end;
end;