URL decodieren

[Thunderchild]

Hallo zusammen,

hier meiner allererste Frage:
Ich habe ein kleines niedliches Prog gebastelt, mit dessen hilfe man Dateien automatisiert umbenennen kann mit verschiedenen Operationen wie "alles klein", "Wortanfang groß" usw.
Es ist mittlerweile fertig, doch möchte ich noch eine Funktion zum Entpacken von URL-Strings einbauen. Es gibt doch bestimmt eine Standardprozedur für so etwas.

Beispiel: %20 -> Leerzeichen

[sakura]

Hi,

Leerzeichen werden in einer URL i.A. mit "+" dargestellt ;-) Egal, hier der Code:

Delphi-Quellcode:

class URLDecode(aSrc: string): string;
var
  I, Max: Integer;
begin
  Result := '';
  // convert plus to space
  for I := 1 to Length(aSrc) do
    if aSrc[I] = '+' then
      aSrc[I] := #32;
  I := 1;
  Max := Length(aSrc);
  while I <= Max do
  begin
    if aSrc[I] <> '%' then
    begin
      Result := Result + ASrc[i]
    end else begin
      try
        Inc(I);
        Result := Result + Chr(StrToInt('$' + Copy(aSrc, I, 2)));
      except
      end;
      Inc(I);
    end;
    Inc(I);
  end;
end;

...:cat:...

[Uncle Cracker]

Man könnte es auch ganz primitive :roll: aber einfach mit StringReplace machen

[Christian Seehase]

Moin Thunderchild,

schau Dir mal im PSDK oder MSDN die Funktion UrlCanonicalize an.
Die sollte das auch machen.