Delphi XE8安卓下汉字转Gb2312 urlencode代码(原创)
Delphi XE8安卓下汉字转Gb2312 urlencode代码
在Android下汉字转GB2312 urlencode时候，如果使用下边代码：
|
1 |
Edit2.Text :=Tnetencoding.url.EncodeBytesToString( Tencoding.GetEncoding(936).getbytes('提交'));//会提示错误No mapping for the Unicode character exists in the target multi-byte code page. |
|
1 |
Edit2.Text :=httpencode('提交');// urlencode结果为 %E6%8F%90%E4%BA%A4 ，此为UTF8转换结果 |
|
1 |
Edit2.Text :=Tnetencoding.URL.Encode('提交'); //urlencode结果同样为%E6%8F%90%E4%BA%A4 |
那么问题来了，怎么在Android显示GB2312的转换结果%cc%e1%bd%bb呢？
参考代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
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; |
除特别注明外，本站所有文章均为阿明工作室原创，转载请注明出处来自https://www.amingstudio.com/delphi/171.html
