lamsunman的博客

在界面添加控件TIdSSLIOHandlerSocketOpenSSL和TIdHTTP idslhndlrscktpnsl1: TIdSSLIOHandlerSocketOpenSSL; idhtp1: TIdHTTP; 设置idhtp1.IOHandler属性为idslhndlrscktpnsl1 将openssl-1.0.1j-i386-win32.zip解压出来的libeay32.dll和ssleay32.dll放到exe所在路径 function httpAPIPost(url,param:string):string; var ResponseStream,PostStream:TStringStream; begin try idslhndlrscktpnsl1.SSLOptions.Method:=sslvSSLv23; idhtp1.HandleRedirects := True; idhtp1.ReadTimeout := 10000; idhtp1.Request.ContentType := 'application/json;charset=utf8'; ResponseStream:=TStringStream.Create(''); PostStream:=TStringStream.Create(param); PostStream.Position:=0; idhtp1.Post(url,PostStream, ResponseStream); Result:=UTF8Decode(ResponseStream.DataString); finally PostStream.Free; ResponseStream.Free; end; end;