[VB.NET]TCP/IP协议进行通讯问题

前端之家收集整理的这篇文章主要介绍了[VB.NET]TCP/IP协议进行通讯问题前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
  1. VisualBasic.Net实现TCP协议[日期:2004-11-17][来自:天极开发者网络]
  2. TCP协议是TCP/IP协议簇中的传输层中的一个协议,也是TCP/IP协议簇最为重要的协议之一。在TCP/IP协议簇中,有一个协议和TCP协议非常类似,这就是UDP协议,网络上进行基于UDP协议的数据传送时,发送方只需知道接收方的IP地址(或主机名)和端口号就可以发送UDP数据包。而接收方只需知道发送方发送数据对应的端口号,就能够接收UDP数据包了。传送数据的双方并不需要进行连接就能够实现数据通讯,这样就导致基于UDP协议的网络应用程序,在传送数据时无法保证可靠性、完整性和安全性。
  3.    而TCP协议却与之相反,TCP协议是一种面向连接的,并提供可靠的、完整的、安全的数据传送的网络协议。它提供可靠字节服务的协议。在网络中通过TCP协议传送数据之前,发送方和接收方之间必须建立连接,这种连接就是所谓的"握手"。网络中TCP应用,如同日常生活中的打电话,在通话之前,首先要拨号、震铃(犹如发送方向接收方提出TCP连接申请,并等待TCP连接申请通过)。直到对方拿起电话时(发送方和接收方的TCP连接已经建立),就可以通话了(传送数据)。本文的主要内容就来介绍在VisualBasic.Net实现基于TCP协议网络数据传送的一种简单的方法
  4.   一.简介本文在实现TCP协议网络应用时使用的类库:
  5.   .NetFrameWorkSDK中提供了很多用以实现TCP协议或与之相关协议的类库,本文就选择五个比较典型,也是比较简单的类加以介绍,即:TcpListener类、TcpClient类、NetworkStream类、StreamReader类和StreamWriter类。TcpClient主要用以提出TCP连接申请。TcpListener主要用以侦听端口号,并接收远程主机的TCP连接申请。NetworkStream类是实现TCP数据传输的基础数据流,StreamReader类作用是通过操作NetworkStream,实现从网络接收数据。StreamWriter类作用是通过操作NetworkStream,实现向网络传输数据。
  6.   1.NetworkStream类:
  7.   NetworkStream类主要是提供用于网络访问的基础数据流。它主要是网络数据传输的载体,并提供同步、异步方式来访问网络数据流。虽然NetworkStream类有构造函数,但在实际情况中更多是通过TcpClient实例的GetStream方法来初始化NetworkStream实例。以下就是使用TcpClient实例的GetStream方法来初始化NetworkStream实例具体代码
  8. DimtcpClientAsTcpClient
  9. DimnsStreamAsNetworkStream
  10. tcpClient=NewTcpClient("www.microsoft.com",8000)
  11. '对远程主机的8000端口提出TCP连接申请
  12. nsStream=tcpClient.GetStream()
  13. 'TCP连接建立后,获得网络数据传输的基础数据流
  14.   在下面介绍的程序示例中,就是利用NetworkStream作为传送和接收数据的载体。而操作这个载体的就是StreamWriter类和StreamReader类。表01和表02是NetworkStream类中一些常用的方法属性及其说明。
  15. 方法说明
  16. BeginRead开始异步读者基础数据流。
  17. BeginWrite开始异步写入基础数据流。
  18. Close关闭流并可选择关闭基础套接字。
  19. EndRead结束异步读取。
  20. EndWrite结束异步写入。
  21. Flush刷新流中的数据。
  22. Read从流中读取数据。
  23. Seek将流的当前位置设置为给定值。
  24. SetLength设置流的长度。
  25. Write将数据写入流。
  26. 表01:NetworkStream类中常用的方法及其说明
  27.   其中"BeginRead""EndRead""BeginWrite""EndWrite"是二对异步方法,起作用分别相当于"Read""Write"方法
  28. 属性说明
  29. CanRead获取当前流是否支持读取。
  30. CanSeek获取流是否支持查找。该属性总是返回false。
  31. CanWrite获取当前流是否支持写入。
  32. DataAvailable获取是否可以在流上读取数据。
  33. Length流上可用数据的长度。
  34. Position获取或设置流中的当前位置。
  35. 表02:NetworkStream类中属性及其说明
  36.   2.StreamReader类:
  37.   StreamReader类能够实现对基础数据流的读操作,从而实现对经过基础数据流传送来的数据。表03是StreamReader类的常用的方法及其说明:
  38. 方法说明
  39. Close关闭StreamReader并释放与阅读器关联的所有系统资源。
  40. DiscardBufferedData允许StreamReader丢弃其当前数据。
  41. Peek返回下一个可用的字符,但不使用它。
  42. Read读取输入流中的下一个字符或下一组字符。
  43. ReadBlock从当前流中读取最大数量的字符并从索引开始将该数据写入缓冲区。
  44. ReadLine从当前流中读取一行字符并将数据作为字符串返回。
  45. ReadToEnd从流的当前位置到末尾读取流。
  46. 表03:NetworkStream类中常用的方法及其说明
  47.   3.StreamWriter类:
  48.   StreamWriter类能够实现对基础数据流的写操作,从而实现提供基础数据流来传送数据。表04是StreamWriter类的常用方法及其说明:
  49. 方法说明
  50. Close关闭当前的StreamWriter和基础流。
  51. Flush清理当前编写器的所有缓冲区,并使所有缓冲数据写入基础流。
  52. Write写入基础数据流。
  53. WriteLine写入重载参数指定的某些数据,后跟行结束符。
  54. 表04:StreamWriter类的常用方法及其说明
  55.   4.TcpClient类:
  56.   TcpClient类主要为TCP网络服务提供客户端连接。TcpClient是类基于Socket类构建,
  57. 它以更高的抽象程度提供TCP服务。TcpClient提供了通过网络连接、发送和接收数据的简单方法。表05和表06分别是TcpClient类常用方法属性及其说明。
  58. 方法说明
  59. Close关闭TCP连接
  60. Connect使用指定的主机名和端口号将客户端连接到TCP主机
  61. GetStream返回用于发送和接收数据的流
  62. 表05:TcpClient类常用的方法
  63. 属性描述
  64. LingerState有关套接字逗留时间的信息
  65. NoDelay一个值,该值在发送或接收缓冲区未满时启用延迟
  66. ReceiveBufferSize接收缓冲区的大小
  67. ReceiveTimeoutTcpClient在启动后为接收数据而等待的时间长度
  68. SendBufferSize发送缓冲区的大小
  69. SendTimeout在您启动发送操作后TcpClient将为接收确认而等待的时间长度
  70. 表06:TcpClient类常用的属性
  71.   5.TcpListener类:
  72.   TcpListener类的主要作用是从TCP网络客户端侦听连接,TcpListener类基于Socket类
  73. 提供更高理念级别的TCP服务。可以使用TcpListener从TCP客户端侦听连接。像FTP和HTTP这样的应用层协议是在TcpListener类的基础上建立的。表7和表8分别是TcpListener类常用方法属性及其说明:
  74. 方法说明
  75. AcceptSocket接受挂起的连接请求
  76. AcceptTcpClient接受挂起的连接请求
  77. Pending确定是否有挂起的连接请求
  78. Start开始侦听网络请求
  79. Stop关闭侦听器
  80. 表7:TcpListener类常用的方法
  81. 属性说明
  82. LocalEndpoint获取当前TcpListener的基础EndPoint
  83. Active获取一个值,该值指示TcpListener是否正主动侦听客户端连接
  84. Server获取基础网络Socket
  85. 表8:TcpListener类常用的属性
  86.   二.VisualBasic.Net实现基于TCP协议数据传送程序的体系结构:
  87.   在下面介绍的用VisualBasic.Net实现基于TCP协议的数据传送程序是由二个子程序组成的。也可以看成是服务器端程序和客户端程序,其中:服务器端程序的功能是侦听端口号,接收远程主要的TCP连接申请,并接收远程主机传送来的文字数据。另外一个子程序,也就是所谓的客户端程序,主要实现向网络的远程主机提出TCP连接申请,并在连接申请通过后,向远程主机传送文字数据。下面来详细介绍VisualBasic.Net实现TCP协议网络数据传送的服务器端程序和客户端程序的具体步骤。
  88.   三.服务器端程序的具体实现步骤:
  89.   服务器端程序的实现关键在于侦听端口号,接收远程主机的TCP连接申请,获得网络数据传输的基础数据流,并通过基础数据流接收数据。接收数据使用的是StreamReader中ReadLine方法,由于ReadLine方法是一个阻塞式的方法,所以在下面具体的实现步骤中,是接收数据是在创建的线程中完成的,具体可参阅下面实现步骤中的第十一和十二步。以下是VisualBasic.Net实现TCP协议客户端程序实现的具体步骤:
  90.   1.启动VisualStudio.Net。
  91.   2.选择菜单文件】|【新建】|【项目】后,弹出【新建项目】对话框。
  92.   3.将【项目类型】设置为【VisualBasic项目】。
  93.   4.将【模板】设置为【Windows应用程序】。
  94.   5.在【名称】文本框中输入【服务器端程序】。
  95.   6.在【位置】的文本框中输入【E:/VS.NET项目】,然后单击【确定】按钮,这样在"E:/VS.NET项目"目录中就产生了名称"服务器端程序"文件夹,并在里面创建了名称"服务器端程序"的项目文件
  96.   7.把VisualStudio.Net的当前窗口切换到【Form1.vb(设计)】窗口,并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件,并执行相应的操作:
  97.   一个Label组件。
  98.   一个StatusBar组件。
  99.   一个ListBox组件。
  100.   一个Button组件,并在这个Button组件拖入Form1的设计窗体后,双击它,则系统会在Form1.vb文件分别产生这个组件的Click事件对应的处理代码
  101.   8.按照表05所示调整窗体中各组件属性的数值:
  102. 组件类型组件名称属性设置结果
  103. FormForm1Text服务器端程序
  104. Form1MaximizeBoxFalse
  105. Form1FormBorderStyleFixedSingle
  106. ButtonButton1Text启动服务
  107. Button1FlatStyleFlat
  108. LabelLabel1Text服务尚未启动
  109. StatusBarStatusBar1Text无连接!
  110. 表05:【服务器端程序】项目中组件设定数值表
  111.   并按照图01中各组件的位置和排列顺序来调整设计窗体中的组件:
  112. 图01:【服务器端程序】项目的设计界面
  113.   9.把VisualStudio.Net的当前窗口切换到Form1.vb的代码编辑窗口,并在Form1.vb文件的最前面添加下列代码,下列代码在Form1.vb中导入程序中要使用的类所在的命名空间:
  114. ImportsSystem.Net.Sockets
  115. '使用到TcpListen类
  116. ImportsSystem.Threading
  117. '使用到线程
  118. ImportsSystem.IO
  119. '使用到StreamReader类
  120.   10.在Form1.vb中创建各种可视组件的代码添加下列代码,下列代码的作用是创建全局使用的实例和变量:
  121. PrivateiPortAsInteger=8000
  122. '定义侦听端口号
  123. PrivatethThreadReadAsThread
  124. '创建线程,用以侦听端口号,接收信息
  125. PrivatetlTcpListenAsTcpListener
  126. '侦听端口号
  127. PrivateblistenerAsBoolean=True
  128. '设定标示位,判断侦听状态
  129. PrivatensStreamAsNetworkStream
  130. '创建接收的基本数据流
  131. PrivatesrReadAsStreamReader
  132. '从网络基础数据流中读取数据
  133. PrivatetcClientAsTcpClient
  134.   11.在Form1.vb中的InitializeComponent过程之后添加下列代码,下列代码的作用是定义Listen过程,此过程的作用是侦听本地机的8000端口号,接受网络主机的TCP连接申请,并接收从建立申请的远程主机发送来的文本数据:
  135. PrivateSubListen()
  136. Try
  137.  tlTcpListen=NewTcpListener(iPort)
  138.  '以8000端口号来初始化TcpListener实例
  139.  tlTcpListen.Start()
  140.  '开始监听
  141.  StatusBar1.Text="正在监听..."
  142.  tcClient=tlTcpListen.AcceptTcpClient()
  143.  '通过TCP连接请求
  144.  nsStream=tcClient.GetStream()
  145.  '获取用以发送、接收数据的网络基础数据流
  146.  srRead=NewStreamReader(nsStream)
  147.  '以得到的网络基础数据流来初始化StreamReader实例
  148.  StatusBar1.Text="已经建立TCP连接!"
  149.  '循环侦听
  150.  Whileblistener
  151.   DimsMessageAsString=srRead.ReadLine()
  152.   '从网络基础数据流中读取一行数据
  153.   If(sMessage="STOP")Then
  154.    tlTcpListen.Stop()
  155.    '关闭侦听
  156.    nsStream.Close()
  157.    srRead.Close()
  158.    '释放资源
  159.    StatusBar1.Text="无连接!"
  160.    thThreadRead.Abort()
  161.    '中止线程
  162.    Return
  163.   Else
  164.    '判断是否为断开TCP连接控制码
  165.    DimsTimeAsString=DateTime.Now.ToShortTimeString()
  166.    '获取接收数据时的时间
  167.    ListBox1.Items.Add(sTime+""+sMessage)
  168.   EndIf
  169.  EndWhile
  170. CatchexAsSystem.Security.SecurityException
  171.  MessageBox.Show("侦听失败!","错误")
  172. EndTry
  173. EndSub
  174.   12.用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码,下列代码功能是用上面定义的Listen过程来初始化并启动线程,接收建立TCP连接的远程主机发送来的文本数据:
  175. PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
  176.  thThreadRead=NewThread(NewThreadStart(AddressOfListen))
  177.  '以Listen过程来初始化线程实例
  178.  thThreadRead.Start()
  179.  '启动线程
  180.  Button1.Enabled=False
  181.  Label1.Text="服务已经启动!"
  182.  Label1.ForeColor=Color.Red
  183. EndSub
  184.   13.用下列代码替换Form1.vb中的Dispose过程,下面代码的作用是重新定义Dispose过程,在Dispose过程手动清除使用的资源,回收垃圾
  185. ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
  186.  Try
  187.   thThreadRead.Abort()'中止线程
  188.   tlTcpListen.Stop()'关闭侦听
  189.   tcClient.Close()
  190.   nsStream.Close()
  191.   srRead.Close()'释放资源
  192.  Catch
  193.  EndTry
  194.  IfdisposingThen
  195.   IfNot(componentsIsNothing)Then
  196.    components.Dispose()
  197.   EndIf
  198.  EndIf
  199.  MyBase.Dispose(disposing)
  200. EndSub
  201.   14.至此在上述步骤都正确执行后,【服务器端程序】项目的全部工作就完成了。编译、生成可执行文件后,接着介绍客户端程序的实现步骤。
  202.   四.客户端端程序的具体实现步骤:
  203.   客户端端序的实现关键在于向网络中的远程主机提出TCP连接申请,并在申请通过后,得到传输数据的基础数据流,并通过对基础数据流进行写操作向远程主机传送文本数据。由于在客户端程序中没有使用阻塞式的方法,所以程序中没有使用到线程。对远程主机提出TCP连接申请的具体实现方法请参阅以下第步;对基础数据流进行写操作,从而实现向远程主机传送文本数据的方法请参阅以下第步。下面客户端程序的具体实现步骤:
  204.   1.启动VisualStudio.Net。
  205.   2.选择菜单文件】|【新建】|【项目】后,弹出【新建项目】对话框。
  206.   3.将【项目类型】设置为【VisualBasic项目】。
  207.   4.将【模板】设置为【Windows应用程序】。
  208.   5.在【名称】文本框中输入【客户端程序】。
  209.   6.在【位置】的文本框中输入【E:/VS.NET项目】,然后单击【确定】按钮,这样在"E:/VS.NET项目"目录中就产生了名称"客户端程序"文件夹,并在里面创建了名称"客户端程序"的项目文件
  210.   7.把VisualStudio.Net的当前窗口切换到【Form1.vb(设计)】窗口,并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件,并执行相应的操作:
  211.   二个Label组件。
  212.   二个TextBox组件。
  213.   一个StatusBar组件。
  214.   二个Button组件,并在这二个Button组件拖入Form1的设计窗体后,双击它们,则系统会在Form1.vb文件分别产生这二个组件的Click事件对应的处理代码
  215.   8.按照表01所示调整窗体中各组件属性的数值:
  216. 组件类型组件名称属性设置结果
  217. FormForm1Text客户端程序
  218. Form1MaximizeBoxFalse
  219. Form1FormBorderStyleFixedSingle
  220. ButtonButton1Text连接
  221. Button1FlatStyleFlat
  222. Button2Text发送
  223. Button2FlatStyleFlat
  224. LabelLabel1Text服务器IP地址:
  225. Label2Text信息:
  226. StatusBarStatusBar1Text无连接!
  227. TextBoxTextBox1Text""
  228. TextBox1BorderStyleFixedSingle
  229. TextBox2Text""
  230. TextBox2BorderStyleFixedSingle
  231. 表06:【客户端程序】项目中组件设定数值表
  232.   并按照图02中各组件的位置和排列顺序来调整设计窗体中的组件:
  233.   9.把VisualStudio.Net的当前窗口切换到Form1.vb的代码编辑窗口,并在Form1.vb文件的最前面添加下列代码,下列代码在Form1.vb中导入程序中要使用的类所在的命名空间:
  234. ImportsSystem.Net.Sockets
  235. '使用到TcpListen类
  236. ImportsSystem.IO
  237. '使用到StreamWriter类
  238. ImportsSystem.Net
  239. '使用IPAddress类、IPHostEntry类等
  240.   10.在Form1.vb中创建各种可视组件的代码添加下列代码,下列代码的作用是创建全局使用的实例和变量:
  241. PrivateswWriterAsStreamWriter
  242.  '用以向网络基础数据流传送数据
  243.  PrivatensStreamAsNetworkStream
  244.  '创建发送数据的网络基础数据流
  245.  PrivatetcpClientAsTcpClient
  246.  '通过它实现向远程主机提出TCP连接申请
  247.  PrivatetcpConnectAsBoolean=False
  248.  '定义标识符,用以表示TCP连接是否建立
  249.   11.用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码,下列代码功能是向远程主机的8000端口号提出TCP连接申请,并在连接建立后,初始化基础数据流:
  250. PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
  251.  DimipRemoteAsIPAddress
  252.  DimsHostNameAsString
  253.  DimtcpClientAsTcpClient
  254.  Try
  255.   ipRemote=IPAddress.Parse(TextBox1.Text)
  256.  Catch
  257.   MessageBox.Show("输入的IP地址不合法!","错误提示!")
  258.   Return
  259.   '判断给定的IP地址的合法性
  260.  EndTry
  261.  Try
  262.   tcpClient=NewTcpClient(TextBox1.Text,8000)
  263.   '对远程主机的8000端口提出TCP连接申请
  264.   nsStream=tcpClient.GetStream()
  265.   '通过申请,并获取传送数据的网络基础数据流
  266.   swWriter=NewStreamWriter(nsStream)
  267.   '使用获取的网络基础数据流来初始化StreamWriter实例
  268.   Button1.Enabled=False
  269.   Button2.Enabled=True
  270.   tcpConnect=True
  271.   StatusBar1.Text="已经连接!"
  272.  Catch
  273.   MessageBox.Show("无法和远程主机8000端口建立连接!","错误提示!")
  274.   Return
  275.  EndTry
  276. EndSub
  277.   12.用下列代码替换Form1.vb中的Button2的Click事件对应的处理代码,下列代码功能是对基础数据流进行写操作,实现向远程主机传输文本数据:
  278. PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
  279.  If(TextBox2.Text<>"")Then
  280.   swWriter.WriteLine(TextBox2.Text)
  281.   '刷新当前数据流中的数据
  282.   swWriter.Flush()
  283.   TextBox2.Text=""
  284.  Else
  285.   MessageBox.Show("发送信息不能为空!","错误提示!")
  286.  EndIf
  287. EndSub
  288.   13.用下列代码替换Form1.vb中的Dispose过程,下面代码的作用是重新定义Dispose过程,在过程中判断TCP连接是否仍然建立,如果建立则向远程主机传送控制码,断开连接,并手动清除使用的资源,回收垃圾
  289. ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
  290.  IftcpConnectThen
  291.   swWriter.WriteLine("STOP")
  292.   '发送控制码
  293.   swWriter.Flush()
  294.   '刷新当前数据流中的数据
  295.   nsStream.Close()
  296.   swWriter.Close()
  297.   '清除资源()
  298.  EndIf
  299.  IfdisposingThen
  300.   IfNot(componentsIsNothing)Then
  301.    components.Dispose()
  302.   EndIf
  303.  EndIf
  304.  MyBase.Dispose(disposing)
  305. EndSub
  306.   14.至此【客户端程序】就完成了。在正确编译项目后。就可以选择局域网中任二台计算机来测试了,一台运行客户端程序,一台运行服务器端程序。在服务器端程序运行后,单击【启动服务】按钮,启动服务后。在客户端程序的【服务器IP地址】文本框中输入网络中运行服务器端程序主机对应的IP地址后,单击【连接】按钮,就和启动服务的服务器端程序建立TCP连接,此时就可以在客户端程序的【信息】文本框中输入文本信息后,单击【发送】按钮就能够把文本信息传送到服务器端了。图03和图04分别是客户端程序和服务器端程序运行后进行通讯时的界面:
  307. 图03:【服务器端程序】的运行界面
  308. 图04:【客户端程序的】的运行界面
  309.   五.总结:
  310.   虽然本文用VisualBasic.Net实现一个简单的基于TCP协议的网络应用程序。但程序中使用的是NetworkStream作为载体,通过StreamWriter和StreamReader通过操作这个载体从而实现数据传输和接收。这种实现TCP协议方法虽然比较简单,但却无法回避NetworkStream作为网络传输、接收数据载体的一个致命的缺陷,那就是NetworkStream只能传输基于文本类型的数据,如果要传输基于字节的数据,使用这种方法就勉为其难了。而套接字(Socket)就能够胜任这项工作,套接字不仅能够实现各种类型数据在网络上的传输和接收,也是实现网络中其他应用协议的关键。诸位若想真正成为网络编程的高手,必须掌握Socket的使用方法。最后希望本文能够开启您编写网络应用程序之门,对您掌握更深层次网络编程有所帮助。
原文链接:https://www.f2er.com/vb/264398.html

猜你在找的VB相关文章