relative URL in absolute URL umwandeln

[kcx]

Hallo,

Ich suche eine Funktion oder eine Komponente, die eine relative URL in eine absolute URL umwandelt.

Beispiel:

Ich habe eine Base URL:
http://www.test.de/
oder
http://www.test.de/abc/123

und die relative URL:
/pfad/abc/docs/test.txt

Daraus sollte dann:
http://www.test.de/pfad/abc/docs/test.txt

werden.

Jetzt könnte man die URLs natürlich einfach zusammenfügen, aber es gibt ja auch sowas:
../pfad/test
oder
../../../abc/test/
oder
./pfad

etc...

Danke für jede Hilfe!

[deep_thought]

eine derartige funktion kenne ich nicht ...
aber könnte man nicht einfach für jeden "../" am Anfang einfach eine ebene höher gehen (also mit copy und pos alles inklusive und nach dem letzten "/" wegschneiden) und dann die URLs einfach zusammenfügen?
"./" kannste ignorieren (also einfach nur abschneiden)

mfg deep_thought

[marabu]

Moin,

die gesuchte Funktion heißt CoInternetCombineUrl() und lebt in der Unit UrlMon:

Delphi-Quellcode:

function CombineUrl(const baseUrl, url: WideString): WideString;
var
  dwLength: Cardinal;
begin
  SetLength(Result, 1024);
  if Succeeded({UrlMon.}CoInternetCombineUrl(PWideChar(baseUrl), PWideChar(url),
    CF_NULL, PWideChar(Result), Length(Result), dwLength, 0)
  ) then SetLEngth(Result, dwLength)
    else Result := '';
end;

Freundliche Grüße

[DelphiKlaus]

Hey,

setze die Angaben einfach mal hintereinander. Wenn Du z.B. sowas hast

http://www.test.de/abc/123 und willst

daran

../../pfad/test anhängen, sollte das eigentlich funktionieren:

http://www.test.de/abc/123/../../pfad/test Du musst nur daruf achten, dass der erste Teil auch mit einem Slash abgeschlossen ist (IncludeTrailungBackSlash). Bei lokalen Pfaden funktioniert das. Bei URLs habe ich es nicht probiert.

MfG

Klaus

[Tormentor32]

Wenn ich mich nicht täusche, dann kommt man mit

Code:

~/

ins Stammverzeichnis. Habe ich jedenfalls gehört!

[Khabarakh]

Zitat von Tormentor32:

Wenn ich mich nicht täusche, dann kommt man mit

Code:

~/

ins Stammverzeichnis. Habe ich jedenfalls gehört!

Das kenne ich nur von ASP.Net. http://delphipraxis.net/foo/~/index.html funktioniert jedenfalls nicht .

[kcx]

Vielen Dank an alle, besonders an marabu.

[SirThornberry]

Zitat von Tormentor32:

Wenn ich mich nicht täusche, dann kommt man mit

Code:

~/

ins Stammverzeichnis. Habe ich jedenfalls gehört!

Die Tilde steht für das Homeverzeichnis unter Linux und wird auch nur dann entsprechend ausgewertet wenn der Webserver entsprechend konfiguriert ist.