Nochmal für alle: TCP Beispiel

Malischh · 7. Januar 2009, 18:38

Da ich in den letzten Threads ziemlich oft gefragt wurde, wie man einen TCP Server / Client schreibt, werd ich jetzt 2 Beispiele angeben.

TCP Listener. Läuft hier auf einer Konsole.
Da sich dieses bsp in einer Form aufhängt, hier der Link für eine Form: tutorials.de/forum/visual-basi…12633-winsock-vb-tcp.html
gpwiki.org/index.php/VBNET:Sockets

Besser ist es aber wenn man einfach den code unten mit einem Thread ausführt, dass führt zu keinem absturz...

VB.NET-Quellcode

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic
Class MyTcpListener
Sub Main()
Console.WriteLine("Bitte geben sie die Locale IP ein: ")
connect(Console.ReadLine())
End Sub
Sub connect(ByVal ip As String)
Dim server As TcpListener
server = Nothing
Try
' Set the TcpListener on port 13000.
Dim port As Int32 = 1234
Dim localAddr As IPAddress = IPAddress.Parse(ip)
server = New TcpListener(localAddr, port)
' Start listening for client requests.
server.Start()
' Buffer for reading data
Dim bytes(1024) As Byte
Dim data As String = Nothing
' Enter the listening loop.
While True
Console.Write("Waiting for a connection... ")
' Perform a blocking call to accept requests.
' You could also user server.AcceptSocket() here.
Dim client As TcpClient = server.AcceptTcpClient()
Console.WriteLine("Connected!")
data = Nothing
' Get a stream object for reading and writing
Dim stream As NetworkStream = client.GetStream()
Dim i As Int32
' Loop to receive all the data sent by the client.
i = stream.Read(bytes, 0, bytes.Length)
While (i <> 0)
' Translate data bytes to a ASCII string.
data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
Console.WriteLine("Received: {0}", data)
' Hier hast du den empfangenen string data
If data = ....
'Anschließend gibst du die antwort:
data = "Button1.text = hehehe"
Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
stream.Write(msg, 0, msg.Length)
Console.WriteLine("Sent: {0}", data)
i = stream.Read(bytes, 0, bytes.Length)
End While
' Shutdown and end connection
client.Close()
End While
Catch e As SocketException
Console.WriteLine("SocketException: {0}", e)
Finally
server.Stop()
End Try
Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")
Console.Read()
End Sub
End Class 'MyTcpListener

Und hier der dazugehörige TCP Client. Hier: Für Konsole läuft aber genauso für eine Form.

VB.NET-Quellcode

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Class MyTcpListener
Sub Main()
Console.WriteLine("Bitte geben sie die IP des Servers ein: ")
Dim temp As String = Console.ReadLine
Console.WriteLine("Bitte die Nachricht eingeben: ")
Connect(temp, Console.ReadLine)
End Sub
Sub Connect(ByVal server As [String], ByVal message As [String])
Try
' Create a TcpClient.
' Note, for this client to work you need to have a TcpServer
' connected to the same address as specified by the server, port
' combination.
Dim port As Int32 = 1234
Dim client As New TcpClient(server, port)
' Translate the passed message into ASCII and store it as a Byte array.
Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)
' Get a client stream for reading and writing.
' Stream stream = client.GetStream();
Dim stream As NetworkStream = client.GetStream()
' Send the message to the connected TcpServer.
stream.Write(data, 0, data.Length)
Console.WriteLine("Sent: {0}", message)
' Receive the TcpServer.response.
' Buffer to store the response bytes.
data = New [Byte](256) {}
' String to store the response ASCII representation.
Dim responseData As [String] = [String].Empty
' Read the first batch of the TcpServer response bytes.
Dim bytes As Int32 = stream.Read(data, 0, data.Length)
responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
Console.WriteLine("Received: {0}", responseData)
' Close everything.
stream.Close()
client.Close()
Catch e As ArgumentNullException
Console.WriteLine("ArgumentNullException: {0}", e)
Catch e As SocketException
Console.WriteLine("SocketException: {0}", e)
End Try
Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
Console.Read()
End Sub 'Connect
End Class 'MyTcpListener

Ich hoff das mein Thread euch weiter hilft! :thumbup:

*Topic verschoben, passt gut hierher*

Malischh · 7. Januar 2009, 18:49

Hier noch für die Vollständigkeit:

UDP Client!:

VB.NET-Quellcode

' This constructor arbitrarily assigns the local port number.
Dim udpClient As New UdpClient(11000)
Try
udpClient.Connect("www.contoso.com", 11000)
' Sends a message to the host to which you have connected.
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Is anybody there?")
udpClient.Send(sendBytes, sendBytes.Length)
' Sends message to a different host using optional hostname and port parameters.
Dim udpClientB As New UdpClient()
udpClientB.Send(sendBytes, sendBytes.Length, "AlternateHostMachineName", 11000)
' IPEndPoint object will allow us to read datagrams sent from any source.
Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
' UdpClient.Receive blocks until a message is received from a remote host.
Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)
' Which one of these two hosts responded?
Console.WriteLine(("This is the message you received " + _
returnData.ToString()))
Console.WriteLine(("This message was sent from " + _
RemoteIpEndPoint.Address.ToString() + _
" on their port number " + _
RemoteIpEndPoint.Port.ToString()))
udpClient.Close()
udpClientB.Close()
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub

Den habe ich aber nicht angepasst, also muss da noch ein bisschen gemacht werden.

Ach ja, fals jemand einen guten Beispiel Code für einen UDP Listener hat, bitte Posten, da ich noch keinen richtigen Code gefunden habe, dass der UDP Listener in einer Schleife auf Verbindungen wartet! So ungefähr wie im obigen TCP Listener Beispiel. THX :thumbsup:

Enjoy^^

Malischh · 9. Januar 2009, 10:15

Da man schwer ein gutes Tutorial für einen UDP Listener findet, werd ich jetzt mal ein Beispiel dazu machen:

VB.NET-Quellcode

Imports System.Threading
Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Public Class MainClass
Shared client As UdpClient
Shared receivePoint As IPEndPoint
Public Shared Sub Main()
client = New UdpClient(5000)
receivePoint = New IPEndPoint(New IPAddress(0), 1234)
Dim readThread As Thread = New Thread(New ThreadStart(AddressOf WaitForPackets))
readThread.Start() ' wait for packets
End Sub
Public Shared Sub WaitForPackets()
While True
Dim data As Byte() = client.Receive(receivePoint)
Dim rev As String = System.Text.Encoding.ASCII.GetString(data)
MsgBox(rev)
client.Send(data, data.Length, receivePoint)
End While
End Sub
End Class

PS.: Meine Codes sind alle getestet!

Edit: man hätte alles auch mit einem Simplen Stream machen können. Erspart Viel Arbeit und istübersichtlicher^^

kevin89 · 26. Januar 2009, 01:19

---------------------------
ConsoleApplication1
---------------------------
Es konnte keine Verbindung hergestellt werden, da der Zielcomputer die Verbindung verweigerte 62.143.130.191:1234
---------------------------
OK
---------------------------

... was muss ich machen? Ich dachte sowieso man muss irgendwie die Anfrage akzeptieren bevor die Verbindung zustande kommen kann...

Werewolve · 26. Januar 2009, 23:13

TCP oder UDP???

kevin89 · 27. Januar 2009, 14:14

Bei TCP, eigentlich müsste auch irgendwo der Befehl "Server.Accept" stehen glaube ich.

Mentras · 13. April 2009, 20:10

kevin89 schrieb:

Bei TCP, eigentlich müsste auch irgendwo der Befehl "Server.Accept" stehen glaube ich.

' Set the TcpListener on port 13000.

Hast du vielleicht überlesen

Malischh · 13. April 2009, 20:19

Nur das der Thread schon sau alt ist. Schau ma hier, da hab ich ein neues Tutorial: [VB.NET] Ausführliches TCP und UDP Tutorial

Oder: Click Here dead links/404 an dieser Stelle entfernt ~VaporiZed

Nochmal für alle: TCP Beispiel

Nochmal für alle: TCP Beispiel

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

kevin89 schrieb:

Ähnliche Themen

2 Benutzer haben hier geschrieben