146.htm

vb功能实例介绍。详细、很好的实例说明。

<p>Winsock编程框架</p>
<p></p>
<p></p>
<p>　　Microsoft的Windows Sockets API是Windows下的网络应用程序接口，为了适用于</p>
<p>Windows下的消息机制和异步的I/O选择操作，Windows Sockets API在功能上扩充了将近</p>
<p>20个函数，其中扩充的部分均冠以前缀WSA（Windows Sockets Asynchronous）,如</p>
<p>WSAStartup、WSAClean等，充分体现了Widnows的优越性。此外，Windows Sockets API有</p>
<p>16位版和32位版两种,16位版是单进程的，32位版则提供了多线程下的安全保护。</p>
<p></p>
<p>　　Microsoft Visual Basic提供了用于Windows Sockets编程的可用控件——Winsock控</p>
<p>件。该控件为用户提供了访问TCP和UDP网络的极其方便的途径。并且适用于Microsoft </p>
<p>Access、Visual Basic、Visual C＋＋和Visual FoxPro等多种可视化环境。通过Winsock</p>
<p>控件编制C/S程序，程序员无须了解TCP或低级Winsock APIs调用实现的细节，如用户无</p>
<p>须考虑网络字节顺序与本机字接顺序便可直接进行数据的传送。用该控件实现网间进程通信</p>
<p>极其方便。</p>
<p></p>
<p>　　在TCP应用中，为了建立一个网络连接实例（Instance）的服务器端，只需设置本地服</p>
<p>务端口号，然后服务器调用方法Listen进入阻塞状态，等待来自客户的连接请求。与此对</p>
<p>应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称（IP地址或网络代号），</p>
<p>还应设置服务器所监听的相应服务的端口号（RemotePort），如FTP服务在21号端口，HTTP</p>
<p>在81号端口等。然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请</p>
<p>求时，事件ConnectionRequest将被触发。如服务器愿意提供服务，则可调用Accept方法</p>
<p>接受连接。</p>
<p></p>
<p>　　一旦连接建立，两端均可使用SendData或GetData进行数据的发送或接收。事件</p>
<p>DataArrival将在另一端数据准备就绪时被触发。</p>
<p></p>
<p>　　UDP协议的实现与TCP不同的是,调用Sockets的两端无需建立连接便可进行数据的传</p>
<p>输。因此，一个UDP应用可以同时担任服务器或客户的角色。</p>
<p></p>
<p>　　以下程序代码为Visual Basic Windows Sockets编程的基本框架。 </p>
<p></p>
<p>　　 注释：服务器方</p>
<p></p>
<p>　　 Private Sub Command1.Click()</p>
<p></p>
<p>　　 注释：设置本地服务端口号</p>
<p></p>
<p>　　 Winsock1.localport=2048</p>
<p></p>
<p>　　 </p>
<p></p>
<p>注释：服务器进入监听状态</p>
<p></p>
<p>　　 Winsock1.listen </p>
<p></p>
<p>　　 End Sub </p>
<p></p>
<p></p>
<p></p>
<p>　　Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)</p>
<p></p>
<p>　　注释：收到客户连接请求</p>
<p></p>
<p>　　注释：检查Socket状态</p>
<p></p>
<p>　　If Winsock1.State <> sckClosed Then Winsock1.Close</p>
<p></p>
<p>　　注释：接受客户请求</p>
<p></p>
<p>　　Winsock1.Accept requestID</p>
<p></p>
<p>　　End Sub</p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　 Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)</p>
<p></p>
<p>　　 注释：对方数据已准备好</p>
<p></p>
<p>　　 注释：可用GetData()/SendData()接收/发送数据</p>
<p></p>
<p>　　 注释：处理客户数据</p>
<p></p>
<p>　　 ……</p>
<p></p>
<p>　　 End Sub</p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　 Private Sub Form_Unload(Cancel As Integer)</p>
<p></p>
<p>　　 Winsock1.Close</p>
<p></p>
<p>　　 End Sub</p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　 注释：客户方</p>
<p></p>
<p>　　 Private Sub Command1.Click()</p>
<p></p>
<p>　　 注释：设置服务器网络名</p>
<p></p>
<p>　　 Winsock1.RemoteHost=“193.168.1.40”</p>
<p></p>
<p>　　 </p>
<p></p>
<p>注释：设置服务器相应服务端口号</p>
<p></p>
<p>Winsock1.RemotePort=2048</p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　注释：向服务器发出连接请求</p>
<p></p>
<p>　　Winsock1.Connect</p>
<p></p>
<p>　　End Sub </p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　Private Sub Winsock1_Connect()</p>
<p></p>
<p>　　注释：服务器响应连接</p>
<p></p>
<p>　　注释：可以进行GetData()/SendData()进行数据传输</p>
<p></p>
<p>　　……</p>
<p></p>
<p>　　End Sub </p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　Private Sub Form1.Unload()</p>
<p></p>
<p>　　 Winsock1.Close</p>
<p></p>
<p>　　End Sub </p>
<p></p>
<p>　　 </p>
<p></p>
<p>　　该段程序演示了用Visual Basic建立TCP连接的基本过程。因本文重在讲解Sockets</p>
<p>编程，故文中未涉及VB自己封装的故障处理函数Winsock1.Erroe(),读者可自行编制。以</p>
<p>上程序段可作为一般TCP应用的基本框架加以扩展使用。</p>
<p></p>
<p>　　Microsoft Visual C＋＋实现过程与前述的VB实现类同。具体实例可见Microsoft </p>
<p>Visual C＋＋ Samples中的chatsrv与chater程序。</p>
<p></p>
<p>　　随着Internet的逐步兴起，Sockets编程必将成为流行的网络编程接口之一。也许您</p>
<p>会发问：ISO的OSI模型又是何等地位呢？笔者的观点是：ISO的OSI模型必将成为网络应</p>
<p>用的统一界面，Sockets接口的广泛应用则为OSI模型开拓了更广泛的应用前景！</p>