正确编译上述代码还需要在源文件的头部加入使用命名空间的引用，才能正确使用命名空间中的所有枚举、结构、类或模块等。
Imports System.net.Sockets ‘<-添加需要导入的命名空间
Imports System.Text ‘<-添加需要导入的命名空间
Public Class Form1
…… |
跟踪调试PPC程序需要在适当的模拟器下进行，譬如系统默认的PocketPC2002 模拟器，程序调试无误后可以连接到实际的PocketPC设备运行。实际部署到PPC设备需要在连接的桌面电脑上安装Microsoft ActiveSync将程序传输到用户目录中。
2、创建桌面服务端程序
启动Visual Studio .Net 2003，新建Visaul Basic项目，并选择“Windows应用程序”创建项目。项目创建完后Visaul Studio.Net会创建一个默认的主窗体Form1，在窗体上分别放置三个Label控件、两个TextBox控件、一个列表框控件和一个Button控件。
创建全局的TcpListener对象的实例来侦听特定的端口，代码片段如下：
‘创建在本机IP地址和端口侦听的TcpListener对象的实例
Listener = New TcpListener(“192.200.0.100”, 10200)
'开始侦听
Listener.Start()
‘侦听状态标志
Listening = True
Label1.Text = "正在 192.200.0.100：10200 处侦听....."
…… |
通过计时器定时检测侦听器有无连接请求并启用多线程来处理接收到的数据，代码片段如下： '声明创建线程时，使用 ThreadStart 委托作为其唯一参数的构造函数创建 Thread 类的新实例
Dim CurThreadStart As ThreadStart
Dim CurThread As Thread
'检测侦听器是否有挂起的连接请求，没有则退出计时器事件
If Not Listener.Pending() Then
Exit Sub
End If
'有连接的请求则将计时器暂停，准备进行处理
tmProcessRequest.Enabled = False
'创建线程委托，传递需要操作的过程的地址
CurThreadStart = New ThreadStart(AddressOf ProcessRequest)
CurThread = New Thread(CurThreadStart)
'开始一个线程
CurThread.Start()
'重新启动计时器
tmProcessRequest.Enabled = True |
将计时器触发事件的频率Interval（以毫秒为单位）适当调节可以改变服务程序响应连接请求的快慢。
计时器不断循环，一旦发现有连接的请求就会创建一个线程专门来处理这个连接，创建线程时需要传递处理连接的过程或函数的地址以被线程调用。
上一页 [1] [2] [3] [4] 下一页
 【责编:Youping】 |
