delphi XE10.4 idhttp post Json中文乱码的处理
一、问题提出
近期，由于与另一PHP程序之间，动态传递JSON数据，使用delphi XE10.4中idhttp控件实施。代码完成，出现三个问题：
1、JSON文本定长自动加入“=”；
2、英文和数字显示正常，中文显示为“？？？?”；
3、Post反馈的信息中，如有汉字不能显示。
二、问题探索
1、通过生成UTF8格式文件，再导入上传，显示的汉字不是“？？？？”，而是乱码了。
StringStream := TStringStream.Create('', TEncoding.UTF8);
StringStream.WriteString(Json1.ToString);
StringStream.SaveToFile(FileName); 2、通过实践，将Josnk 汉字转成UTF8格式，如：“中文汉字”，可以显示“中文汉字”。说明Post过程中，中文没有以UTF8格式传递。
（1）首先在JSON字符生成时，改成UTF8，也不行。
（2）HTTPEncode(Ansitoutf8(S))，Utf8Encode(s)，HttpEncode(UTF8Encode(S))，UTF8Decode(HttpDecode(S2）,偿试均失败。
（3）AddFormField('data', '中文汉字', 'utf-8'); 已指定utf-8格式，还是不行；
3、换个思路，Delphi发展到XE10，在汉字轮换上不可以需要我们如此大费功夫，应该能很好地实现的，是否格式上有问题。同时，定长自动加入“=”问题，肯定在传递的格式（网络传输的字节流）有问题，经查TIdFormDataField有个ContentTransfer属性。
IdMultipartFormData.pas单元文件中，ContentTransfer有三种类型：
const
sContentTransferPlaceHolder = 'Content-Transfer-Encoding: %s';
sContentTransferQuotedPrintable = 'quoted-printable';
sContentTransferBinary = 'binary';
Delphi默认ContentTransfer第二种：sContentTransferQuotedPrintable，就是'引用可打印'; 它是7位可打印的 ASCII编码方式。每个高位为1的码翻译为如=A1的16进制模式。
这种模式下，每76个字符用quoted-printable插入一次。这就是出现多余的=\\r\\n（“软”换行符）的原因。在支持quoted-printable服务器，都将在解码期间删除“软”换行符。
由于对方服务器不支持quoted-printable，所以解码后，加入了“=”等字符。
原因找到，那就换个模式吧。
换Binary类型试试：
paramStream.AddFormField('data',jsonstr,'UTF-8').ContentTransfer := sContentTransferBinary;
Post问题都解决。
4、分析：
（1）由于ContentTransfer默认sContentTransferQuotedPrintable，Post的'quoted-printable'格式，出现“=”字符。
（2）设置ContentTransfer为sContentTransferBinary后，它是数据流传输格式，实现UTF-8完整传输。（这里值得斟酌：它不编码的10进制数据流）
三、问题解决
procedure TMainFrm.Button5Click(Sender: TObject);
var paramStream: TIdMultiPartFormDataStream;
vResponse: TStringStream;
jsonstr: string;
MyList:TStringList;
begin
paramStream := TIdMultiPartFormDataStream.Create;
vResponse := TStringStream.Create('');
MyList:=TStringList.Create;
jsonstr:=GetJosnTxt; // 生成Json的自定义函数
// 定义http消息头
idhttp1.Request.ContentType := 'application/json';
//传递普通参数
paramStream.AddFormField('data',jsonstr,'UTF-8').ContentTransfer := sContentTransferBinary; // Binary格式传输
// 执行Post
IdHTTP1.Post('http://XXX.XXXX.com/api/v1/data', paramStream, vResponse); // 隐藏XXX
vres := vResponse.DataString; // Post返回值Utf8码
Memo1.Text := UnicodeToChinese(vres); // 显示反馈信息Utf8To
s:=FormatdateTime('yyyy-MM-dd HH:SS:mm',Now)+#13#10;
sTemp:=sTemp+S+Memo1.Text;
MyList:=TStringList.Create;
MyList.Text:=sTemp;
MyList.SaveToFile(sMainPath+'Upload.log'); // 保存Post信息
paramStream.Free;
vResponse.Free;
end;
