中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > 编程语言 > Visual Basic > 网络
Winsock编程框架
作者:firetoucher 时间:2001-11-04 10:47 出处:互联网 责编:chinaitpower
              摘要:Winsock编程框架

 


  Microsoft的Windows Sockets API是Windows下的网络应用程序接口,为了适用于
Windows下的消息机制和异步的I/O选择操作,Windows Sockets API在功能上扩充了将近
20个函数,其中扩充的部分均冠以前缀WSA(Windows Sockets Asynchronous),如
WSAStartup、WSAClean等,充分体现了Widnows的优越性。此外,Windows Sockets API有
16位版和32位版两种,16位版是单进程的,32位版则提供了多线程下的安全保护。

  Microsoft Visual Basic提供了用于Windows Sockets编程的可用控件——Winsock控
件。该控件为用户提供了访问TCP和UDP网络的极其方便的途径。并且适用于Microsoft 
Access、Visual Basic、Visual C++和Visual FoxPro等多种可视化环境。通过Winsock
控件编制C/S程序,程序员无须了解TCP或低级Winsock APIs调用实现的细节,如用户无
须考虑网络字节顺序与本机字接顺序便可直接进行数据的传送。用该控件实现网间进程通信
极其方便。

  在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应用的基本框架加以扩展使用。

  Microsoft Visual C++实现过程与前述的VB实现类同。具体实例可见Microsoft 
Visual C++ Samples中的chatsrv与chater程序。

  随着Internet的逐步兴起,Sockets编程必将成为流行的网络编程接口之一。也许您
会发问:ISO的OSI模型又是何等地位呢?笔者的观点是:ISO的OSI模型必将成为网络应
用的统一界面,Sockets接口的广泛应用则为OSI模型开拓了更广泛的应用前景!
关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有