Multiserver (TCP)

    • VB.NET

    Es gibt 854 Antworten in diesem Thema. Der letzte Beitrag () ist von ClonkAndre.

      Verbindungsaufbau langsam

      Hallo,

      ich habe eine Frage zum Verbindungsaufbau der Clienten.

      Und zwar ist es bei mir so, dass ab dem dritten oder vierten Clienten der Verbindungsaufbau sehr lange dauert (ca.10-20sekunden). Die ersten beiden Clienten melden sich sofort an.
      Wenn die Verbindung mal steht, geht alles reibungslos und augenblicklich.
      Woran könnte das evtl. liegen? Der code (Verbindungsaufbau) ist 1zu1 von der ersten Seite dieses Treads übernommen.

      Die Umgebung ist wie Folgt: Ein Hauptserver und mehrere Laptops als Clienten in einem lokalen Netzwerk.

      Danke schon mal für eure Antworten

      Gruß Markus

      mal ne plöde frage:

      wie kann ich abrufen, wann und on die konsole per klick auf das x geschlossen wird?

      VB.NET-Quellcode

      1. Sub Main()
      2. ...
      3. While True ' wir warten auf eine neue verbindung...
      4. ...
      5. End While
      6. ... ' kp wann false is und was genau true ist ...
      7. End Sub


      bitte um aufklärung 8o
      MfG Cyfer
      ---
      Dim Louis.Cyfer As Coder.Object
      Do While Louis.Cyfer.ReadyState <> Louis.Cyfer.ReadyState.Complete
      Application.DoEvents()
      Loop
      ' Der Beste Code ist immer noch der eigene
      ---

      Problem

      Hallo ich habe versucht in den Client meine IP einzufügen ,damit ich ihn anderen Leuten schicken kann und mit ihnen chatten kann. habe port 8000 freigegeben.
      Wenn ich jetzt debugge kommt beim client ( server ist natürlich gestartet) :


      Quellcode

      1. Eine Ausnahme (erste Chance) des Typs "System.IO.IOException" ist in System.dll aufgetreten.
      2. Eine Ausnahme (erste Chance) des Typs "System.Net.Sockets.SocketException" ist in System.dll aufgetreten.
      3. Eine Ausnahme (erste Chance) des Typs "System.Net.Sockets.SocketException" ist in System.dll aufgetreten.
      4. Eine Ausnahme (erste Chance) des Typs "System.Net.Sockets.SocketException" ist in System.dll aufgetreten.
      5. Eine Ausnahme (erste Chance) des Typs "System.Net.Sockets.SocketException" ist in System.dll aufgetreten.
      6. Eine Ausnahme (erste Chance) des Typs "System.ArgumentNullException" ist in System.Windows.Forms.dll aufgetreten.
      7. Eine Ausnahme (erste Chance) des Typs "System.Net.Sockets.SocketException" ist in System.dll aufgetreten.
      8. Eine Ausnahme (erste Chance) des Typs "System.Net.Sockets.SocketException" ist in System.dll aufgetreten.


      dann connecte ich erfolgreich zum server, beim server steht auch dass ich connected bin, aber wenn ich nun etwas schreibe erscheint es weder beim server noch bei dem Client und nach ca. 20 sekunden wird die verbindung getrennt.

      Hey,

      Ich habe den Server mit Mono auf einem Linux vServer am laufen.

      Doch immer wenn jemand Disconnected, Wird die Verbindung nicht getrennt.
      Wenn ich dies aber Local oder über Hamachi teste, funktioniert alles einfandfrei.

      Ich Hoffe auf Hilfe.

      MFG
      Mythen

      musst vllt vom sewrver aus dc-en und unter umständen den thread richtig beenden lassen (beiderseits)
      MfG Cyfer
      ---
      Dim Louis.Cyfer As Coder.Object
      Do While Louis.Cyfer.ReadyState <> Louis.Cyfer.ReadyState.Complete
      Application.DoEvents()
      Loop
      ' Der Beste Code ist immer noch der eigene
      ---

      Hi

      Ich habe einefrage an euch. Mein Problehm ist das ich nur die neuste Nachricht eines Users angezeigt haben will.

      Meine Nachrichten Sehen so aus :
      UserName/Nachricht

      Jetzt möchte ich aber Alle Nachrichten die User1/ Enthalten löschen! Egal welche Nachricht er geschrieben hatt.
      Zum Schluss soll nur seine Letzt Nachricht Stehen!

      ![EDIT]! Habe es hinbekommen!

      VB.NET-Quellcode

      1. Private Sub AddItem(ByVal s As String)
      3. ' Strings Erstellen
      4. Dim S1, S2, S3 As String
      6. ' Teile Ankommenden String S in Name strTeile1(0) und Nachricht strTeile1(1)
      7. strTeile1 = s.Split("/")
      9. '
      10. For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1
      11. 'Teile den String I In Name strTeile(0) und Nachricht strTeile(1)
      12. S3 = ListBox1.Items(i).ToString
      13. strTeile = S3.Split("/")
      15. ' Baue String Für Suche. Aus Dem Namen strTeile1(0) und der Nachricht strTeile(1).
      16. ' Um Diese Später zu Löschen!
      17. S1 = strTeile1(0) & "/" & strTeile(1)
      19. ' Löscht den Eintrag der den Obengebauten String enthält.
      20. If ListBox1.Items(i).ToString.Contains(S1) Then
      21. ListBox1.Items.RemoveAt(i)
      22. End If
      23. Next
      25. 'Fügt die Neue Nachricht Hinzu.
      26. ListBox1.Items.Add(s)
      27. End Sub

      Ich Weis nicht gerade der beste Code aber es klappt!

      MFG

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „VirusWare“ ()

      Ist es auch möglich das irgendwie in einer Forms anwendung einzubauen,
      habe mir vorgestellt das es unten auf der Hauptform läuft, und dan auf Nebenformen
      einstellungsmöglichkeiten usw. hat.

      Edit:

      Zum beispiel wie hier: klick

      Edit 2:

      Ich habe mir schon die Finger wund Gegoogelt unf schon selbst sehr viel rumgebastelt.
      Komme aber trotzdem nur zu den obrigen Ergebnis.
      Keiner kann weiterhelfen?

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „blacky25“ ()

      haiyyu schrieb:

      Root- oder V-Server mieten und den Server da laufen lassen.

      Warum mieten, bei united hoster habe ich mir einen test server für solche dinge geholt, nach zwei tagen mus man dan halt verlängern oder neuen holen ^^

      ich muss das thema auch mal ausgraben,

      ich komme mit dem clientseitigen trennen nicht fit.
      ich möchte das ganze über einen button lösen und die application nicht vollständig beenden.

      stattdessen will ich per button verbinden und trennen können.
      jedoch beim zweiten verbindungsaufbau wird der catch ausgelöst im connect event.

      VB.NET-Quellcode

      1. Public Sub CloseChatConnection()
      2. globalusers.Items.Clear()
      3. chat_rtb.Clear()
      4. streamw.WriteLine("Disconnected")
      5. streamw.Flush()
      6. client.Close()
      7. stream.Close()
      8. streamr.Close()
      9. streamw.Close()
      10. login_button.text = "Login"
      11. End Sub


      VB.NET-Quellcode

      1. Sub chatverbindung(ByVal nick)
      2. Try
      3. client.Connect("127.0.0.1", 8000) ' hier die ip des servers eintragen.
      4. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
      5. If client.Connected Then
      6. stream = client.GetStream
      7. streamw = New StreamWriter(stream)
      8. streamr = New StreamReader(stream)
      9. streamw.WriteLine(nick) ' das ist optional.
      10. streamw.Flush()
      11. t.Start()
      12. login_button.Text = "Logout"
      13. Else
      14. MessageBox.Show("Verbindung zum Server nicht möglich!")
      16. End If
      17. Catch ex As Exception
      18. MessageBox.Show("Verbindung zum Server nicht möglich!")
      20. End Try
      21. End Sub



      Hier das Button Event zum Verbinden und Trennen.

      VB.NET-Quellcode

      1. Private Sub KryptonButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login_button.Click
      2. If login_button.Text = "Login" Then
      3. If GetAccountStatus(nameinput.Text, pwinput.Text) = True Then
      4. loginstatus_label.Text = "logged in."
      5. chatverbindung(nameinput.Text)
      6. End If
      7. Else
      8. CloseChatConnection()
      9. End If
      11. End Sub


      Wie gesagt, erstes mal Verbinden und Trennen geht. Sobald ich dann nochma verbinden will gibts nur noch "Verbindung zum Server nicht möglich"
      :(

      ja hab ich eben auch rausgefunden das die deklarationen vor den events schon falsch ist :) danke

      so geht es nun bei mir

      VB.NET-Quellcode

      1. Dim client As System.Net.Sockets.TcpClient = Nothing
      2. Dim t As Threading.Thread = Nothing
      4. Sub chatverbindung(ByVal nick)
      5. t = New Threading.Thread(AddressOf Listen)
      6. client = New TcpClient
      7. client.Connect("127.0.0.1", 8000) ' hier die ip des servers eintragen.
      8. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
      9. If client.Connected Then
      10. stream = client.GetStream
      11. streamw = New StreamWriter(stream)
      12. streamr = New StreamReader(stream)
      13. streamw.WriteLine(nick) ' das ist optional.
      14. streamw.Flush()
      15. t.Start()
      16. login_button.Text = "Logout"
      17. MessageBox.Show("Verbindung hergestellt")
      18. Else
      19. MessageBox.Show("Verbindung zum Server nicht möglich!")
      21. End If
      23. End Sub

      Ich wollte mals hierzu was fragen.
      Also ich habe mir jetzt mit dem Source hier was schönes gemacht, so.
      Nun meine frage, wie kann ich ein Object versenden und als richtiges Object wieder Empfangen.
      Also als Object möchte ich einen String() mit mehreren Einträgen haben.

      Hi Forum,

      ich bin ein Neuer und will hier *nicht* singen ;) Stattdessen hab ich auch mal eine Frage..

      Mein Problem ist ein etwas anderes. Statt 'chat-like', wo viele Clienten zu einem Server verbinden, verbindet ein Client zu vielen Servern! Es geht dabei nicht um torrent oder andere Tauschsysteme, sondern um das Einsammeln von RFID-TagCodes. Die seriellen RFID-Scanner sind via com2lan Converter im Netzwerk zu finden.

      Ich habe nun ein paar verschiedene Sachen probiert, die teilweise auch funktioniert haben, aber dann zu lahm oder zu gefraessig waren. Nun wollte ich mal diesen Ansatz hier probieren und komme beim Listener nicht weiter. Ich denke, das kann nur eine Kleinigkeit sein, die ich uebersehe...
      Habt ihr vielelicht eine Idee woran es liegt, dass der Listener keinen Schimmer von den Verbindungsdaten hat? (Und somit aussteigt)
      .oO( btw macht mich die Code-Formatierung in diesem Editor wahnsinnig.. Soll das so, oder kann ich das etwa auch nicht?? *g )



      VB.NET-Quellcode

      1. ' TCP/IP
      2. Private client As TcpClient = Nothing
      3. Private t As Thread
      4. Private list As New List(Of Connection)
      5. Private c As Connection
      6. Private Structure Connection
      7. Dim stream As NetworkStream
      8. Dim streamw As StreamWriter
      9. Dim streamr As StreamReader
      10. Dim host As String
      11. End Structure
      12. Private Sub DoConnect()
      13. For i As Integer = 0 To arrIPs.Count - 1
      14. ' Threaded connection with new server-IP
      15. client = New TcpClient
      16. c = New Connection
      17. c.host = arrIPs(i)
      18. t = New Threading.Thread(AddressOf Listen)
      19. Try
      21. If client.Connected Then
      22. client.Close()
      23. Thread.Sleep(100)
      24. End If
      25. client.Connect(c.host, 1235)
      26. If client.Connected Then
      27. c.stream = client.GetStream
      28. c.streamw = New StreamWriter(c.stream)
      29. c.streamr = New StreamReader(c.stream)
      30. list.Add(c)
      31. t.Start()
      32. Thread.Sleep(100)
      33. display.Add(timestamp() & "INFO: " & c.host & " - Verbindung zum Server aufgebaut!") : screen(display)
      34. Else
      35. display.Add(timestamp() & "ERROR: " & c.host & " - Verbindung zum Server nicht möglich!") : screen(display)
      36. End If
      37. Catch ex As Exception
      38. display.Add(timestamp() & "FATAL: " & c.host & " - Verbindung zum Server nicht möglich! Error:" & vbCrLf & ex.ToString) : screen(display)
      39. End Try
      40. Application.DoEvents()
      41. Next
      42. End Sub
      43. Private Sub Listen(ByVal con As Connection) ' <<-- Leider hat con keine Verbindungsdaten vom aufrufenden Thread mit bekommen
      44. Do
      45. Try
      46. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
      47. display.Add(timestamp() & con.host & ": " & tmp) : screen(display)
      48. 'SendToAllClients(con.nick & ": " & tmp) ' an alle clients weitersenden.
      49. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
      50. list.Remove(con)
      51. display.Add(timestamp() & con.host & " has exit.") : screen(display)
      52. Exit Do
      53. End Try
      54. Loop
      55. End Sub

      Hey,

      sorry, wenn ich den Thread nochmal ausgrabe, aber ich muss dich echt loben (@ Threadersteller)...
      Der Code funktioniert einwandfrei, ich habe ihn nach Copy & Paste (*hust hust :D*) noch mal ein bisschen verändert, und er funktioniert PRIMA!!!


      Grüße

      Gredsoft (Ehemals PhThMaster99)

    Facebook