String(ansi) to Url-Encoded String

[Sprint]

Zitat von Luckie:

Ist allerdings in der shlwapi.dll drinne und da weiß ich nicht, ob es dafür schon eine Übersetzung für Delphi gibt.

http://www.softgames.de/forum/viewtopic.php?t=106661

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

[rossinie00]

*schups*

[Luckie]

Zitat von rossinie00:

*schups*

Ja und? Hie rim Thread wurde funktionierender Quellcode gepostet.

[rossinie00]

mh irgendwie nicht. sorry, werds nochmal testen und dann ggf die Frage als beantwortet zeichen

[MathiasSimmack]

Das geht. Ist nämlich von mir der Codeauszug.