请教Indy10中TIdHttp的post方法无法返回的问题

Question

我使用了Indy10的TIdHttp + TIdSSLIOHandlerSocketOpenSSL来实现SSL的数据传输。可是，有时候TIdHttp对象的Post()方法不会返回。线程就阻塞在那边。即使设置了超时也没有用处。有时候又一切正常。这个问题找了好久，都没发现问题所在。高手帮帮忙吧。谢谢。
  //SSL的创建
  FSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  FSSL.SSLOptions.Method := sslvSSLv23;
  FSSL.ReadTimeout := 2000;
  FSSL.ConnectTimeout := 2000;
  FSSL.SSLOptions.Mode := sslmClient;
  FHTTP := TIdHTTP.Create(nil);
  FHTTP.ReadTimeout := 2000;
  FHTTP.ConnectTimeout := 2000;
  FHTTP.IOHandler := FSSL;
  FHTTP.OnWorkBegin := OnMyWorkBegin;
  FHTTP.OnWork := OnMyWork;
  FHTTP.OnWorkEnd := OnMyWorkEnd;
procedure DownloadFile;
var
  vStream: TFileStream;
begin
  try
    vStream := TFileStream.Create(Path, fmCreate);
    {问题：便发生在以下的Post()方法中！有时能正常返回，有时无法返回。线程呈现阻塞状态。是不是因为服务器没响应啊，但是
    我有设置超时啊！该怎么办呢？}
    FHTTP.Post('https://10.11.12.48/weborb/Services/etim/rpc/fileDown.php', FParaList, vStream);
  finally
    vStream.Free;
  end;//try
end;

Answer 1

可以使用多线程解决这个问题，把idhttp放到现场里动态创建，这样即使会卡死，也不会卡死主线程。实际上，卡死还是会发生，只不过在子线程里发生了。ConnectTimeout 在网络异常或服务器失去响应的情况下 不起作用的，因为 indy 是阻塞式通讯，没有返回就一直等待，直到超时，你可以看下这篇文章提到的方法：
http://www.piaoyi.org/computer/Delphi-INDY-IDFTP-IDHTTP-connecttimeout.html
彻底解决。