 |
|
ช่วยอธิบายให้ฟังหน่อยครับ ว่าแต่ละตัวคืออะไร ผมจะฝึกเขียน socket หนังสือหาแล้ว ไม่มีขาย |
|
 |
|
|
 |
 |
|
ผมอยากเขียนที่มันเป็นได้ ทั้ง client and server ไปในตัวเลยอ่ะครับ พร้อมกับสร้าง event
|
 |
 |
 |
 |
Date :
2010-04-07 17:28:00 |
By :
finaladd |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ตัวลูกที่ button พอกดก็รับค่าจาก server และส่งค่าไป server
ตัวแม่ รันตลอดเวลาเพื่อรอให้ตัวลูกส่งค่ามา (แล้วมันออกจาก while ไงอะ)
มันก็มีแค่ client connect ไป server
server ก็ accept client แล้วก็รับส่งข้อมูลกัน สำคัญคือ ip ของ server กับ port ต้องตรงกัน
จากนั้นก็ใช้ความสามารถของ .net framwork เลยมี class มาให้ใช้อยู่แล้ว อย่างมากก็เปิด msdn ดู
|
 |
 |
 |
 |
Date :
2010-04-08 08:51:22 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ผมลองไปแก้ ให้มันส่งข้อความไปที่เว็บของผม แล้วก็ไม่มีอะไรตอบกลับมาเลย
ทำยังไงให้มันตอบกลับมา เราต้องไปแก้ตรงไหนหรอครับ ช่วยบอกหน่อยครับ งมมาหลายวันละ
|
 |
 |
 |
 |
Date :
2010-04-08 16:22:27 |
By :
finaladd |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
win app นี่แหละครับ แต่ผมจะลองให้มันติดต่อกับเว็บผมดูอ่ะ แต่ติดต่อไม่ได้
|
 |
 |
 |
 |
Date :
2010-04-08 18:29:10 |
By :
finaladd |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ไม่มีใครช่วยผมเลย
|
 |
 |
 |
 |
Date :
2010-04-09 23:33:24 |
By :
finaladd |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ตอนนี้ เหมือนว่าผมส่งได้ละ แต่ทำไงมันก็ไม่ตอบกลับดูโค๊ดที่ผมแก้แล้วกัน มันติดตรงที่ 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
|
 |
 |
 |
 |
Date :
2010-04-09 23:50:07 |
By :
finaladd |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ลองโหลด Ebook ไปอ่านดูครับ
|
 |
 |
 |
 |
Date :
2011-04-04 06:18:48 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|