Link auslesen nach dem Upload ?

[jaenicke]

Du brauchst vom Benutzer die Angabe des Verzeichnisses auf dem FTP-Server, auf den das Http-Verzeichnis zeigt sowie wie dieses lautet.

Beispiel:
"http://www.beispiel.de" zeigt auf "/html" und der aktuelle Pfad auf dem FTP-Server ist "/html/downloads/zip/datei.zip".

Delphi-Quellcode:

var
  HttpPath, HttpRootDir, FtpCurDir, HttpCompletePath: String;
begin
  HttpPath := 'http://www.beispiel.de';
  HttpRootDir := '/html';
  FtpCurDir := '/html/downloads/zip/datei.zip';
  if Pos(HttpRootDir, FtpCurDir) = 1 then
  begin
    HttpCompletePath := FtpCurDir;
    Delete(HttpCompletePath, 1, Length(HttpRootDir));
    HttpCompletePath := HttpPath + HttpCompletePath;
    ShowMessage('Http-Adresse: ' + HttpCompletePath);
  end
  else
    ShowMessage('Das Rootverzeichnis, auf das der Http-Pfad zeigt, wurde im Ftp-Pfad nicht gefunden.');