主题：[求助]请教socket问题

改成

 

Private _Clients As new System.Collections.SortedList

http://blog.csdn.net/action20/article/details/17120463

将上面的代码分别写到了两个FT项目的全局代码中

 

问题：如何引用并写运行代码？谢谢

 

 

 

此主题相关图片如下：qq截图20170831114654.png

请看懂代码吧。比如

 

MyServer = New Sub New(10086, 100, 100, 100)  

MyServer.StartServer

服务器启动按钮代码：

MyServer = New TcpServer(”66666“,20,32*1024,5)
MyServer.StartServer ''启动

客户端连接服务器代码：

MyClient = New TcpClient(”127.0.0.1“,”66666“,32*1024,5)
MyClient.ConnectHost()

客户端无法连接上服务器，测试：

MessageBox.Show(myclient.Connected())为False

 

不知道是什么原因？

原来的代码那里，加上msgbox弹出值看看。看在哪里出问题。

 

如果有问题，具体事例上传上来测试。

老师，还是没有解决问题，帮忙看一下，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:socket tcpip通信.zip

客户端

 

Dim ip As String = e.Form.Controls("TextBox1").value
Dim port As String = e.Form.Controls("TextBox2").value

Try
    MyClient = New TcpClient(ip,port,32*1024,10)
   
    MessageBox.Show(myclient.Connected())
Catch ex As Exception
    MessageBox.Show(ex.Tostring)
End Try

 

老师：客户端执行断开连接

按钮代码：MyClient.close，结果报错，未将对象示例

你要先连接才能断开连接的。或者你加入判断 If myClient IsNot Nothing Then