不能触发DataArrival事件

2006-11-11 10:48:35 293 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

sss2006 墨衍会员 · AI 创作全网分发关注 + 加入社区

Flink 读取hive，写入hive 1，读取实现了，也是找的资料，核心就是实现了 HCatInputFormat HCatInputFormatBase 上面这两个类，底层也是继承实现了 RichInputFormat： public abstract class HCatInputFormatBase<T> extends RichInputFormat<T, HadoopInputSplit> ... 阅读详情

以下是代码片段，程序是在一个类中执行的,数据发送成功后就不再执行，请问在类模块中可以使用DataArrival事件吗

工程引用：mswinsck.ocx

Dim WithEvents cmWinsock As MSWinsockLib.Winsock

Private Sub Class_Initialize()
Set cmWinsock = New MSWinsockLib.Winsock
End Sub

Private Sub Class_Terminate()
Set cmWinsock = Nothing
End Sub

Public Function SendCommand() As Boolean
StartTime = Time()
cmWinsock.RemoteHost = m_Host
cmWinsock.RemotePort = m_Port
cmWinsock.Connect

'使用循环等待连接服务器成功
Do While cmWinsock.State <> sckConnected
DoEvents
If DateDiff("s", StartTime, Time()) > 20 Or bCancel = True Or bBusy = False Then
Err.Raise vbObjectError, "Error", "连接服务器超时"
SendCommand = False
Exit Function
End If
Loop
Dim strCommand As String
strCommand = strCommand & "GET " & m_FilePathName & " HTTP/1.1" & vbCrLf
strCommand = strCommand & "Accept: */*" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Host: " & m_Host & vbCrLf
strCommand = strCommand & "Connection: close" & vbCrLf
strCommand = strCommand & vbCrLf
cmWinsock.SendData strCommand
SendCommand = True
End Function

Private Sub cmWinsock_DataArrival(ByVal bytesTotal As Long)
Dim ByteData() As Byte
cmWinsock.GetData ByteData, vbByte
End Sub

...全文