在 IdURI 单元提供了 URLEncode 和 URLDecode 函数,以下是示例代码:
uses IdURI;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := TIdURI.URLDecode(Edit2.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text := TIdURI.URLEncode(Edit1.Text);
end;
运行截图: