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是可以獲取到資料的。
uj5u.com熱心網友回復：
加載https的站點頁面內容的時候記得在表單上加上“IdSSLIOHandlerSocketOpenSSL1”以及idhttp里面IOHandler為“IdSSLIOHandlerSocketOpenSSL1”
TIdSSLIOHandlerSocket控制元件需要OpenSSL Library來配合，OpenSSL Library包含有兩個元件
libeay32.dll和ssleay32.dll，放在程式的目錄下。
OpenSSL Indy版下載 http://indy.fulgan.com/SSL/
uj5u.com熱心網友回復：
建議先使用postman進行測驗后再進行代碼撰寫
uj5u.com熱心網友回復：
https://download.csdn.net/download/liu494021458/12083921這個不需要libeay32.dll和ssleay32.dll
測驗delphi7 delphi xe10.1可用
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/15962.html
標籤：語言基礎/算法/系統設計
下一篇：請教SQLite3的問題！