web-services - Delphi soap (httprio) 忽略证书验证

Question

我有一个 https SOAP ，我想忽略证书验证。我在 THTTPRIO.HTTPWebNode 中通过 OnBeforePost 事件做到了这一点:

procedure TMySOAP.OnBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  aFlagsSize: DWord;
  aFlags:     DWord;
begin
  aFlagsSize := SizeOf(aFlags);

  // get security flags
  if InternetQueryOption(Data, INTERNET_OPTION_SECURITY_FLAGS, @aFlags, aFlagsSize) then
  begin
      // add all flag for ignore validation
      aFlags := aFlags or
       SECURITY_FLAG_IGNORE_UNKNOWN_CA or
       SECURITY_FLAG_IGNORE_REVOCATION or
       SECURITY_FLAG_IGNORE_CERT_CN_INVALID or
       SECURITY_FLAG_IGNORE_CERT_DATE_INVALID or
       SECURITY_FLAG_IGNORE_WRONG_USAGE;

      // set the new flags
      InternetSetOption(Data, INTERNET_OPTION_SECURITY_FLAGS, @aFlags, aFlagsSize)
  end;
end;

它有效..但我有第二个问题。我的客户在没有互联网的公司防火墙后面，每个对 soap 的请求都会丢失 15 秒，因为 Windows 尝试通过互联网验证证书路径，并且此操作的默认超时为 15 秒(请参阅 https://technet.microsoft.com/en-us/library/cc771429(v=ws.11).aspx)。

有没有flag or snippet for set at runtime，自定义检索超时设置？

Answer 1

THTTPRIO.HTTPWebNode 具有:

property  ConnectTimeout: Integer;
property  SendTimeout: Integer; 
property  ReceiveTimeout: Integer;

都是以毫秒为单位。

RIO := THTTPRIO.Create(nil);
RIO.HTTPWebNode.ReceiveTimeout := 20000; //Wait just 20 secs