为ServerXMLHTTP对象的HTTP请求设置超时时间

如果用ServerXMLHTTP(SXH)对象向另一个ASP页面或者Internet资源发起HTTP请求，建议设置一下超时限制。

既可以异步提交这种HTTP请求，也可以通过同步操作时调用setTimeouts方法做到这一点。

setTimeouts的各项参数为：

HRESULT setTimeouts (long resolveTimeout, long connectTimeout,

long sendTimeout, long receiveTimeout)

这些参数分别指定了解析DNS名字、建立socket连接、发送Request Data和接收Response Data的超时时间。

    如果不指定超时，那么假如客户端同步发送数据给服务器，而服务器却挂起了这个请求，这样，要么客户端等待5分钟后发生send超时，要么等待一小时后发生receive超时。在这段时间内，客户端表现为Hang。

经常会被问的一个问题是，我如何把这种超时失败同其他错误区分开来？

是这个样子，如果有一个时间超时的错误发生，就会引发一个COM异常：

0x80072ee2 "The operation timed out"

附录A中给出一个简单的VB DEMO。如果服务器的RS.asp中执行一句话：Sleep(15000)，肯定会send超时，于是异常就被捕获到了。这时的对话框如下所示：

-2147012894就是0x80072EE2的错误。

SXH的open方法其实并不作任何network I/O，它只是初始化一下SXH对象的一些内部状态。所有“Real”的工作是在send方法中作的（如果这次的请求是同步的），setTimeouts中设置的超时值也将应用在这里。

send方法解析DNS名字，同服务器建立连接，发送request，等待reponse和读response data入内存。每个超时可能会被应用好多次。比如，如果response较大，SXH将需要调用多次Winsock receive来load response，这时receive超时将被应用到每一个Winsock receive调用上。

附录A：

   #If Win32 Then

      Declare Function GetTickCount Lib "kernel32" () As Long

   #Else

      Declare Function GetTickCount Lib "User" () As Long

   #End If

Private Sub Command1_Click()

    On Error Resume Next

    Dim objClient As MSXML2.ServerXMLHTTP

    Dim lngStartTime As Long

    Dim lngFinnishTime As Long

    Dim lngOpenTime As Long

    Dim lngSendTime As Long

    Dim lngRespTime As Long

    Dim strMessage As String

    Set objClient = New MSXML2.ServerXMLHTTP

    txtOpen.Text = ""

    txtSend.Text = ""

    txtResponse.Text = ""

    objClient.setTimeouts 650, 650, 650, 650

    lngStartTime = GetTickCount()

   objClient.open "GET", "http://localhost:80/asp/rs.asp", False

    ' no failure here - the operation succeeds in 0 ms

    lngFinnishTime = GetTickCount()

    lngOpenTime = lngFinnishTime - lngStartTime

    strMessage = CStr(lngOpenTime)

    If Err.Number <> 0 Then

        strMessage = strMessage & ": " & Err.Description

        Err.Clear

    End If

    txtOpen.Text = strMessage

    lngStartTime = GetTickCount()

    objClient.send ' this is the operation that times out.

    lngFinnishTime = GetTickCount()

    lngSendTime = lngFinnishTime - lngStartTime

    strMessage = CStr(lngSendTime)

    If Err.Number <> 0 Then

        strMessage = strMessage & ":ErrNumber-" & _

                     Err.Number & "|ErrDescription-" & Err.Description

        Err.Clear

    End If

    txtSend.Text = strMessage

    ' this value is set to 672ms appended to a timeout error message

    ' example: "672: The operation timed out"

    Dim respDom As MSXML2.DOMDocument

    lngStartTime = GetTickCount()

    Set respDom = objClient.responseXML

   ' no failure here - the operation succeeds in 0 ms

    lngFinnishTime = GetTickCount()

    lngRespTime = lngFinnishTime - lngStartTime

    strMessage = CStr(lngRespTime)

    If Err.Number <> 0 Then

        strMessage = strMessage & ": " & Err.Description

        Err.Clear

    End If

    txtResponse.Text = strMessage

    Set objClient = Nothing

    Exit Sub

ERR_HANDLER:

    MsgBox Err.Description

End Sub

附录B：

下面我们给出常见的SXH对象的错误码及其解释： 

0x80004005  Unspecified error

0x8000FFFF  Unexpected error

0x80070008  Out of memory

0x8007000E  Out of memory

0x80072ee1  Cannot create any more ServerXMLHTTP objects (cannot exceed 5460 concurrent objects per process)

0x80072ee2  The operation timed out

0x80072ee4  internal error

0x80072ee5  The URL is invalid

0x80072ee7  The server name or address could not be resolved

0x80072eee  incorrect password

0x80072eef  authentication failure (credentials not accepted)

0x80072efd  A connection with the server could not be established

0x80072efe  connection aborted

0x80072eff  connection reset

0x80072f05  The date in the certificate is invalid or has expired

0x80072f06  The host name in the certificate is invalid or does not match

0x80072f07  A redirect request will change a non-secure to a secure connection

0x80072f08  A redirect request will change a secure to a non-secure connection

0x80072f0c  A certificate is required to complete client authentication

0x80072f0d  The certificate authority is invalid or incorrect

0x80072f0e  Client authentication has not been correctly installed

0x80072f76  The requested header was not found

0x80072f78  The server returned an invalid or unrecognized response

0x80072f7a  The request for a HTTP header is invalid

0x80072f7c  The HTTP redirect request failed

0x80072f7d  An error occurred in the secure channel support

0x80072f80  The HTTP request was not redirected

0x80072f82  A cookie from the server has been declined acceptance

0x80072f88  The HTTP redirect request must be confirmed by the user

0x80072f89  The server certificate was invalid