Websiten speichern..

[alanblack]

Hallo,

ich wurde gerne websiten (HTML, PHP usw) speichern. Ich weiß man kann sie im IE Datei Speichern unter speichern, aber einige sind nur zur "funktion" da und werden sofort weitergeleitet. Deshalb wurde ich gerne in einem Edit die website angeben dann auf klick auf einen Button soll sie gespeichert werden...

Mit freundlichen Grüßen

alanblack

[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;

[Luckie]

Besser:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  s: String;
begin 
  if SaveDialog1.Execute then  // warum den SaveDialog erzeugen? Einfach einen auf der Form plazieren. Genauso mit der IdHTTP-Komponente
  begin 
    s := IdHTTP.Get(<ulr>);  // in s steht jetzt der Quelltext deiner Seite drin
  end; 
end;

Vorraussetzung es befindet sich eine TIdHTTP-Komponente auf der Form. Das ist eine Komponete von den Indys.

Eine andere Möglichkeit: UrlDownloadToFile.