IDHttp.post获取不到数据

[会写程序的机器人]

procedure TForm1.Button1Click(Sender: TObject);
var
sStr:string;
sStrs:TStringList;
//sPostData:TStringStream;
begin
try
FHttp.HandleRedirects:=True;//Idhttp
FHttp.Request.CustomHeaders.Clear;
FHttp.Request.ContentType:='application/json';
FHttp.Request.CustomHeaders.Add('ClientId=com.primeton.esb.consumer.mis');
FHttp.Request.CustomHeaders.Add('OperationCode=esb.nrec.ecm.edoc.file.search');
FHttp.Request.CustomHeaders.Add('EmpNo=nrmes');

sStrs:=TStringList.Create();
sStrs.Add('{"data":{"folderid":"4398071","filename":"HAMUX08F"}}');
try
sStr:=FHttp.post('https://esb.nrec.com:9680/esb.nrec.ecm.edoc.file',sStrs);
showmessage(sStr);
except
on e:exception do
begin
showmessage(e.message);
end;
end;
finally
freeandnil(sStrs);
end;
end;

我使用postman是可以获取到数据的。

[ron_xin]

加载https的站点页面内容的时候记得在窗体上加上“IdSSLIOHandlerSocketOpenSSL1” 以及idhttp里面IOHandler为“IdSSLIOHandlerSocketOpenSSL1” TIdSSLIOHandlerSocket控件需要OpenSSL Library来配合，OpenSSL Library包含有两个动态链接库 libeay32.dll和ssleay32.dll，放在程序的目录下。 OpenSSL Indy版下载 http://indy.fulgan.com/SSL/

[大肚肥肥]

建议先使用postman进行测试后再进行代码编写

[liu494021458]

https://download.csdn.net/download/liu494021458/12083921
这个不需要libeay32.dll和ssleay32.dll
测试delphi7 delphi xe10.1可用