如何解决Https Post在某些计算机上给出错误500
我正在使用Delphi XE6和Indy 10.6.0.5122。
我对自己的Web服务器进行了POST,并且在包括我自己的Web服务器在内的许多计算机上都可以正常工作,但是在某些计算机上却不起作用,我也找不到原因。无效的返回错误为500“内部服务器错误”。
是否可能是运行我的程序的计算机没有相同的SSL DLL?
function TMainForm.SendSMStoServer(JsonStr:String): boolean;
var
IdHTTP2: TIdHTTP;
IdSSLIOHandlerSocketopenSSL3: TIdSSLIOHandlerSocketopenSSL;
url:String;
JsonToSend: TStringStream;
valid:Boolean;
begin
Try
IdSSLIOHandlerSocketopenSSL3 := TIdSSLIOHandlerSocketopenSSL.Create;
IdHTTP2 := TIdHTTP.Create;
IdHTTP2.Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)';
IdHTTP2.Request.ContentType := 'application/json';
IdHTTP2.Request.BasicAuthentication := true;
IdSSLIOHandlerSocketopenSSL3.SSLOptions.Method := sslvTLSv1_2;
IdHTTP2.IOHandler := IdSSLIOHandlerSocketopenSSL3;
IdHTTP2.HandleRedirects := False;
JsonToSend := TStringStream.Create(JsonStr);
valid:=true;
url:='https://myserver.com?password=xxxxxx&user=xxxxxx';
try
IdHTTP2.Post(url,JsonToSend);
except
on E:Exception do
begin
SavetoFile(SmsText,JsonStr,E.Message);
memo1.Lines.Add('To Myserver ' + E.Classname + ': ' + E.Message);
valid := False;
end;
end;
Finally
IdSSLIOHandlerSocketopenSSL3.Free;
IdHTTP2.Free;
JsonToSend.Free;
End;
Return := valid;
end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。