本文整理自网络，侵删。
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 xe8中的firemonkey应用程序将文本复制到剪贴板
Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）
Delphi fdconnection1获取查询语句的第一个值
Delphi使用idtcpclient和idtcpserver相互发送数据
Delphi colorbox不需要系统那么多颜色，只想自定义显示其中几个，怎么做？
Delphi windows 编程[12] - 菜单与菜单资源(1-3)
更多相关阅读请进入《Delphi》频道 >>
