在VB6上,如何实时接收服务器通过Webserver返回的数据?
如题:如何实时接收服务器通过Webserver返回的数据?
Dim oSoapClient As New MSSOAPLib30.SoapClient30 Dim bReturn() As Byte oSoapClient.ClientProperty("ServerHTTPRequest") = True oSoapClient.MSSoapInit WebServer Dim bBuffer(0 To 9) As Byte For i = 0 To 9 bBuffer(i) = DBBuffer(i) Next i bReturn = oSoapClient.sendPager(bBuffer) '请在此等待返回并把数据存入DEBuffer (9) For i = 0 To 9 DEBuffer(i) = bReturn(i) Next i Set oSoapClient = Nothing