Hallo Leute,
Ich bin derzeit ein wenig mit der TCP Lib am "experimentieren".
Alles soweit sogut doch irgendwie spukt der server nichts aus.
Die Anwendung ist (testweise) auf meinem eigenen PC.
Hier mein Code (Server und Client sind eine Form):
Auch die Try Catch blöcke spucken nichts aus.
Ich bin derzeit ein wenig mit der TCP Lib am "experimentieren".
Alles soweit sogut doch irgendwie spukt der server nichts aus.
Die Anwendung ist (testweise) auf meinem eigenen PC.
Hier mein Code (Server und Client sind eine Form):
VB.NET-Quellcode
- Imports EasyTCPLib
- Public Class Form1
- Public WithEvents server As New Managed.ManagedServer(Net.IPAddress.Any, 8000)
- Public WithEvents client As New Managed.ManagedClient
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Try
- server.Start() 'Server startet
- server.WaitForClientAsync() 'server wartet
- client.Connect("Meine IP", 8000) 'client verbindet
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub server_ConnectionLost(sender As Object) Handles server.ConnectionLost
- Try
- MsgBox("Verbindung fehlgeschlagen") 'Wenn verbindung fehlgeschlagen
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub server_WaitForClientCompleted(sender As Object) Handles server.WaitForClientCompleted
- Try
- MsgBox("Neuer benutzer") 'Wenn neuer benutzer dann Nachricht
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Form2.Show()
- End Sub
- Private Sub client_DataReceived(sender As Object, e As EasyTCPLib.Managed.DataReceivedArgs) Handles client.DataReceived
- MsgBox(e.Value)
- client.Disconnect()
- End Sub
- End Class
Auch die Try Catch blöcke spucken nichts aus.