Heyho, ist schon lang her das ich wieder on war... Gott das alte Design gefiel mir Besser
Aber nun hab ich ein Problem bzw.. eher eine Frage.
Ich versuch grad mir eine kleine Chatanwendung zu basteln die am Ende Dateien Transferieren soll und Nachrichten schreiben kann(Standart halt.)
Ich hab wenig erfahrung in TCP Sockets u.s.w - bin eher der 3D Animator... :x
Mein bisjetziger Stand ist. Ich hab bisjetzt einen Server der auf Client/s wartet. Und eine Chatanwendung die wunderbarfunktioniert
Nur der Server acceptiert nur ein Client danach listet er ja nicht mehr darauf.
Der Server wird im Sekundären Thread ausgeführt damit meine Form nicht ein auf Schneemann macht.
Sieht so aus:
Meine Variablen
Mein MainServer
Nun meine Frage -> Was muss ich machen damit mehr als nur einer Connecten kann?
Anmerkung: Das Auskommentierung war der Versuch mein Hirn zu benutzen um selbst drauf zu kommen...
Aber nun hab ich ein Problem bzw.. eher eine Frage.
Ich versuch grad mir eine kleine Chatanwendung zu basteln die am Ende Dateien Transferieren soll und Nachrichten schreiben kann(Standart halt.)
Ich hab wenig erfahrung in TCP Sockets u.s.w - bin eher der 3D Animator... :x
Mein bisjetziger Stand ist. Ich hab bisjetzt einen Server der auf Client/s wartet. Und eine Chatanwendung die wunderbarfunktioniert
Nur der Server acceptiert nur ein Client danach listet er ja nicht mehr darauf.
Der Server wird im Sekundären Thread ausgeführt damit meine Form nicht ein auf Schneemann macht.
Sieht so aus:
Meine Variablen
VB.NET-Quellcode
- Public Shared TCPStream As NetworkStream
- Public Shared TCPWriter As StreamWriter
- Public Shared TCPReader As StreamReader
- Public Shared TCPServer As TcpListener
- Public Shared IPEndPointer As IPEndPoint
- Public Shared IPPort As Integer
- Public Shared ServerThread As Threading.Thread
- Public Shared LogField As TextBox
- Public Shared TCPClient As New TcpClient
- 'Public Shared TCPClients As New List(Of ConnectedClients)
- Public Shared ServerIP As String
- Public Shared ServerPort As Integer
- Public Shared LoginName As String
- Public Shared RecieverField As TextBox
- Delegate Sub LoggerDelegate(ByVal Target As TextBox, ByVal Text As String)
Mein MainServer
VB.NET-Quellcode
- Public Shared Sub MainServer()
- Try
- TCPServer = New TcpListener(IPEndPointer)
- TCPServer.Start()
- TCPClient = TCPServer.AcceptTcpClient
- TCPStream = TCPClient.GetStream
- TCPReader = New StreamReader(TCPStream)
- TCPWriter = New StreamWriter(TCPStream)
- 'Dim Listener As New Threading.Thread(AddressOf ClientListener)
- While True
- TCPWriter.WriteLine(TCPReader.ReadLine)
- TCPWriter.Flush()
- End While
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
Nun meine Frage -> Was muss ich machen damit mehr als nur einer Connecten kann?
Anmerkung: Das Auskommentierung war der Versuch mein Hirn zu benutzen um selbst drauf zu kommen...
"Es gibt guten und schlechten Code und es gibt Code der einfach nur Funktionieren soll." - P. White
www.pacrafts.de
www.pacrafts.de
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Pascal“ ()