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 -.-

Delphi-Quellcode:

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

[MathiasSimmack]

Zitat:

Zitat von 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...

Was genau hat nicht funktioniert?

[Florian H]

ich hab keinen plan wie ich die funktion in delphi bringen soll :)

[MathiasSimmack]

In welche Unit hat Borland denn "UrlCanonicalize" gepackt? Ich habe auf die Schnelle nur "InternetCanonicalizeUrl" (WinInet-Unit) gefunden und folgende Idee zusammengeklickt:

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;

Wenn es nicht funktioniert (weil bspw. der Puffer zu klein ist), dann ist das Ergebnis der Funktion false, und "dwLen" enthält die benötigte Puffergröße inkl. des Nullzeichens am Ende.

Man sollte vor dem echten Aufruf ermitteln, wie viele Zeichen man benötigt. Dazu darf der Puffer allerdings wohl nicht nil sein. Zumindest ging das bei mir nicht. Also sollte er auf 1 Zeichen gesetzt werden:

Delphi-Quellcode:

SetLength(szUrl,1);

Dann erhält man in "dwLen" die Puffergröße (wie schon gesagt) und kann dann den String entsprechend dimensionieren.

Alles Wissenswerte im MSDN: [msdn]"InternetCanonicalizeUrl"[/msdn].

[Christian Seehase]

Moin Mathias,

UrlCanonicalize ist in der shlwapi.dll enthalten, und muss, aller Voraussicht nach, selber importiert werden.

[Florian H]

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!