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 (将#修改为@）