新手关于delphi 的 winsock控件中dataArrival的问题? Winsock.getdate() 如何接收数据， getdate() 里面怎

Question

getdate() 里面怎么变量填写来接受数据
delphi 的

Answer 1

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim WskCommand As String
Dim CmdArr() As String
Dim FileByte() As Byte
Dim i As Long
接受文件前执行
Winsock1(Index ).GetData WskCommand '接收数据
CmdArr = Split(WskCommand, ",") '把数据格式化到数组里
If CmdArr(0) = "SendFile" Then '判断接送的DATE
CmdArr(1) = YhName & ".jpg" '文件名字
FileNamea = "C:\Program Files\XJ远程桌面\" & CmdArr(1) '路径

Winsock1(Index ).SendData "OkSend" '告诉对方,可以开始传送
LenFile = Val(CmdArr(2)) '保存下文件的长度
'------------------
ProBarLen = LenFile
VarPlus = 0
'------------------
OnAccept = True '设置标记,下一次数据到达时,数据类型将会是:字节型
FileNumber = FreeFile '取得未使用的文件号
Open FileNamea For Binary As #FileNumber '打开文件
Else
List2.AddItem Winsock1.Count - 1
List1.AddItem CmdArr(0)
Combo1.Text = CmdArr(0)
List1 = CmdArr(0)
End If
Exit Sub
SaveErr:
Winsock1(Index ).SendData "NoThanks"
End Sub