decode url

Ответ от Миоко Таканава[гуру]
function URL_To_Unicode(s:string):WideString; var Buffer:string; n:integer; begin Buffer:=''; n:=1; while n <= length(s) do begin if s[n] <> '%' then Buffer:=Buffer+s[n] else begin Buffer:=Buffer+chr(StrToInt('$'+s[n+1]+s[n+2])); inc(n,2) end; inc(n) end; Result:=Utf8Decode(Buffer); end; function Unicode_To_URL(s:WideString):string; var Buffer:string; n:integer; begin Buffer:=Utf8Encode(s); Result:=''; for n:=1 to length(Buffer) do if Buffer[n] in ['0'..'9','A'..'Z','a'..'z',':','/','.','?','=','&','#'] then {при необходимости добавьте в множество символы, которые также разрешены в адресе} Result:=Result+Buffer[n] else Result:=Result+'%'+IntToHex(ord(Buffer[n]),2); end; Если использование библиотечных функций StrToInt, IntToHex, Utf8Encode и Utf8Decode невозможно (или нет желания из-за большого размера модуля SysUtils), то упрощённая реализация этих функций (не совсем корректно происходит самосинхронизация UTF-8 при потере байтов) : function StrToInt(s:string):integer; var e:integer; begin val(s,Result,e); end; function IntToHex(d,n:integer):string; function HexDigit(x:byte):char; begin Result:=chr(x+$30+ord(x > 9)*7); end; var i:integer; begin Result:=''; for i:=1 to n do begin Result:=HexDigit(d and $F)+Result; d:=d shr 4; end; end; function Utf8Decode(s:string):WideString; var c,d,n,k,m,r,q:word; begin Result:=''; n:=1; d:=0; while n <= length(s) do begin c:=ord(s[n]); if c < $80 then begin Result:=Result+WideChar(c); d:=0 end else begin if d=0 then begin q:=c; k:=0; m:=$7F; r:=7; while q and $80 <> 0 do begin inc(k); dec(r); q:=q shl 1; m:=m shr 1 end end; if d <> 0 then d:=d shl r; d:=d or c and m; dec(k); r:=6; m:=$3F; if (k=0) or (n=length(s)) then begin Result:=Result+WideChar(d); d:=0 end; end; inc(n) end; end; function Utf8Encode(s:WideString):string; var c,n:word; begin Result:=''; for n:=1 to length(s) do begin c:=ord(s[n]); case c and $FF80 of 0: Result:=Result+Char(c); $80..$7FF: Result:=Result+Char($C0 or (c shr 6) and $1F)+Char($80 or c and $3F); else Result:=Result+Char($E0 or (c shr 12) and $F)+Char($80 or (c shr 6) and $3F) +Char($80 or c and $3F); end; end; end;