Name des Programms:
Easy TCPLibary
Beschreibung:
Eine einfache Dll zum erstellen von TcpClienten und -Servern.
Screenshot(s):
Gibt keine.
Verwendete Programmiersprache:
Visual Basic 2010 Express.
Systemanforderungen:
.NET Framework 4.0
Download:
Anhang
Lizenz/Weitergabe:
Freeware
Namensnennung erwünscht!
Basiert auf dem Tutorial von Kevin89.
Alles über die DLL:
EASYTCP.Server.EASYTCPServer
-Funktionen:
Starten As String (Bringt nur für mich etwas)
-Routinen:
SendToAllClients(s As String)
ListenToConnection(Con As Connection)
New(IpEndPoint As IPEndPoint,Port As Integer)
-Propertys:
IPEndPointer As IPEndPoint
-Events:
Client_VerbundenFertig
Client_VerbindungAufbauen
Neuer_Server
-Variablen: (Die du nicht benutzen musst)
list As New List(Of Connection)
EASYTCP.Client.EASYTCPClient
-Funktionen:
LeseSchreibStream As NetworkStream
VomServerEmpfangen As String
-Routinen:
DisconnectClient
SendeKoordinaten(Höhe As Double,Länge As Double,Breite As Double)
AnServerSenden(ParamArray Meldung As Objekt)
Connect(Adresse As String,Port As Integer)
New(Adresse As String,Port As Integer)
-Propertys:
Port As Integer
Adresse As String
-Events:
Client_Connect()
Client_Close()
Neuer_Server()
So,zum Beispielcode:
Erst der Client:
Und dann der Server:
So ich hoffe das reicht jetzt nach dem es schon einmal gelöscht wurde.
Viel Spaß mir der DLL!
Ricky
Easy TCPLibary
Beschreibung:
Eine einfache Dll zum erstellen von TcpClienten und -Servern.
Screenshot(s):
Gibt keine.
Verwendete Programmiersprache:
Visual Basic 2010 Express.
Systemanforderungen:
.NET Framework 4.0
Download:
Anhang
Lizenz/Weitergabe:
Freeware
Namensnennung erwünscht!
Basiert auf dem Tutorial von Kevin89.
Alles über die DLL:
EASYTCP.Server.EASYTCPServer
-Funktionen:
Starten As String (Bringt nur für mich etwas)
-Routinen:
SendToAllClients(s As String)
ListenToConnection(Con As Connection)
New(IpEndPoint As IPEndPoint,Port As Integer)
-Propertys:
IPEndPointer As IPEndPoint
-Events:
Client_VerbundenFertig
Client_VerbindungAufbauen
Neuer_Server
-Variablen: (Die du nicht benutzen musst)
list As New List(Of Connection)
EASYTCP.Client.EASYTCPClient
-Funktionen:
LeseSchreibStream As NetworkStream
VomServerEmpfangen As String
-Routinen:
DisconnectClient
SendeKoordinaten(Höhe As Double,Länge As Double,Breite As Double)
AnServerSenden(ParamArray Meldung As Objekt)
Connect(Adresse As String,Port As Integer)
New(Adresse As String,Port As Integer)
-Propertys:
Port As Integer
Adresse As String
-Events:
Client_Connect()
Client_Close()
Neuer_Server()
So,zum Beispielcode:
Erst der Client:
VB.NET-Quellcode
- Imports EASYTCP.Client
- Public Class Client
- Public WithEvents Client As EASYTCPClient
- Public Streamer As NetworkStream
- Public Meldung As String
- Private Sub LoadER(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Client = New EASYTCPClient("Deine Adresse", 25565) 'Bei mir ist 25565 der Standartport ;-)
- Client.Connect(Client.Adresse, Client.Port) 'Entweder durch New,Durch Propertys oder in der Klammer
- Client.Adresse = "Meine Adresse"
- Client.Port = 25565
- Streamer = Client.LeseSchreibStream()
- Meldung = Client.VomServerEmpfangen()
- Client.DisconnectClient()
- End Sub
- Public Sub Geschlossen() Handles Client.Client_Close
- End Sub
- Public Sub HalloServer() Handles Client.Client_Connect
- End Sub
- Public Sub NeuerServer() Handles Client.Neuer_Client
- End Sub
- End Class
Und dann der Server:
VB.NET-Quellcode
- Imports EASYTCP.Server
- Imports System.Net.Sockets 'Wirst du nicht benötigen.
- Imports System.Net 'Genauso wenig.
- Public Class Server
- Public WithEvents Server As EASYTCPServer
- Private Sub LoadER()
- Server.Starten() 'Das was in der Funktion rauskommt ist eigentlich nicht zu gebrauchen aber ich benötige es manchmal
- Server.SendToAllClients("Meine Meldung") 'An alle Clienten weitersenden.
- Server.IPEndPointer = New IPEndPoint(IPAddress.Any, 25565) 'Brauchst du nicht,wird in der Property selber gemacht.
- End Sub
- Public Sub HalloClient() Handles Server.ClientVerbundenFertig
- End Sub
- Public Sub HierBinIchClient() Handles Server.ClientVerbindungAufbauen
- End Sub
- Public Sub NeuerServer() Handles Server.Neuer_Server
- End Sub
- End Class
So ich hoffe das reicht jetzt nach dem es schon einmal gelöscht wurde.
Viel Spaß mir der DLL!
Ricky
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Ricky“ ()