Delphi：IdHTTP SSL不起作用.没错！

我使用TidHTTP TIdSSLIOHandlerSocketopenSSL 2 DLL：来自 http://indy.fulgan.com/SSL的ssleay32.dll和libeay32.dll.

但我可以在HTTP Analyzer中看到我的程序的所有工作！它可以用作HTTP,而不是HTTPS.如果我使用Opera,我看不到使用同一站点下载(https://esta.cbp.dhs.gov/esta).

我没有为TidHTTP和TIdSSLIOHandlerSocketopenSSL设置任何特殊参数(可能是我必须但我不知道到底是什么).

我必须使用TIdSSLVersion(sslvSSLv23)SSL证书的位置吗？我在哪里可以获得此证书？还是只有RootCertFile？

如何将idHttp的端口更改为443(我必须这样做吗？)？

我用：

procedure TForm1.FormCreate(Sender: TObject);
var mem:tmemorystream;
begin
try
  mem:=TMemoryStream.Create();
  try
    idhttp1.Get('https://esta.cbp.dhs.gov/esta/',Mem);
  except
   on E : Exception do ShowMessage(E.Message);
  end;
finally
  mem.Free;
  idhttp1.Free;
end;
end;

请看我的视频：http://liga-installer.realservers.info/ssl.mp4

截屏：

谢谢谢谢你的帮助！

Uses
  IdHttp,IdSSLOpenSSL

procedure TForm2.Button1Click(Sender: TObject);
var
  s: string;
  lHTTP: TIdHTTP;
begin
  lHTTP := TIdHTTP.Create(nil);
  try
    lHTTP.IOHandler := TIdSSLIOHandlerSocketopenSSL.Create(lHTTP);
    lHTTP.HandleRedirects := True;
    s := lHTTP.Get('https://esta.cbp.dhs.gov/esta/');
    RichEdit1.Text := s;
  finally
    lHTTP.Free;
  end;
end;