winsock控件的DataArrival事件

Question

三条语句
form1.Winsock2.SendData filenameform1.Winsock2.SendData filelenthform1.Winsock2.SendData data1
为什么一个DataArrival就全部接收了？怎么才能分开接收呢？
延时好像也不行

Answer 1

每条句后加延时
form1.Winsock2.SendData filename 
延时 0.01秒
form1.Winsock2.SendData filelenth 
延时 0.01秒
form1.Winsock2.SendData data1 
就OK了

Answer 2

延时语句可以这样写:
sub ys(a as single)
  dim t as single
  t=timer
  do
    doevents
  loop while timer-t<a
end sub 
调用时这样
form1.Winsock2.SendData filename 
ys 0.01
form1.Winsock2.SendData filelenth 
ys 0.01 
form1.Winsock2.SendData data1