作者neverfar (VenusDoom)
看板Visual_Basic
标题[.NET] socket传接受值问题
时间Thu May 24 23:44:02 2012
我在写个Server跟Client关系的程式
想从Client传东西过去给Server
Server
Dim ServerSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp) '建立socket
Dim ep As New IPEndPoint(IPAddress.Parse("140.117.128.70"), 3027) 'ip,port
ServerSocket.Bind(ep)
ServerSocket.Listen(3)
Dim buffer(255) As Byte
Dim bytesReceived As String = ServerSocket.Receive(buffer)
Dim result As String = Encoding.UTF8.GetString(buffer, 0, bytesReceived)
'我是这样写 不知道为什麽接不到
'我怀疑是我receive引数用错 可是我不知道该怎麽使用 微软教学只说那边要bytes
================================================
Client
Dim ClientSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp) '建立socket
Dim ep As New IPEndPoint(IPAddress.Parse("140.117.128.70"), 3027) 'ip,port
ClientSocket.Connect(ep)
ClientSocket.Send(Encoding.UTF8.GetBytes("aaa")) '传aaa字串过去server
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.117.199.49
※ 编辑: neverfar 来自: 140.117.199.49 (05/25 00:05)
※ 编辑: neverfar 来自: 140.117.199.49 (05/25 00:14)
※ 编辑: neverfar 来自: 140.117.199.49 (05/25 00:21)
1F：推 fumizuki:监听後应要等候连线要求并接受连线才开始收发资料 05/26 13:02
2F：→ fumizuki:不是监听後就直接接收资料 05/26 13:03
4F：→ neverfar:我研究一下 ~ 谢谢 05/26 15:34
5F：→ neverfar:我是要同步接收跟非同步不知道有没有一样 05/26 15:38
6F：→ neverfar:成功了....我写完还是不知道为什麽要这样用 = = 05/26 16:49
=======================================================
Dim ServerSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp) '建立socket
Dim ep As New IPEndPoint(IPAddress.Parse("140.117.129.231"), 3027)
'ip,port
ServerSocket.Bind(ep)
ServerSocket.Listen(3)
Dim receiveBytes(99999999) As Byte
Dim hostsocket As Socket = ServerSocket.Accept()
hostsocket.Receive(receiveBytes)
Dim strReturnData As String = Encoding.UTF8.GetString(receiveBytes)
※ 编辑: neverfar 来自: 140.117.129.231 (05/26 17:01)