delph 自带URL编码函数 TNetEncoding

UTF-8编码

sKey := TNetEncoding.URL.Encode('中文', [], [], TEncoding.UTF8);

%E4%B8%AD%E6%96%87

GBK编码

sKey := TNetEncoding.URL.Encode('中文', [], [], TEncoding.ANSI);

%D6%D0%CE%C4

------------------------------
user  Httpapp; 
HttpEncode(AnsiToUtf8('中文'));

-----------------------------
uses
  IdURI;
begin

  //str 必须是网址 http:// or https://
  S := TIdURI.URLEncode(str);
  S := TIdURI.URLDecode(str);
end;