使用 indy 中的函数:
uses IdURI;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(TIdURI.PathEncode('这是一个测试'));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(TIdURI.URLDecode('%D5%E2%CA%C7%D2%BB%B8%F6%B2%E2%CA%D4'));
end;