String(ansi) to Url-Encoded String

[Luckie]

Warum in die Ferne schweifen, wenn die Suche doch so nahe liegt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  szUrl : string; 
  dwLen : dword; 
begin 
  // Länge für den Puffer festlegen 
  SetLength(szUrl,MAX_PATH); 
  ZeroMemory(@szUrl[1],length(szUrl)); 

  // Längenwert für die Funktion merken 
  dwLen := length(szUrl); 

  // Funktion aufrufen, ... 
  if(InternetCanonicalizeUrl( 
    'http://www.EinURL.de/Ein Dokument mit Leerzeichen.html', 
    @szUrl[1], 
    dwLen, 
    0)) then 
  begin 
    SetLength(szUrl,strlen(pchar(szUrl))); 
    ShowMessage(Format('%s (%d)',[szUrl,dwLen])); 
  end 
  // ... oder im Fehlerfall anzeigen, dass der Puffer 
  // größer sein muss 
  else 
    ShowMessage(Format('Sie brauchen einen Puffer mit %d Zeichen.',[dwLen])); 
end;