ExtractFilePath mit einer URL...

[---Bernhard---]

Hallo

Ich suche derzeit eine Funktion, um nur den Pfad zu einem Ordner einer URL zu ermitteln.
Also aus "http://server.de/ordner_x/image.jpg" soll "http://server.de/ordner_x/" werden. (Halt eben das gleiche wie ExtractFilePath nur eben mit einer URL)

Gibt es da schon irgendeine Funktion, die von Delphi mitgeliefert wird oder muss ich mir da selber eine zamstellen?

(Die Funktion ExtractFilePath funktioniert leider nicht, da kommt an der Stelle von "http://" zu Problemen...)

[Luckie]

In der Zeit, in der du hier auf eine Antwort wartest, hast du dir das schnell selber geschrieben.

[---Bernhard---]

Zitat von Luckie:

In der Zeit, in der du hier auf eine Antwort wartest, hast du dir das schnell selber geschrieben.

Ja, da hast du sicherlich Recht.
Hätte mich nur interessiert, ob da schon etwas dabei ist und ich es in der OH einfach nicht finde

[Christian Seehase]

Moin Bernhard,

Zitat von ---Bernhard---:

Gibt es da schon irgendeine Funktion, die von Delphi mitgeliefert wird oder muss ich mir da selber eine zamstellen?

Jain.
Es gibt eine API-Funktion: InternetCrackUrl

Dafür muss die Unit Wininet eingebunden werden.

[---Bernhard---]

Die Verwendung einer API-Funktion war mir jetzt doch zu aufwendig, habe also ne kleine Funktion geschrieben:

Delphi-Quellcode:

function ExtractUrlPath(url:String): String;
var
  i: Integer;
begin
  result:='';

  for i := length(url) downto 1 do
    if (url[i] = '/') or (url[i] = '\') then
    begin
      result:= copy(url, 0, i);
      break;
    end;
end;

[dahead]

Hier im Forum gibts auch was zu diesem Thema.

[---Bernhard---]

Zitat von dahead:

Hier im Forum gibts auch was zu diesem Thema.

Hab ich mir auch angeschaut, macht aber nicht das was ich brauche.
UrlPath gibt nämlich den ganzen Pfad ab Host zurück:
"http://server.de/ordner_x/image.jpg" --> "ordner_x/image.jpg"

Zudem muss man bei dem Code auch die Unit "WinInet" einbinden, was ich vermeiden möchte

[Lannes]

Hallo, oder so:

Delphi-Quellcode:

function ExtractUrlPath(URL: String): String;
begin
  Result := URL;
  if Pos('/',Result) > 0 then
    Delete(Result,LastDelimiter('/',Result)+1,MAXINT);
end;