//引用delphi自带的HTTPApp单元
procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
begin
s := 'abcdefg';
s := HttpEncode(UTF8Encode(s));
showmessage(s);
end;
//引用delphi自带的HTTPApp单元
procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
begin
s := 'abcdefg';
s := HttpEncode(UTF8Encode(s));
showmessage(s);
end;