TCP Chat problem

Hi ich hab mir versucht einen Chat Client & Server zusammen zu basteln, jedoch hab ich da irgendwo einen kleinen denk Fehler drinne und find den nich http://coderz.cc/images/smilies/icon_nosmile.gif

Wenn ich den Chat Server starte und 2 Clients und anschliesend Text abschicke, dann wird mir der Text im Server Fenster 1 mal angezeigt, jedoch im Client Fenster 2 mal.

Ware cool wenn sich jemand mein Chat mal anschauen koennte.... http://coderz.cc/images/smilies/icon_biggrin.gif

http://ul.to/0nleg03n

LG TheMadHatter

Mal spontan geraten, kann es sein, dass der Server an den Client die eigene Nachricht wieder zurück schickt?

Pack den Source-Code auf Pastebin, dann gucke ich mal drüber.
Hab keine Lust das jetzt runterzuladen :)

@SFX
Ne wenn ich den Server und 2 clients oeffne wird mir im 2ten Client die Nachricht 2 mal angezeigt, aber im gesendeten Client wird die gesendete Nachricht Rausgefischt und nich angezeigt(So soll es auch sein :) )
Server

Zitat:

---

http://pastebin.com/VWPZXy4X -> Module1.vb
http://pastebin.com/j83H8eQT ->Chatclient.vb
http://pastebin.com/e4KNptbv -> ChatServer.vb
http://pastebin.com/GfsCP3pY -> Neuheiten.vb

---

Client

Zitat:

---

http://pastebin.com/YByGURZE -> module1.vb
http://pastebin.com/xzQ0d7Wn -> Verbindung.vb

---

Dann hab ich noch ein 2tes Problem ^^
In der Klasse Neuheiten.vb
Unter:
Public Sub Get_All_Users()

Versuch ich alle Usernames und UserID's auszulesen um eine Anwesenheits liste zu machen, jedoch wird bei einem Versuch diese Funktion abzurufen die Verbindung getrennt....
Kennt jemand vllt eine Andere methode dieses Ziel zu erreichen....
Anschliesen hab ich mir auch vorgenommen die Kick Funktion einzubinden....

Du callst SchreibeAnJedenClient pro Nachricht 2x:

ChatServer.vb:

Code:

---

    Private Sub NewMessage(ByVal c As ChatClient, ByVal sMessage As String)
 
        RaiseEvent ClientNewMessage(c, sMessage)
        SchreibeAnJedenClient(sMessage)
    End Sub

---

wirft ein Event das gehandelt wird von:
Module1.vb:

Code:

---

    Private Sub Server_ClientNewMessage(ByVal c As ChatClient, ByVal sMessage As String) Handles Server.ClientNewMessage
        Console.WriteLine(sMessage)
        Server.SchreibeAnJedenClient(sMessage)
    End Sub

---

callen beide wiederrum:

Code:

---

    Public Sub SchreibeAnJedenClient(ByVal sText As String)
        Try
            For Each c As ChatClient In ChatclientListe
                c.schreiben(sText)
            Next
        Catch ex As Exception
            Console.WriteLine("Schreib an jeden Client")
        End Try
 
    End Sub

---

wenn du den traffic gesnifft hättest, hättest du btw rausfinden können, ob es am client oder dem server liegt und so den bug immer weiter eingrenzen ;)

Super Danke :D (Hab kein THX button gefunden ^^)

Naja der Chat ist nach einem Tuturial gebaut worden und mein erstes Object Orientiertes Programm und zum ersten mal sind auch Events dabei ^^
Dachte die Client New Message ruft das event erst hervor....

Kannst du mir noch schnell bitte nen Tipp geben, wie ich die Usernames Auslesen kann um Jede Verbindung nach belieben zu Trennen oder etwas nur an diese Verbindung zu schicken?

Du brauchst 2 Dinge:
Einen bestimmten Code, an dem der Server erkennt, dass er es nur einem bestimmten User schicken soll (also ein Protokoll) und eine Änderung in deinem Code Aufbau:

Du arbeitest nichtmehr nur mit einer Liste, sondern mit einem Dictionary.
Der Schlüssel vom Dictionary ist dann ein String, und zwar der Name des verbundenen Users und der Wert ist dann die Verbindung.
So kannst du dann über den Namen des Users, genau die Verbindung bekommen, die zu dem User gehört und an den die Nachricht schicken.
Wie das in vb.net genau aussieht kann ich nicht genau sagen, ich kann die Sprache nicht.. :P

Zum thx:
Rechts unten neben der Ente ;)

Zitat:

---

Zitat von -SFX-

Rechts unten neben der Ente ;)

---

Ab 10 Beiträgen wird das freigeschalten.
Habe mich anfangs auch dumm und dämlich gesucht ;)

Super Danke fur die Tipps werde sie gleich realisieren !!!:D

*ThxButton klick

@DeeWayne

Jo werd wohl noch nen bissle Posten mussen um Danke sagen zu koennen ^^

EDIT: Hab es Geschafft :P Wenn jemand damit Probleme hat einfach Pm ;)
Edit: Ich hab hier mal noch ne frage ^^

Kann ich eine Vb.net GUI anwendung und eine Console application sich verbinden lassen via. TCP?

Sollte doch funktioniern oder ?

So bald es die Verbindung aufbaut kommt: No connection ect. ist die ex.message :D
http://www0.xup.in/exec/ximg.php?fid=15059451

Ok an der Konsole(Server) liegt es nicht, hab schon nen anderen Gui Client connectedn lassen.....

http://pastebin.com/iZj6mK4h

Ware cool wenn sich jemand das mal anschaun koente....

Code:

---

    Public ChatclientListe As New SortedList(Of Integer, ChatClient)
    Public User_Dic As New SortedDictionary(Of Integer, String)

[...]

            ChatclientListe.Add(TotalUsers, ChatC)
            User_Dic.Add(TotalUsers, ChatC.ChatName)

---

du hast nicht ganz verstanden was ich meinte ;)

Code:

---

    Public ChatclientListe New SortedDictionary(Of String, ChatClient)

[...]

            ChatclientListe.Add(ChatC.ChatName, ChatC)

---

so hälst du einfacher zusammen, was zusammen gehört.

für deine SchreibeAnJedenClient Methode solltest du dir dann die foreach schleife anschauen ;)

In der Exception steht eigentlich, dass der Server die Verbindung verweigert und das auch antwortet.
Kannst du das evt mit Wireshark aufnehmen?
Einfach nur Loopback sniffen und auf tcp filtern, dann sollte da nicht so arg viel rauskommen

Jo War mir zu der Zeit nich klar und hab des nach nen bissle nachdenken kappiert :D aber, die Kick funktion klappt etz richtig gut :D
Bin dabei die RitchTextbox durch einen Webrowser zu ersetzen, um Smileys ect. moglich zu machen...

Was das problem angeht, hab ich meinen Client nocheinmal neu gecoded und hab Stunden rumversucht bis ich es irgendwie hinbekommen hab....
Manchmal steh ich mir selbst im weg bei Problemen, da ich an dem Code rumexpirimentiere bis ich ausversehn mehrere Bugs erschaffe und einen anderen da durch loese und es nich mal merke :D :(
Hauptsache es funktioniert etz ;)