%20 in Leerzeichen Umwandeln

[vlees91]

vll so (nicht probiert)

Delphi-Quellcode:

function URLEncode(URL: string): string;
var
  i:integer;
  URL2: string;
begin
  URL2 := '';
  for i := 0 to length(URL) - 1 do
  begin
    if URL[i] in ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9'] {kontrolle erweitert...} then URL2 := URL2 + '%' + IntToHex(ord(URL[i]), 2) //in der Eile die umwandlung vergessen
    else URL2 := URL2 + URL[i];
  end;
  //result vergessen
  result := URL2;
end;