idhttp 访问 https 的问题。

2012-03-09 01:35:22 444 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

施耐德 Modicon M580 ePAC 项目实战：从硬件选型到 Control Expert V15 组态本文详细解析了施耐德 Modicon M580 ePAC 在工业自动化项目中的实战应用，从硬件选型到 Control Expert V15 组态的全流程。重点介绍了水处理站控制系统的硬件配置、网络架构设计、软件安装授权及程序框架开发，帮助工程师高效实施中大型控制系统项目。阅读详情



  TTestThread = class(TThread)

  public

    httpMain: TIdHTTP;

    sslMain: TIdSSLIOHandlerSocketOpenSSL;

    constructor Create; overload;

    destructor Destroy; override;

    procedure Execute; override;

  end;



constructor TTestThread.Create;

begin

  inherited Create(False);

  httpMain := TIdHTTP.Create(nil);

  sslMain  := TIdSSLIOHandlerSocketOpenSSL.Create(nil);



  sslMain.SSLOptions.Method := sslvSSLv3;

  sslMain.SSLOptions.Mode := sslmUnassigned;

  httpMain.AllowCookies := True;

  httpMain.HandleRedirects := True;

  httpMain.HTTPOptions := [hoKeepOrigProtocol, hoForceEncodeParams];

  httpMain.ReadTimeout := 20000;

  httpMain.ConnectTimeout := 10000;

end;



destructor TTestThread.Destroy;

begin

  httpMain.Free;

  sslMain.Free;

  inherited Destroy;

end;



procedure TTestThread.Execute;

begin

  while not Terminated do begin

    httpMain.IOHandler := sslMain;

    httpMain.Request.UserAgent := 'Mozilla/3.0 (compatible)';

    httpMain.Get('https://mail.qq.com/cgi-bin/loginpage?');

  end;



  Destroy;

end;

如果我创建并执行50个线程（上面的代码），过一段时间会出现“Socket Error # 10038 Socket operation on non-socket.”。
如果出现了这个异常，这个 idhttp 将会彻底失效，get 将永远是“不能访问内存 000004” 什么的。
请问我应该如何避免这个异常（虽然上面的代码不容易出错，但如果使用代理连接，10038 异常会非常非常多）。

单线程执行上述代码永远不会出现 10038，即便使用代理连接。

各位大大们，指点我一下吧。

...全文