httpf发送 json_https和http的post发送总结

本文为转贴内容，感谢作者阿进！

需要转发数据到客户的https的服务器上出现一系列问题总结如下:

1.因为是https首先考虑到用最新的控件NetHTTPClient(只有在XE8以上才有)。

2.客户的服务器需要先登录

例如:域名/authentication?account=admin&password=001

Method:  POST

return:

200:成功

404:不存在

606:自定义错误

3.登录成功后需要向下面地址提交json数据

URL:域名/measVals/batch

Method:POST

4.代码

varJsonstr:ansistring;

Url,ResData:string;

ResponseStream:TStringStream;

resStr:integer;

HTTPRespone:IHTTPResponse;//THTTPResponse;

ss : TMemoryStream;beginNetHTTPClient1.AllowCookies:=true;with NetHTTPClient1 do

begin

//AcceptCharSet := 'utf-8';

ConnectionTimeout := 2000; //2秒

ResponseTimeout := 10000; //10秒

AcceptEncoding := 'UTF-8';

AcceptEncoding := '65001';

AcceptLanguage := 'zh-CN';

ContentType := 'application/json; charset=utf-8';//'multipart/form-data';//'application/json';

//UserAgent := 'Embarcadero URI Client/1.0';

//UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)';//'Embarcadero URI Client/1.0';

end;

ResponseStream := TStringStream.Create;

ss := TMemoryStream.Create();//登录

Url:='https://域名.com/platform/authentication?account=admin&password=001';

HTTPRespone:=NetHTTPClient1.Post(Url,ss,ResponseStream);

memo1.Lines.Add(ResponseStream.DataString);//提交数据

Url:='https://域名.com/platform/measVals/batch';

Jsonstr:='{"tourId":"0","st":"MOBILE","mu":[{"num":"12345678","man":"test",'+

'"med":"07", "ver":"0","measCur":[ { "time":"1555050716", "volume": { "unit":"m",'+

'"value":"13" } }] }] }';

ss.Write(Jsonstr[1], Length(Jsonstr));

ss.Position := 0;

resStr:=NetHTTPClient1.Post(Url,ss,ResponseStream).StatusCode;

memo1.Lines.Add(ResponseStream.DataString);end;

5.需要注意的问题

(1)因为本例中登录后需要记录session，开始测试用的dXE10.1,始终记录不了session，后来查了网络知道是该版本的bug，后来换用最新的XE10.3才可以NetHTTPClient1.AllowCookies:=true;

(2)提交json数据开始用TStringStream向对方提交数据，对方始终收到的是空，后来改用TMemoryStream才可以收到，并且json数据要用Jsonstr:ansistring;  否则对方收到的长度只有一半。