回 帖 发 新 帖 刷新版面

主题:网络编程之winsock控件简介使用方法

网络编程之winsock控件简介使用方法

回复列表 (共4个回复)

沙发

你可能是一个高手,你能不能教教我啊!本人会感谢你的!!!

板凳

           Winsock编程框架
     在TCP应用中,为了建立一个网络连接实例(Instance)的服务器端,只需设置本地服

务端口号,然后服务器调用方法Listen进入阻塞状态,等待来自客户的连接请求。与此对

应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称(IP地址或网络代号),

还应设置服务器所监听的相应服务的端口号(RemotePort),如FTP服务在21号端口,HTTP

在81号端口等。然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请

求时,事件ConnectionRequest将被触发。如服务器愿意提供服务,则可调用Accept方法

接受连接。


  一旦连接建立,两端均可使用SendData或GetData进行数据的发送或接收。事件

DataArrival将在另一端数据准备就绪时被触发。


  UDP协议的实现与TCP不同的是,调用Sockets的两端无需建立连接便可进行数据的传

输。因此,一个UDP应用可以同时担任服务器或客户的角色。


  以下程序代码为Visual Basic Windows Sockets编程的基本框架。


   注释:服务器方


   Private Sub Command1.Click()


   注释:设置本地服务端口号


   Winsock1.localport=2048


  


注释:服务器进入监听状态


   Winsock1.listen


   End Sub




  Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)


  注释:收到客户连接请求


  注释:检查Socket状态


  If Winsock1.State <> sckClosed Then Winsock1.Close


  注释:接受客户请求


  Winsock1.Accept requestID


  End Sub


  


   Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)


   注释:对方数据已准备好


   注释:可用GetData()/SendData()接收/发送数据


   注释:处理客户数据


   ……


   End Sub


  


   Private Sub Form_Unload(Cancel As Integer)


   Winsock1.Close


   End Sub


  


   注释:客户方


   Private Sub Command1.Click()


   注释:设置服务器网络名


   Winsock1.RemoteHost=“193.168.1.40”


  


注释:设置服务器相应服务端口号


Winsock1.RemotePort=2048


  


  注释:向服务器发出连接请求


  Winsock1.Connect


  End Sub


  


  Private Sub Winsock1_Connect()


  注释:服务器响应连接


  注释:可以进行GetData()/SendData()进行数据传输


  ……


  End Sub


  


  Private Sub Form1.Unload()


   Winsock1.Close


  End Sub


  


  该段程序演示了用Visual Basic建立TCP连接的基本过程。因本文重在讲解Sockets

编程,故文中未涉及VB自己封装的故障处理函数Winsock1.Erroe(),读者可自行编制。以

上程序段可作为一般TCP应用的基本框架加以扩展使用。

3 楼

头昏

4 楼

高手

我来回复

您尚未登录,请登录后再回复。点此登录或注册