EasyTCPLib 1.0.0.2

    • Beta

    Es gibt 81 Antworten in diesem Thema. Der letzte Beitrag () ist von TiTo.

      Server benötigt Portforwarding, der Client jedoch nicht, sonst müsstest du ja für ICQ, Skype und jeden einzelnen Chat Client auf einem Port das Portforwarding konfigurieren...
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

      Tolle Lib Kevin aber ich habe leider ein Problem damit.
      Ich habe mir die dll runtergelden und benutze es, es passiert aber nichts.
      Entweder werden die Events nicht erkannt oder ich mache ein Fehler.
      Hab portforwarding konfiguriert und dein TestCode benutzt.
      Mache ich irgend ein Fehler?

      Danke schon mal

      Wenn du mir damit zeigen möchtest, dass du dich darüber ärgerst, dass du die Lib nicht für dein Projekt hattest und dir deswegen viel Mühe machen musstest, die du mit nicht gehabt hättest, solltest du mal auf das Datum achten... der Thread ist über 8 Monate alt.

      Einen schwerwiegenden Fehler entdeckt (unbekannt o_O)...

      Ich habe einen Client
      und einen Server.
      Der Server läuft bis auf weiteres Perfekt, startet gut und so weiter.

      Der Client hingegen benutzt die selbe Lib, den ManagedClient.
      Und -EGAL- was ich tue bei Client.Connect(ip, port), -EGAL- was ich bei IP oder Port eingebe:
      Der Client sagt er ist connected, aber ist es nicht (nicht mal auf eine ip, sonder connected auf "Test" und port 0).
      ein Bild ist im anhang zu finden...
      Bilder

      • screenshot.png

        14,2 kB, 709×261, 361 mal angesehen

      @Mark
      Vielleicht liegt es an deiner Firewall, meine macht auch Local faxen...
      Funktionieren tut das Beispiel, ich musste jedoch erstmal begreifen das der Server und der Client in der selben Form liegen.
      vielleicht ist dein (Beispiels Port) auch schon vergeben.


      ------
      Zu mir, stelle ich direkt mal meine Frage,
      Ich weiß nicht wieso aber ich finde keine Variante zum entfangen, ich würde das gerne über eine If Abfrage machen.

      VB.NET-Quellcode

      1. Private Sub server_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs) Handles server.DataReceived
      3. ' if xxx = "ID1" then
      4. 'Als Beispiel, senden verstehe ich aber das lesen ... geht das über Stream?
      5. 'End if
      7. End Sub


      Übersehe ich da was???
      Thx LG.L

      Hallo,

      Ich habe ein problem beim befüllen meiner Textbox.
      Habe mich schon mit Delegate und Invoke auseinander gesetzt und auch hier im forum von Andy was gefunden, allerdings will das bei mir nicht so recht klappen.

      Hier mein Client Code:
      Client:

      VB.NET-Quellcode

      1. Imports EasyTCPLib
      3. Public Class Form1
      4. Private WithEvents cl As New Managed.ManagedClient
      5. Delegate Sub WriteTextDelegate(ByVal Target As TextBox, ByVal Text As String)
      7. Public Sub TBox2()
      8. While True
      9. Dim Params(2) As Object
      10. Params(0) = TextBox2
      11. Params(1) = Environment.NewLine & "1"
      12. Me.Invoke(New WriteTextDelegate(AddressOf WriteText), Params)
      13. End While
      14. End Sub
      16. Public Sub WriteText(ByVal Target As TextBox, ByVal Text As String)
      17. Target.Text &= Text
      18. End Sub
      20. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      21. Try
      22. cl.Connect("127.0.0.1", 8000)
      23. Catch ex As Exception
      24. MsgBox("Verbindung fehlgeschlagen", MsgBoxStyle.Critical)
      25. End Try
      26. End Sub
      28. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      30. End Sub
      32. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      33. Dim sendstringtoserver As String = TextBox3.Text
      34. cl.Send(sendstringtoserver)
      35. TextBox3.Clear()
      36. End Sub
      38. 'Private Sub cl_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs) Handles cl.DataReceived
      39. ' Me.TextBox2.Text = vbCrLf & e.Value
      40. 'End Sub
      41. End Class



      Server:

      VB.NET-Quellcode

      1. Imports EasyTCPLib
      3. Module Module1
      5. Private WithEvents server As New Managed.ManagedMultiServer(Net.IPAddress.Any, 8000)
      6. Dim e As EasyTCPLib.Managed.ManagedMultiServer.Connection
      8. Sub Main()
      9. server.Start()
      10. server.BeginAcceptingClients()
      11. Console.WriteLine("Server ist startklar")
      12. Console.ReadLine()
      13. While True
      14. If e.client.Client.Available = False Then
      15. Console.WriteLine("Ein Client hat die verbindung unterbrochen")
      16. e.client.Close()
      17. End If
      18. End While
      19. End Sub
      21. Private Sub server_clientjoined(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.ClientJoined
      22. Dim joind As String = "Ein neuer Client."
      23. server.Send(e, joind)
      24. Console.WriteLine(joind)
      25. Console.ReadLine()
      26. End Sub
      28. Private Sub server_clientexit(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.ClientExited
      29. Dim exited As String = "Ein Client ist gegangen"
      30. server.Send(e, exited)
      31. Console.WriteLine(exited)
      32. Console.ReadLine()
      33. End Sub
      35. Private Sub server_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs, ByVal conn As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.DataReceived
      36. server.Send(conn, e.Value)
      37. Console.WriteLine(e.Value)
      38. Console.ReadLine()
      39. End Sub
      40. End Module


      Fehlermeldung gibts keine, es steht einfach nichts in der Textbox2

      LG
      Robin

      Lol, 1. ist das Wort "befüllen" zum totlachen xDDD
      -> blub.. war jetzt genau so unnötig.
      2. Versteh ich nicht ganz, wo dein Problem ist? Client oder Server?
      -> Ich vermute das es am Client liegt, allerdings bin ich mir da nicht zu 1000% sicher.

      Welche Zeile? Bitte markieren.
      -> im Prinzip der ganze code, denn ich glaube das mein problem an der übertragnung scheitert. ( cl.disconnect funktioniert auch nicht, wie ich grade ebend feststellen musste )

      Und vor allem: Welche Fehlermeldung erscheint?
      -> Zitat: "Fehlermeldung gibts keine, es steht einfach nichts in der Textbox2"
      Try block, schoma was von gehört?
      -> Ja, habe ich schon versucht. Hat mich 0% weiter gebracht.

      -> Zitat: "Fehlermeldung gibts keine, es steht einfach nichts in der Textbox2"


      Dann wird der Code dazu wohl auch nicht ausgeführt ;) ... dann guck mal nach wo das ausgeführt werden soll und ob das da überhaupt hinkommt ;)

    Facebook
    Telefonspende