Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

   Private Sub server_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs) Handles server.DataReceived

' if xxx = "ID1" then
'Als Beispiel, senden verstehe ich aber das lesen ... geht das über Stream?
'End if

    End Sub

Visual Basic Quellcode

Imports EasyTCPLib

Public Class Form1
	Private WithEvents cl As New Managed.ManagedClient
	Delegate Sub WriteTextDelegate(ByVal Target As TextBox, ByVal Text As String)

	Public Sub TBox2()
    	While True
        	Dim Params(2) As Object
        	Params(0) = TextBox2
        	Params(1) = Environment.NewLine & "1"
        	Me.Invoke(New WriteTextDelegate(AddressOf WriteText), Params)
    	End While
	End Sub

	Public Sub WriteText(ByVal Target As TextBox, ByVal Text As String)
    	Target.Text &= Text
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	Try
        	cl.Connect("127.0.0.1", 8000)
    	Catch ex As Exception
        	MsgBox("Verbindung fehlgeschlagen", MsgBoxStyle.Critical)
    	End Try
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    	Dim sendstringtoserver As String = TextBox3.Text
    	cl.Send(sendstringtoserver)
    	TextBox3.Clear()
	End Sub

	'Private Sub cl_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs) Handles cl.DataReceived
	'   Me.TextBox2.Text = vbCrLf & e.Value
	'End Sub
End Class

Visual Basic Quellcode

Imports EasyTCPLib

Module Module1

	Private WithEvents server As New Managed.ManagedMultiServer(Net.IPAddress.Any, 8000)
	Dim e As EasyTCPLib.Managed.ManagedMultiServer.Connection

	Sub Main()
    	server.Start()
    	server.BeginAcceptingClients()
    	Console.WriteLine("Server ist startklar")
    	Console.ReadLine()
    	While True
        	If e.client.Client.Available = False Then
            	Console.WriteLine("Ein Client hat die verbindung unterbrochen")
            	e.client.Close()
        	End If
    	End While
	End Sub

	Private Sub server_clientjoined(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.ClientJoined
    	Dim joind As String = "Ein neuer Client."
    	server.Send(e, joind)
    	Console.WriteLine(joind)
    	Console.ReadLine()
	End Sub

	Private Sub server_clientexit(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.ClientExited
    	Dim exited As String = "Ein Client ist gegangen"
    	server.Send(e, exited)
    	Console.WriteLine(exited)
    	Console.ReadLine()
	End Sub

	Private Sub server_DataReceived(ByVal sender As Object, ByVal e As EasyTCPLib.Managed.DataReceivedArgs, ByVal conn As EasyTCPLib.Managed.ManagedMultiServer.Connection) Handles server.DataReceived
    	server.Send(conn, e.Value)
    	Console.WriteLine(e.Value)
    	Console.ReadLine()
	End Sub
End Module