| | | | | | | [文章信息] | | | 作者: | 阿虎 | | 时间: | 2003-12-29 | | 出处: | 天极开发者网络 | | 责任编辑: | 方舟 | |
| [文章导读] | | | 本文的主要内容就来介绍在Visual Basic .Net实现基于TCP协议网络数据传送的一种简单的方法 | |
| |
|
| | | |
|
|
|
|
|
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. 至此在上述步骤都正确执行后，【服务器端程序】项目的全部工作就完成了。编译、生成可执行文件后，接着介绍客户端程序的实现步骤。
|
|
|
|
|
|
|
|
