与ssl delphi 2007 indy 10连接时出错

问题描述

我是Delphi的新手，并被分配了一个Delphi 2007桌面应用程序，并被要求在当前使用Indy 10.1.5的应用程序中启用https。

下面是我编写但无法获得预期输出的代码。

我不确定我使用的DLL是否与它兼容。

我得到的错误是“与ssl连接错误”

var
  IdHTTP: TIdHTTP;
Id_HandlerSocket : TIdSSLIOHandlerSocketopenSSL;                         
begin
  IdHTTP := TIdHTTP.Create;
  try
    with IdHTTP do
    begin
      Name := 'IdHTTP';
      AllowCookies := True;
      RedirectMaximum := 25;
      ProxyParams.BasicAuthentication := False;
      ProxyParams.ProxyPort := 0;
      Request.ContentLength := -1;
      Request.Accept := 'text/html,*/*';
      Request.BasicAuthentication := False;
      Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)';
      HTTPOptions :=      [hoForceEncodeParams];
    end;
    Id_HandlerSocket := TIdSSLIOHandlerSocketopenSSL.Create(IdHTTP);
    Id_HandlerSocket.SSLOptions.Method :=  sslvSSLv23;           
    Id_HandlerSocket.SSLOptions.Mode := sslmClient;
    //     Id_HandlerSocket.Port:= 443 ;
    IdHTTP.IOHandler := Id_HandlerSocket;
    try
      Result := IdHTTP.Get('https://'+WebServer+'/myfol/test_file.txt');  // this is the place where I get error
    except on E : Exception do
      Begin
        Result := E.Message +' ||  '+E.ClassName   ;
      End
    end;
  finally
    IdHTTP.Free;
  end;

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphi indy10 openssl