使用指定的远程网络终结点将客户端连接到远程 TCP 主机。
Overloads Public Sub Connect(IPEndPoint)
使用指定的 IP 地址和端口号将客户端连接到 TCP 主机。
Overloads Public Sub Connect(IPAddress, Integer)
将客户端连接到指定主机上的指定端口。
Overloads Public Sub Connect(String, Integer)
我们使用指定的本地主机IP地址和端口号将客户端连接到TCP主机，在堆栈中创建TcpClient对象的实例，当执行退出当前过程或函数时，堆栈中的资源会自动清除，保证内存空间被正确释放。连接成功后要发送和接收数据，使用 GetStream 方法来获取一个NetworkStream，NetworkStream为基础数据流，调用 NetworkStream 的 Write 和 Read 方法与远程主机之间发送和接收数据。当发送操作结束后使用 TcpClient的Close 方法断开连接、关闭对象并释放与 TcpClient 关联的所有资源。
双击“连接”按钮，编写连接代码，代码片段如下：
‘创建TcpClient对象的实例
Client = New TcpClient
‘通过计算机名称和端口号连接到指定的计算机
Client.Connect(“192.200.0.100”,10200)
SendData =”由PPC传递过来的数据 – Author：Risen”
‘按一定的编码规则对要传递的数据进行编码 Buffer = Encoding.UTF8.GetBytes(SendData)
‘向已连接的服务程序发送数据
Client.GetStream().Write(Buffer, 0, Buffer.Length)
‘DataAvailable 指示NetworkStream 上是否有可用的数据。如果可以在流上读取数据，则为 true；
‘否则为 false，只要有数据存在就等待传输完毕
While Not Client.GetStream.DataAvailable()
Application.DoEvents()
End While
‘接收由服务程序传递回客户端的数据并显示在对话框上
If Client.GetStream.DataAvailable() Then
Client.GetStream().Read(InBuff, 0, InBuff.Length)
rtndata = "服务程序已经成功收到指令，在" & System.Text.Encoding.Default.GetString(InBuff, 0, InBuff.Length)
MsgBox(rtndata)
End If
‘断开连接、关闭对象并释放与 TcpClient 关联的所有资源
Client.Close()
正确编译上述代码还需要在源
Overloads Public Sub Connect(IPEndPoint)
使用指定的 IP 地址和端口号将客户端连接到 TCP 主机。
Overloads Public Sub Connect(IPAddress, Integer)
将客户端连接到指定主机上的指定端口。
Overloads Public Sub Connect(String, Integer)
我们使用指定的本地主机IP地址和端口号将客户端连接到TCP主机，在堆栈中创建TcpClient对象的实例，当执行退出当前过程或函数时，堆栈中的资源会自动清除，保证内存空间被正确释放。连接成功后要发送和接收数据，使用 GetStream 方法来获取一个NetworkStream，NetworkStream为基础数据流，调用 NetworkStream 的 Write 和 Read 方法与远程主机之间发送和接收数据。当发送操作结束后使用 TcpClient的Close 方法断开连接、关闭对象并释放与 TcpClient 关联的所有资源。
双击“连接”按钮，编写连接代码，代码片段如下：
‘创建TcpClient对象的实例
Client = New TcpClient
‘通过计算机名称和端口号连接到指定的计算机
Client.Connect(“192.200.0.100”,10200)
SendData =”由PPC传递过来的数据 – Author：Risen”
‘按一定的编码规则对要传递的数据进行编码 Buffer = Encoding.UTF8.GetBytes(SendData)
‘向已连接的服务程序发送数据
Client.GetStream().Write(Buffer, 0, Buffer.Length)
‘DataAvailable 指示NetworkStream 上是否有可用的数据。如果可以在流上读取数据，则为 true；
‘否则为 false，只要有数据存在就等待传输完毕
While Not Client.GetStream.DataAvailable()
Application.DoEvents()
End While
‘接收由服务程序传递回客户端的数据并显示在对话框上
If Client.GetStream.DataAvailable() Then
Client.GetStream().Read(InBuff, 0, InBuff.Length)
rtndata = "服务程序已经成功收到指令，在" & System.Text.Encoding.Default.GetString(InBuff, 0, InBuff.Length)
MsgBox(rtndata)
End If
‘断开连接、关闭对象并释放与 TcpClient 关联的所有资源
Client.Close()
正确编译上述代码还需要在源
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
