Visual Basic.Net实现TCP协议

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本文的主要内容就来介绍在Visual Basic .Net实现基于TCP协议网络数据传送的一种简单的方法

作者：阿虎来源：天极开发者网络 2007年11月9日

关键字：

12. 用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码，下列代码功能是用上面定义的Listen过程来初始化并启动线程，接收建立TCP连接的远程主机发送来的文本数据：

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　thThreadRead = New Thread ( New ThreadStart ( AddressOf Listen ) )
　'以Listen过程来初始化线程实例
　thThreadRead.Start ( )
　'启动线程
　Button1.Enabled = False
　Label1.Text = "服务已经启动！"
　Label1.ForeColor = Color.Red
End Sub

　　13. 用下列代码替换Form1.vb中的Dispose过程，下面代码的作用是重新定义Dispose过程，在Dispose过程手动清除使用的资源，回收垃圾：

Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
　Try
　　thThreadRead.Abort ( ) '中止线程
　　tlTcpListen.Stop ( ) '关闭侦听
　　tcClient.Close ( )
　　nsStream.Close ( )
　　srRead.Close ( ) '释放资源
　Catch
　End Try
　If disposing Then
　　If Not ( components Is Nothing ) Then
　　　components.Dispose ( )
　　End If
　End If
　MyBase.Dispose ( disposing )
End Sub

　　14. 至此在上述步骤都正确执行后，【服务器端程序】项目的全部工作就完成了。编译、生成可执行文件后，接着介绍客户端程序的实现步骤。

VIP专区

VIP用户

普通用户

邮件订阅

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

重磅专题

往期文章

Visual Basic.Net实现TCP协议

业界热点: