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.');