delph 自带URL编码函数 TNetEncoding

USES NetEncoding;

procedure TForm1.FormCreate(Sender: TObject);

var

STR1:STRING;

begin

STR1:= TNetEncoding.URL.Encode('中国',[],[],TEncoding.ANSI); //编码

TEXT:= TNetEncoding.URL.Decode(STR1,[],TEncoding.ANSI); //解码

end;