Uses HTTPAPP;
procedure TForm4.Button1Click(Sender: TObject);
var
s: RawByteString;
s2: ansistring;
begin
s := UTF8Encode('°¡');
s2 := HTTPEncode(s);
showmessage(s2); // %EA%B0%80
s := HTTPDecode(s2);
showmessage(s); // °¡
end; 2017-04-27 ¿ÀÀü 10:17:29
|