DELPHI XE8安卓下汉字转GB2312 URLENCODE代码


本文整理自网络,侵删。

 Delphi XE8安卓下汉字转Gb2312 urlencode代码

在Android下汉字转GB2312 urlencode时候,如果使用下边代码:

用Edit2.Text :=Tnetencoding.url.EncodeBytesToString( Tencoding.GetEncoding(936).getbytes('提交'));//会提示错误No mapping for the Unicode character exists in the target multi-byte code page.

用Edit2.Text :=httpencode('提交'); urlencode结果为  %E6%8F%90%E4%BA%A4 ,此为UTF8转换结果

用Edit2.Text :=Tnetencoding.URL.Encode('提交'); urlencode结果同样为%E6%8F%90%E4%BA%A4

那么问题来了,怎么在Android显示GB2312的转换结果%cc%e1%bd%bb呢?

 

function MyUrlEncode(const input: string): string; // 汉字转Gb2312 urlencode
var
  S: string;
  Stream: TStringStream;
  B: Byte;
begin
  Result := '';
  S := '';
  try
    Stream := TStringStream.Create(input, TEncoding.GetEncoding(936));
    for B in Stream.Bytes do
      S := Format('%s%%%.2x', [S, B]);
  finally
    Stream.Free;
  end;
  Result := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := '提交';
  Edit2.Text := MyUrlEncode(Edit1.Text); // 结果  %cc%e1%bd%bb
end;

相关阅读 >>

Delphi webbrowser 使滚动条滚动到底部

Delphi 判断文件类型函数

Delphi实现保存和读取图片的方法

Delphi android权限

Delphi 实现产品编号批量生成简单算法

Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止

Delphi二值图像膨胀算法

Delphi application.restore; 简单用法

Delphi 获取系统串口列表

Delphi下调用有返回值的存储过程

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...