Registriert seit: 30. Mär 2003
Ort: Mühlacker
1.043 Beiträge
Delphi 6 Professional
|
Re: Sowas wie UrlEncode
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
|
|
Zitat
|