[TCP-Chat] User Online?

[Crystal-Craft]

Heyho com ich habe ein TCP chat mit einer Console als Server gemacht[+ passender Client], nun mache ich mit einer Windows Form´s Anwendung ein "Server Panel" und dort soll drin stehen wie viel leute im chat sind. Nur wie bekomme ich das hin? Ich muss ja theoretisch nur die momentanen TCP Connection zur IP : X.X.X.X:XXXX in diesem Moment zählen und ausgeben. NUr wie?

Bitte um Hilfe

[Devil589]

Hast du ein Event bei deinem Server was z.B. eine Willkommennachricht an den jeweiligen Client sendet sobald er sich mit dem Server verbunden hat?

Wenn ja, dann kannst du da z.B. eine Variable hochzählen lassen und brauchst im Grunde nur diese dann auszulesen.

Dennoch solltest du dann noch ein Event beim Disconnet des Clients haben damit du bei der Variable 1 Client abziehen kannst.

Dies wäre meiner Meinung nach eine von x möglichen Lösungen.

See Ya!

[Crystal-Craft]

Hier mal der Source Code vom Server(Das Event zu disconnecten habe ich ja):

 Spoiler

Imports System.Net.Sockets
Imports System.IO
Imports System.Net

Module Module1
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8100)
Private list As New List(Of Connection)

Private Structure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim nick As String
End Structure

Sub Main()
Console.Title = "Chat Server (c) by Shonen | Unlicensed Version"
Console.WriteLine("############################### ##################")
Console.WriteLine("# Chat Server by Shonen! Server Started #")
Console.WriteLine("############################### ##################")
Console.WriteLine("")
Console.WriteLine("")

ConsoleMessageINFO(System.IO.File.ReadAllText("sta rtmsg.ini"), ConsoleColor.Green)
Console.WriteLine("")
Console.WriteLine("")
server = New TcpListener(ipendpoint)
server.Start()

While True .
client = server.AcceptTcpClient

Dim c As New Connection
c.stream = client.GetStream
c.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)

c.nick = c.streamr.ReadLine

list.Add(c) ' und fügen sie der liste der clients hinzu.
ConsoleMessageINFO(c.nick & vbTab & "ist dem Chat beigetreten", ConsoleColor.Green)
Console.WriteLine("")
ConsoleMessageINFO("Server wird geupdatet!", ConsoleColor.White)
Console.WriteLine("")


Dim t As New Threading.Thread(AddressOf ListenToConnection)
t.Start(c)
End While
End Sub

Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine
ConsoleMessageINFO(con.nick & vbTab & "schreibt:" & "" & tmp, ConsoleColor.Gray)
'Console.WriteLine(con.nick & ": " & tmp)
For Each c As Connection In list
Try

c.streamw.WriteLine(con.nick & ": " & tmp)
c.streamw.Flush()

Catch
End Try
Next
Catch
list.Remove(con)
ConsoleMessageERROR(con.nick & vbTab & "ist offline", ConsoleColor.Red)
Console.WriteLine("")
Exit Do
End Try
Loop
End Sub




Public Sub ConsoleMessageINFO(ByVal str As String, ByVal clr As ConsoleColor)
Console.ForegroundColor = clr
Console.WriteLine("[INFO]" & "[" & Now().ToString("HH:mm:ss") & "]" & vbTab & str)
End Sub

Public Sub ConsoleMessageERROR(ByVal str As String, ByVal clr As ConsoleColor)
Console.ForegroundColor = clr
Console.WriteLine("[ERROR]" & "[" & Now().ToString("HH:mm:ss") & "]" & vbTab & str)
End Sub
End Module

Edit: Die Windows Form´s Anwendung ist ein externe Anwedung also nicht mit der Console verbunden

weiß keiner was?

[xNopex]

Wenn ja, dann kannst du da z.B. eine Variable hochzählen lassen und brauchst im Grunde nur diese dann auszulesen.

Dennoch solltest du dann noch ein Event beim Disconnet des Clients haben damit du bei der Variable 1 Client abziehen kannst.

Dies wäre meiner Meinung nach eine von x möglichen Lösungen.

Schlechte Lösung.

@Topic: Hab deinen Code kurz überflogen und "du" scheinst die Clients in einer Liste abzuspeichern. Die Liste sollte ein Member-Attribut haben, welches dir angibt, wie viele Elemente gespeichert sind. Schau einfach in der Doku nach.

Edit: Die Windows Form´s Anwendung ist ein externe Anwedung also nicht mit der Console verbunden

Warum? Du machst es dir unnötig schwer. Aber wenn du magst.. Lass dir die Daten (s.o.) von dem eigentlichen Server über Pipes o.ä. zur externen Anwendung schicken. Unglaublich idiotisch, aber soll mir egal sein.

[Devil589]

Originally Posted by xNopex

Schlechte Lösung.

Da kaum brauchbare Informationen vorhanden waren, war es eine von x möglichen Lösungen.

Und ja das mit der externen Anwendung verstehe ich auch nicht.
Wenn es als eine Art (Admin Control Panel) genutzt werden soll, kannst du diese Funktionen auch direkt bei dem Server mit einbauen.
Denn bei dem Control Panel hast nur du Zugriff und bei dem Server auch.

Somit kannst du direkt beide Sachen miteinnander verbinden.
Fazit: Weniger Aufwand.