relative URL in absolute URL umwandeln

[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