Link auslesen nach dem Upload ?

[thomas2009]

Hallo
nach dem Upload einer Datei, möchte ich den Link (http-Link) anzeigen lassen
Ich lade die Datei mit idhftp hoch :

Delphi-Quellcode:

  IdFTP1.Host := 'ftp.MeineSeite.de';
  IdFTP1.Username := 'xxxxxx';
  IdFTP1.Password := 'xxxxxx';
  IdFTP1.Connect;
  IdFTP1.put('C:\test.exe','test.exe',true);
  Edit1.Text:= // hier möchte ich den Link anzeigen lassen
  IdFTP1.Disconnect;

[jaenicke]

Dafür musst du den Http-Pfad mit dem Pfad des Ftp-Servers kombinieren, in den du die Datei hochgeladen hast.

Der Ftp-Server selbst hat keine Ahnung wie der Pfad des Http-Servers aussieht. Es gibt also keine entsprechende Abfrage, falls du das meintest.

[thomas2009]

ja, das meine ich doch. Aber wie kann ich den Http-Pfad mit dem Pfad des Ftp-Servers kombinieren ?

[BullsEye]

Könntest du doch theoretisch so zusammensetzten

Edit1.Text := IdFTP1.Host + Pfad + Name.exe Musste dann nur anpassen.

Sonst werden denke ich mal mehr Infos benötigt um dir zu helfen.

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

[BullsEye]

So in der Art meinte ich das. Kommt nur drauf an, wie er das mit dem Upload macht, das man sich von dort den Pfad gleich nimmt.