ตอนนี้ เหมือนว่าผมส่งได้ละ แต่ทำไงมันก็ไม่ตอบกลับดูโค๊ดที่ผมแก้แล้วกัน มันติดตรงที่ server stream ทุกอันเลยย ทำไงก็รับไม่ได้
Code (VB.NET)
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Dim clientSocket As New System.Net.Sockets.TcpClient()
Dim serverStream As NetworkStream <<<<<<<<<<<<<<<<<
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim serverStream As NetworkStream = clientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes("test")
serverStream.Write(outStream, 0, outStream.Length) <<<<<<<<<<<<<<<<<
serverStream.Flush() <<<<<<<<<<<<<<<<<
Dim inStream(10024) As Byte
serverStream.Read(inStream, 0, CInt) <<<<<<<<<<<<<<<<<
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)
msg("Data from Server : ")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
msg("server2")
clientSocket.Connect("127.0.0.1", 79)
Label1.Text = "Client Socket Program - Server Connected ..."
End Sub
Sub msg(ByVal mesg As String)
RichTextBox1.Text = RichTextBox1.Text + Environment.NewLine + " >> " + mesg
End Sub
End Class
ตอนนี้ เหมือนว่าผมส่งได้ละ แต่ทำไงมันก็ไม่ตอบกลับดูโค๊ดที่ผมแก้แล้วกัน มันติดตรงที่ server stream ทุกอันเลยย ทำไงก็รับไม่ได้
Code (VB.NET)
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Dim clientSocket As New System.Net.Sockets.TcpClient()
Dim serverStream As NetworkStream <<<<<<<<<<<<<<<<<
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim serverStream As NetworkStream = clientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes("test")
serverStream.Write(outStream, 0, outStream.Length) <<<<<<<<<<<<<<<<<
serverStream.Flush() <<<<<<<<<<<<<<<<<
Dim inStream(10024) As Byte
serverStream.Read(inStream, 0, CInt) <<<<<<<<<<<<<<<<<
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)
msg("Data from Server : ")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
msg("server2")
clientSocket.Connect("127.0.0.1", 79)
Label1.Text = "Client Socket Program - Server Connected ..."
End Sub
Sub msg(ByVal mesg As String)
RichTextBox1.Text = RichTextBox1.Text + Environment.NewLine + " >> " + mesg
End Sub
End Class