ExtractFilePath mit einer URL...

[---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;