Delphi操作UTF-8轉碼HTTPEncode

引用單元 ;HttpApp

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: WideString;
  http: AnsiString;
begin
  Str := Memo1.Text;
  http := HTTPEncode(UTF8Encode(Str));
  Memo2.Text := http;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Str: WideString;
  http: AnsiString;
begin
  Str := Memo2.Text;
  http := UTF8Decode(HTTPDecode(Str));
  Memo1.Text := http;
end;

 

使用前要用UTF8Encode轉換成utf-8編碼

HTTPEncode(UTF8Encode(Text));

不然和標准的url_encode()編碼結果不一致，查詢結果自然不是預期的。可以通用瀏覽器地址來查看。

解碼后要用UTF8Decode做解碼后處理：

UTF8Decode(httpdecode(Text))

不然解碼后還是一堆亂碼。