delphi7中indy10的idhttp POST时中文乱码怎么办?
解决方案 »
- 请问是否有字符串替换函数,可以替换多个不同的条件:replace(s,['a',b'],['c','d'])
- 向程序发送 SC_CLOSE 消息 不会出发 其onClose 事件吗
- 请问如何 获取指定缓冲区中的一段数据?用什么函数
- 关于WritePrivateProfileString
- 怎么获取输入DBgrid里的数据???在线
- 一个很菜的问题?谁能解释一下。在线等待!!
- fastreport 中的效果
- 关于TDBChart的连线画图的用法(连线时,判断如果值为空就不连)
- 不知道有人问过没有,关于Unicode。
- 我的Delphi程序运行时,Windows选择重启或关闭豪无反应,听说是TNMHTTP的问题,请问怎么解决?
- 俩程序的合并问题 视频采集和传输
- 求解地图经纬度加解密方法?
转换成
Data=#BA#C3
然后再Post
const
NoConversion = ['A'..'Z','a'..'z','*','.','_','-','0'..'9','!','''','(',')']; //不需要进行转换的字符。
var
Sp, Rp: PChar;
begin
SetLength(Result, Length(AStr) * 3);
Sp := PChar(AStr);
Rp := PChar(Result);
while Sp^ <> #0 do
begin
if Sp^ in NoConversion then
Rp^ := Sp^
else
if Sp^ = ' ' then
Rp^ := '+'
else
begin
FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);
Inc(Rp,2);
end;
Inc(Rp);
Inc(Sp);
end;
SetLength(Result, Rp - PChar(Result));
end;
然后再POST前转换一下!