有关WINSOCK控件的初级问提?请个位高手来看一下!

Question

我没有学过VB!只是偶尔看一下!
我们在上通信课时!
我们在上机时做TCP通信时
我下面总出现问提!
大致如下:
  在服务器端:在窗体加载时:
 winsock1.protocol=scktcpprotocol
 winsock1.localport=4000
 winsock1.listen
在服务器的winsock的connectionrequest()事件中
 
      winsock1.accept requestID     '在运行是总是出现在状态,此操作无效!
因而客户无法和服务器连接!
个位兄弟!帮我解决这个问题
   

Answer 1

客户端连接服务端，服务端收到winsock的connectionrequest()事件后，用如下代码
winsock1.close
winsock1.accept requestID

Answer 2

winsock1.close
winsock1.accept requestID

Answer 3

如果winsock控件的状态目前不是处于关闭的状态，
在允许远程设备连接时，必须要关闭控件的运行
if winsock1.state<>sckclosed then winsock1.close
winsock.accept requestid