Datei vom Server laden

[Tommy1988]

Folgender Code läd eine Datei herunter:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
http := Edit1.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
  Label1.Caption := 'Download gestartet';
  try
    Datei := PChar(http);
    Ziel := 'C:\DieDatei.dat';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    Label1.Caption := 'Download beendet';
  except
    showmessage('Download abgebrochen');
  end;
end;

(Achte dabei auf die Edit-Geschichte)

Ist es auch möglich eine PHP-Datei herunterzuladen?
Bisher erreiche ich nur den HTML-Text zu laden.

[Matze]

An den PHP-Code kommst du nicht über HTTP sondern beispielsweise über FTP, da der Server ansonsten (glücklicherweise) den PHP-Code verarbeitet und nicht ausgibt. Sonst könnte ja jeder den PHP-Code auslesen.