庞大资源库的计算机教程网站!
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]
首页 操作系统 程序设计 图形图像 媒体动画 机械电子 WEB开发 数 据 库 办公系列 路由技术 网络原理 网络应用
认证考试 安全技术
首页>程序设计>VB专区>控件集锦>正文
资料搜索
Google搜索
Google
返回上级列表

推荐文章

快速保存网页中所有图片的方法
Windows中让光驱巧妙“隐身”技
防范非法用户入侵Win 2000/XP系
两款比较典型的ASP木马防范方法
有关表格边框的css语法整理
Windows XP中可以被禁用的服务
SQL Server导出导入数据方法
Javascript所有对象的属性的获
网页(HTML)中的特殊字符
与篮球共舞,尽显模式本色
QQ病毒的手工清除方法
Photoshop为极品美女打造性感睫
天衣无缝:IIS与PHP水火也相容
SQL Server存储过程编写和优化

在VB的Winsock编程框架

 作者:米乐    日期:2005-8-4 11:23:40
字号选择〖 〗/ 双击滚屏 单击停止   
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模型开拓了更广泛的应用前景!
上一篇:如何用Mscomm控件检测(联接、挂断)    下一篇:用VB的WINSOCK控件发送大于8K的BMP  
[发送给好友]  [关闭窗口]  [返回顶部]   转载请注明来源:www.it00.com   
特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。
责任编辑: 原点 投稿作者: 米乐
信息来源: 网络 录入时间: 2005-8-4 11:23:40
关于我们 - 广告服务 - 版权申明 - 网站地图 - 联系方式 - 总编信箱 - 会员投稿