前辈们delphi7——idhttp——post(json格式参数)——访问https报错

乙楽乙 2016-11-25 04:58:01

[size=13px]各位大神们，组件有tidhttp+IdSSLIOHandlerSocket1小弟第一次写这个post 访问 https://api.acewill.net 传入的值为{"cno": "15268561755"} 底部有两个控件的属性图

但是每次都报 "Error connecting with SSL." 也有几次是报socket error #11004 请前辈们帮帮我谢谢你们了。
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
Url :string;
resstring :TStringStream;
response :string;
ResponseStr : string;

SSLopen :TIdSSLIOHandlerSocket;
reqstr :TStringStream;
tempstr, tempstr2, sjc :string;
begin
try
IdHTTP1 :=TIdHTTP.Create(nil);
IdHTTP1.Request.ContentType :='application/json';
resstring := TStringStream.Create('');
reqstr := TStringStream.Create('');

SSLopen := TIdSSLIOHandlerSocket.Create(IdHTTP1);
IdHTTP1.IOHandler := SSLopen;
IdHTTP1.ReadTimeout :=50000;
// IdHTTP1.Request.Connection :='Keep-Alive';
try
Url := 'https://api.acewill.net/user/account';
sjc :=Gettimestamp; //时间戳
tempstr :='cno%3D15862536136&appid=dp0DjvD81zqwJlOzxGfPjMJ&appkey=329cad81ebabce4b1a6203a202959fb3&v=2.0&ts='+Gettimestamp+'';
tempstr2 := MD5Print(MD5String(tempstr)); //生成sig签名
tempstr:='req={"cno":"15862536136"}&appid=dp0DjvD81zqwJlOzxGfPjMJ&v=2.0&ts='+Gettimestamp+'&sig='+tempstr2+'&fmt=JSON';

//以流的方式提交参数
resstring.Position :=0;
reqstr.WriteString(tempstr);
IdHTTP1.Post(Url,reqstr,resstring);
except
on e : Exception do
begin
ShowMessage(e.Message);
end;
end;
ResponseStr := resstring.DataString;
ResponseStr := UTF8Decode(ResponseStr);
Memo1.Text := ResponseStr;
finally
IdHTTP1.Free;
resstring.Free;
reqstr.Free;
end;
end;

...全文