Sowas wie UrlEncode

[Florian H]

Hallo,

gibt es für Delphi irgendeine Funktion wie die Funktion "UrlEncode" in PHP?

Also etwas, was z.B. aus "hallo du" ein "hallo%20du" macht
--> URL-tauglicher string

Suche hier und im SDC hat erstaunlicherweise nix gebracht...


grüße
dk

[xineohp]

moin,

also ne fertige Funktion kenn ich nicht ... aber ich würde mit AnsiReplaceStr() oder so etwas arbeiten.

phoenix

[himitsu]

oder mal in der DP suchen - vor kurzem wurde schonmal danach gefragt

[Florian H]

und nach was suchen?

wie gesagt, ich hab nix gefunden...

[himitsu]

keine Ahnug, ich dachte da kam das Wort UrlEncode auch din vor - dem schein aber nicht so zu sein und nach %20 kann man leider nicht suchen, da das "%" entfernt wird

[add]
kannst ja auch mal Sakura 'ne PN schicken, der hatte (glaub ich) in dem Beitrag viel gepostet

[Christian Seehase]

Moin Florian,

schau Dir mal im PSDK oder auf MSDN die Funktion URLCanonicalize an.
Damit müsste das gehen.

[Florian H]

Hm, habe jetzt ne ganze weile lang sakuras beiträge durchgelesen und das mit dem urlcanoniacalize versucht, hat beides nicht zum erfolg geführt...

[himitsu]

na dann halt doch so -.-
URL_tauglicher_String := StringReplace(String, ' ', '%20', [rfReplaceAll]);

[Florian H]

und die ganzen anderen sachen?
gibt ja noch andere sonderzeichen...
Drum habe ich gehofft, es gäbe eine Funktion dafür, damit ich nicht alle einzeln eintippen muss

[himitsu]

Ich weiß jetzt nicht genau, welche Zeichen probleme machen, aber die dürften alle gehn - kannst ja noch ein paar in die Liste aufnehmen
(in S gibst du den Strin hin und über S2 bekommst du den URL-tauglichen zurück)

Delphi-Quellcode:

S2 := '';
For i := 1 to Length(S) do
  If S[i] in ['0'..'9', 'A'..'Z', '[', ']', '_', 'a'..'z'] Then S2 := S2 + S[i]
  Else S2 := S2 + '%' + IntToHex(Ord(S[i]), 2);