Thema: Delphi Sowas wie UrlEncode

Einzelnen Beitrag anzeigen

Florian H

Registriert seit: 30. Mär 2003
Ort: Mühlacker
1.043 Beiträge
 
Delphi 6 Professional
 
#15

Re: Sowas wie UrlEncode

  Alt 11. Apr 2004, 10:26
Danke, das hat geholfen!

hier nochmal als Funktion:
Delphi-Quellcode:
uses WinInet;
...
function EncodeUrl(url : string) : string;
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(
    pchar(url),
    @szUrl[1],
    dwLen,
    0)) then
  begin
    SetLength(szUrl,strlen(pchar(szUrl)));
    result := szURL;
   // ShowMessage(Format('%s (%d)',[szUrl,dwLen]));
  end
  // ... oder im Fehlerfall anzeigen, dass der Puffer
  // größer sein muss
end;
DANKE!
Florian Heft
  Mit Zitat antworten Zitat