科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件基于VB的分布式监控系统通信设计

基于VB的分布式监控系统通信设计

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文介绍了如何利用VB实现分布式监控系统的多种通信功能

作者:wjgaw 来源:论坛 2007年10月14日

关键字:

  • 评论
  • 分享微博
  • 分享邮件
4. 网络通信

  VB6.0与旧版本相比较,最明显的特点是增加了强大的网络功能,将其用于分布式监控系统中可以轻松地实现远程通信。VB的WINSOCK控件有效屏蔽了对WINDOWS套接字的低层操作,可方便地建立起网络中任意两个具有唯一IP地址节点间的连接,并通过UDP或TCP协议进行数据交换,可用于创建Client/Server应用程序。

  本文举分布式监控系统中节点间通信的实例,其中节点A(IP地址202.114.102.134)作为服务器负责某一区域的数据采集与处理,程序内有一名为TCPServer的Winsock控件;节点B(IP地址202.114.102.135)是同级或上一级的某一节点,作为客户机,其程序内有一名为TCPClient的Winsock控件。

  节点A服务器核心程序如下:

  (1)初始化程序

tcpserver(0).RemoteHostIP = 202.114.102.135
tcpserver(0).LocalPort = 1001 'tcpserver(0)专用于侦听
tcpserver(0).Listen

  (2)发送数据程序

tcpserver(Index).SendData Text1.Text

  (3)处理客户机连接请求程序

Private Sub TCPServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Load tcpserver(Index)
tcpserver(Index).Accept requestID
End Sub

  (4)客户机数据到达处理程序

Private Sub TCPServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim RD As String
tcpserver(Index).GetData RD, vbString
txtRD.text=RD
tcpserver(Index).SendData RD
End Sub

  (5)关闭连接程序

Private Sub TCPServer_Close(Index As Integer)
tcpserver(Index).Close
Unload tcpserver(Index)
End Sub

  以上程序着重说明Winsock控件的主要属性、方法和事件,如要实现多进程(多个客户程序同时运行),可应用创建控件数组来代表已连接的控件实例的方法处理。

  节点B客户机核心程序如下:

Private ConnectFlag As Boolean '设置判断是否连接标志

  (1)初始化程序

TCPClient.RemoteHost IP= 202.114.102.134 '远程计算机IP地址
TCPClient.RemotePort = 1001 '远程计算机端口
ConnectFlag = False

  (2)申请连接程序

If Not ConnectFlag Then
TCPClient.Close
TCPClient.Connect
Do
DoEvents
Loop Until TCPClient.State = sckConnected
ConnectFlag = True
End Sub

  (3)数据到达处理程序

Private Sub TCPClient_DataArrival(ByVal bytesTotal As Long)
Dim RD As String
TCPClient.GetData RD, vbString
txtRD.text = RD
End Sub

  (4)发送数据程序

TCPClient.SendData txtSD.Text

  (5)关闭连接程序

Private Sub TCPClient_Close()
TCPClient.Close
Do
DoEvents
Loop Until TCPClient.State = sckClosed
ConnectFlag = False
End Sub
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章