Tcp Problem / Es wird nicht abgehört. Rufen Sie...

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Genesis.

    Tcp Problem / Es wird nicht abgehört. Rufen Sie...

    Bin neu hier also HALLO erst mal an alle hier!!!

    ja so ist das Leben... da kommt schon ein neuer und dann will er auch noch was wissen :P

    also mein problem ist das...

    ich versuche ein chat zu programmieren. Alles klappt auch so weit gut auser das hier...

    VB.NET-Quellcode

    1. [...]
    2. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. If listener.Pending = True Then
    4. Message = ""[...]


    das problem liegt an dem If listener.Pendig...

    immer wenn ich das programm starten will bekomme ich eine Warnung.

    Diese lautet wiefolgt:

    Es wird nicht abgehört. Rufen Sie die Start()-Methode auf, bevor Sie diese Methode aufrufen.

    häääääää???? hab schon überall gesucht auch hier im Forum wo ich auch fündig wurde aber das hat mich nicht weiter gebracht.

    habt ihr ne ahnung was falsch sein kann?

    mfg Genesis

    Schade habe ich bereits...

    habs so gemacht:

    VB.NET-Quellcode

    1. Private Sub listening()
    2. listener.Start()
    3. End Sub


    EDIT : weiß den niemand was? =(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Genesis“ ()

    weiß keiner was?

    Ich schick mal den ganzen code vieleicht fällt euch was ein :S


    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.IO
    6. Public Class Form1
    7. Dim listener As New TcpListener(15496)
    8. Dim client As TcpClient
    9. Dim Message As String = ""
    11. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    13. listener.Stop()
    14. End Sub
    16. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    18. listthread.Start()
    19. End Sub
    21. Private Sub listening()
    22. listener.Start()
    23. End Sub
    26. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    27. client = New TcpClient(TextBox1.Text, 15496)
    28. Dim writer As New StreamWriter(client.GetStream())
    29. writer.Write(TextBox2.Text)
    30. TextBox3.AppendText(Format(Now, "hh:mm:ss") & " Ich :" & TextBox2.Text & vbCrLf)
    32. writer.Flush()
    34. TextBox2.Clear()
    35. End Sub
    37. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    38. If listener.Pending = True Then
    40. Message = ""
    41. client = listener.AcceptTcpClient()
    43. Dim reader As New StreamReader(client.GetStream())
    44. While reader.Peek > -1
    45. Message = Message + Convert.ToChar(reader.Read()).ToString
    46. End While
    48. 'TextBox3.AppendText(Format(Now, "hh:mm:ss") & "Er :" & TextBox2.Text & vbCrLf)
    49. TextBox3.Text = TextBox3.Text & Message & vbCrLf
    51. Else : End If
    52. End Sub


    bitte helft mir!

    hm? wo soll ich denn Call.listening einsetzen?
    sry weiß des net so ...
    egal habs an den stellen eingesetzt


    Form Load

    im Sub listening selbst

    und im Timer Tick


    jetzt wird jedoch

    VB.NET-Quellcode

    1. listener.start

    makiert

    VB.NET-Quellcode

    1. If listener.Pending = True Then

    nichtmehr


    das mit multiserver schau ich mir gerade an



    Edit: häää? verwirrt :wacko:

    sobalt ich das Programm starte kommt der Fehler. Soweit so schlecht.
    Klick ich nochmal auf "Debuggin Starten" so kann ich normal OHNE Fehlermeldugn das Programm nutzen.

    weiß da jemand was?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Genesis“ ()

Facebook
Telefonspende