VB6 winsock等待响应

我正在使用vb6中的winsock控件来检查Web服务的可用性。我做了一个post请求，获取响应并解析响应头以检查响应代码。VB6 winsock等待响应

响应到达多个数据包。

' this event occurs when data is arriving via winsock 
Private Sub wsTCP_DataArrival(ByVal bytesTotal As Long) 
    Dim strResponse As String   
    wsTCP.GetData strResponse, vbString, bytesTotal 
    strResponse = FormatLineEndings(strResponse) 

    ' we append this to the response box becuase data arrives 
    ' in multiple packets 
    response = response & strResponse   
End Sub

我的问题是，我需要等到检查响应代码才能继续执行。

有没有办法做到这一点，而不使用计时器？

谢谢，亚历克斯

决定使用定时器毕竟。

来源

2011-09-15 thedev

只需注意......'response = response＆strResponse'对于性能来说并不是很好，因为它会像疯狂一样重新分配字符串。如果期望性能和/或较大的响应，则更好的方法是分配一个不需要在每个DataArrival上调整大小的大缓冲区，并将数据帧插入到正确的偏移量处。 – tcarvin

+1好adivice ...我使用strResponse，因为我有另一个调用strResponse = FormatLineEndings（strResponse） – thedev

每当您收到数据时，都会追加到缓冲区中，然后处理/解析该数据。它得到使用阻塞插座，意味着你可以在它到来时作出反应。查看this article网络协议举例。

来源

2011-09-15 14:51:08 Deanna

在您发送请求时，禁用您的用户界面中的控件，除了取消按钮或其他东西。响应完成后，您可以启用UI并在DataArrival中显示结果，否则“继续”。

你真的不希望在VB6程序中阻塞套接字，它们会打破整个Windows编程范例，因为你没有可用的工作线程。即使有一个工作者线程，你最终也会以同样的方式编写代码来“暂停”你的UI线程，所以不会有任何损失。

计时器可能是处理请求超时最简单的方法。

来源

2011-09-15 12:50:13 Bob77

VB6 winsock等待响应

回答

相关问题