c#的网口通信控件 利用Winsock控件实现局域网通信

　　摘要:随着计算机技术的发展和网络的不断普及,网络应用程序的开发越来越普遍,因此进行网络应用程序的开发就显得尤为重要。在这篇文章中,主要介绍了在VB环境下如何使用Winsock控件实现局域网通信,并给出了编程实例,编程人员无须了解低层协议实现及调用细节,只需通过设置控件的属性并调用其方法就可轻易与联网主机进行通信。
　　关键词:Winsock 局域网 通信
　　中图法分类号:TP391 文献标识码:A 文章编号:
　　
　　 近几年来,计算机网络的应用越来越广泛,网络应用软件的开发需求与日俱增。在网络编程时,常常会遇到客户端之间或者客户端和服务器之间的信息互传问题。常用的解决方法是利用Socket套接字数据通信来进行点对点的文件传输。Windows Socket作为一个开放的、支持多种协议的Windows下的网络编程接口已经得到了普遍的应用。采用这种方法较为简便,却能做到在互通的网络中任何两台计算机之间的文件共享和传输。
　　
　　1 Winsock应用
　　 Socket(套接字)最初是由加利福尼亚大学Berkeley分校为UNIX系统开发的网络通信接口,随着UNIX的广泛使用,Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初,由Sun Microsystems和Microsoft等几家公司共同定制了一套标准,即Windows Socket规范,简称WinSock。Winsock控件可以供Microsoft Acess、Visual Basic,Visual C++或Visual Foxpro的开发人员使用,本文以Visual Basic 6企业版作为实例开发环境。
　　 Winsock控件为用户提供了访问TCP和UDP网络的极其方便的途径,并且适用于Microsoft Access、Visual Basic、Visual C++和Visual FoxPro等多种可视化环境。通过Winsock控件编制C/S程序,程序员无须了解TCP或低级Winsock APIs调用实现的细节,用该控件实现网间进程通信极其方便。
　　
　　2 Winsock控件实现局域网通信
　　 Winsock控件可以使用两种协议:TCP协议和UDP协议。
　　 在TCP应用中,为了建立一个网络连接实例的服务器端,只需设置本地服务端口号,然后服务器调用方法Listen进入阻塞状态,等待来自客户的连接请求。与此对应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称(IP地址或网络代号),还应设置服务器所监听的相应服务的端口号,如FTP服务在21号端口,HTTP在81号端口等。然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请求时,事件ConnectionRequest将被触发。如服务器愿意提供服务,则可调用Accept方法接受连接。一旦连接建立,两端均可使用SendData或GetData进行数据的发送或接收。事件DataArrival将在另一端数据准备就绪时被触发。
　　 UDP协议的实现与TCP不同的是,调用Sockets的两端无需建立连接便可进行数据的传输。因此,一个UDP应用可以同时担任服务器或客户的角色。
　　 在创建客户应用程序时,必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器计算机进行侦听的端口(存于RemotePort属性),然后调用Connect方法。
　　 创建服务器应用程序时,就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect),就会发生ConnectionRequest事件。为了完成连接,你可以在ConnectionRequest事件中调用Accept方法。建立连接后,任何一方计算机都可以发送、接收对方数据。如果你要发送数据,需调用SendData方法。当接收到数据时,会发生DataArrival事件,调用DataArrival事件中的GetData方法就可以获得对方传送的数据。
　　 UDP协议中,为了在甲乙两机中传输数据,必须先分别设置两机的LocalPort属性;再将甲机的RemoteHost属性设置为乙机的IP地址,RemotePort属性设置为乙机的LocalPort属性值,此时甲机调用SendData方法就可以传送数据了,乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据,只需仿照上面的过程设置即可。本文主要是基于TCP协议的通信编程实例做为介绍。
　　2.1 基于TCP协议的winsock通信实例编程
　　 假设甲机为客户机,乙机为服务器,且其IP为192.192.192.1,接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个Winsock控件,起名为sckconnect,并设置其属性:RemoteHost=“192.192.192.1”,(即甲机IP地址), RemotePort=1200(即甲机侦听端口);再在乙机服务器程序中假如一个名为sckserver(0)的Winsock控件,其LocalPort=1200,在乙机服务器程序中Form_Load()加入
　　 sckserver(0).bind sckserver(0).LocalPort "与本地端口绑定
　　 sckserver(0).listern " 侦听
　　 如果要传输数据,两机必须先建立连接。建立连接的程序如下:
　　 甲机客户机要先请求连接
　　 sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort
　　 此句执行时会触发服务器程序中的ConnectRequest事件,在此过程中决定是否建立连接,其代码如下:
　　 Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)
　　 if sckserver.count=1 then
　　 load sckserver(1)
　　 sckserver(1).accept requestId
　　 end if
　　 end sub
　　 连接建立好以后,甲机或乙机都可以应用SendData方法来传送数据。例如,如果是甲机要传送一个叫string的字符串,只需在代码中加入:
　　 sckconnect.SendData string
　　 甲机传送数据后,会触发乙机的DataArrival事件,在其过程中用GetData方法可以收到传送的数据:
　　 Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)
　　 dim sdata as string
　　 sckserver(1).GetData sdata,vbstring
　　 end sub
　　 在关闭程序前要先关闭Winsock控件
　　 privat sub form_unload(cancel as integer)
　　 if sckconnect.state <>sckclosed then
本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文 　　 sckconnect.close
　　 end if
　　 end sub
　　 这只是最简单的情况,如果有多台计算机,那就稍微复杂一些,客户端程序可以不做改动,而服务器端程序需要略做改动:
　　 Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)
　　 dim sip as string
　　 dim I as integer
　　 sip=sckserver(0).RemoteHostIP "获得登录者的IP地址
　　 I=1
　　 Do while I 本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文