Multiserver (TCP)

kevin89 · 15. März 2010, 18:35

Einfach erst Thread (sauber) beenden, dann Stream und dann Client schließen.

LG

Speziflasche · 15. März 2010, 18:45

Jaa.. aber wie schließe ich den Thread?

kevin89 · 15. März 2010, 19:52

Unsauber aber funktioniert: Thread aborten und ThreadAbortException abfangen (und danach ggf. Exit Sub). Sauberer: Modulweit deklarierte Boolean-Variable (ggf. Abfrage in SyncLock), falls False -> Sub verlassen, andernfalls fortsetzen.

LG

Speziflasche · 16. März 2010, 15:25

aaah ja ... sagt mir zwar jetzt nicht so viel aber ok

thx für hilfe

arbeite jetzt nicht wirklich lange mit den threads ...

PEAR · 16. März 2010, 18:44

Ton übertragen?

Meinst du man kann es schaffen sowas wie ein skype gespräch zu proggen?
Ich dahcte an diesen ansatz: 10sec aufnehmen in parralelen threat uploaden und währendessen nahtlos die nächsten 19 sec ton aufnhemne .. meinst du das geht?

kevin89 · 16. März 2010, 18:50

Ja, klar ist es das (wobei 10 sek viel zu lang ist, es heißt schließlich STREAMING - Datenfluss)... Habe schon ein Audio-Streaming-Programm (ähnlich Shoutcast) auf dieser Basis entwickelt.

LG

Speziflasche · 16. März 2010, 19:36

Hm . ich hätte dan noch eine frage hierzu und zwar wie kann ich es bewerkstelligen das ich ganze Dateien versenden kann? Hab schon bischen rumprobiert, aber bisher sendet der nur den Code der Datei....

Mfg Speziiii

kevin89 · 16. März 2010, 21:09

aber bisher sendet der nur den Code der Datei....

Ähm. Ja genau. Was ist für dich ein "Code der Datei"??
--
Datei (opt. blockweise) auslesen, senden (direkt binär oder base64-kodiert), empfangen, fertig.

Speziflasche · 17. März 2010, 17:42

Ach wusste nicht wie ich es am besten beschreiben sollte

Flut von irg welchen Zeichen eben

Fire · 19. März 2010, 19:41

das ist vermutlich der inhalt der datei.
diese zeichen müsste der zielrechner dann als datei speichern und fertig

Netto Hikari · 25. April 2010, 20:59

Hi, schönes Tut.

Meine Frage ist: Wie würde man nachher noch z. B. den Benutzernamen ändern? Hab da noch andere Werte in die Struktur "Connection" gepackt (Benutzername, Benutzerlevel, in welchen Chaträumen ist der Nutzer, usw.) und die würde ich wenn möglich gerne on-the-fly ändern können.

Ich hab einfach zum Test den Benutzernamen einer Connection umbenannt während der Laufzeit, aber wenn ich das hier mache

VB.NET-Quellcode

For Each user as Connection in list
Console.WriteLine(user.userName)
Next

dann werden nur die alten Benutzernamen gezeigt, die gesetzt wurden, als die Connections zur Liste hinzugefügt wurden.

Mag nun etwas verwirrend klingen, steh gerade etwas auf'm Schlauch.

AsdAsd1337 · 26. April 2010, 18:23

wie könnte man das spammen unterbinden? also wenn einer in 1 sekunde mehrere nachrichten abschickt > kick

kevin89 · 26. April 2010, 18:45

@ Netto Hikari: Hier bietet sich die Verwendung eine Klasse mit entsprechenden Properties an, da du bei Änderung eines Wertes in der Structure diese komplett mit dem neuen Wert komplett neu instanzieren müsstest.
@ AsdAsd1337: Was soll ich zu so einer Frage sagen? Programmieren? Diese Frage hat nichts mit TCP zu tun.

AsdAsd1337 · 26. April 2010, 19:10

ja ich will nur wissen wie man das macht -.-

jvbsl · 26. April 2010, 20:05

die Nachrichten pro Zeiteinheit zählen und wenn ein Wert überschritten wird, dann beim Server Disposen?!

AsdAsd1337 · 26. April 2010, 20:19

bin noch neu in vb programmierung, kannste mir dabei helfen wie ich das machen könnte?

Netto Hikari · 27. April 2010, 01:04

@ kevin89 Jo, danke. So hab ichs nun auch gemacht.

Wie gesagt, stand auf dem Schlauch.

jvbsl · 27. April 2010, 13:20

Hallo

@AsdAsd1337: ich glaube eher du bist neu im allgemeinen Programmieren?! Wage dich am besten erstmal an was leichteres, was du selber hinbekommst, ohne es abzugucken

Mfg jvbsl

massgrave · 29. April 2010, 10:36

hey hey

bin neu hier im forum und habe hier gleich mal dieses klasse tutorial von kevin getestet
vielen dank dafür, habe alles verstanden und funktioniert alles auch klasse

habe jetzt aber bei einer erweiterung probleme

und zwar wollte ich dass der server den empfangenen text nicht an alle clients weitersendet
also habe ich in der sub ListenToConnection den aufruf der sub SendToAllClients rausgenommen
jetzt habe ich aber das problem, dass beim beenden eines clients dieser anscheinend nicht aus der liste entfernt wird
also keine exception ausgelöst wird und der thread dann in der endlosschleife hängen bleibt und ständig mit system.console.writeline leere zeilen ausgibt
ich glaube clientseitig habe ich alle streams, sockets usw. korrekt geschlossen
deshalb sollte meiner meinung nach beim server doch eine exception ausgelöst werden, da der stream ja nicht mehr lesbar ist und die endlosschleife beenden
bin echt ratlos...

hier mal noch meine codes

Spoiler anzeigen

Client:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.Net
Imports System.IO
Public Class Form1
Private client As New TcpClient
Private stream As NetworkStream
Private streamw As StreamWriter
Private streamr As StreamReader
Private t As New Threading.Thread(AddressOf Listen)
Private Delegate Sub DAddItem(ByVal s As String)
Private Sub AddItem(ByVal s As String)
ListBox1.Items.Add(s)
End Sub
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Try
client.Connect("127.0.0.1", 1234)
If client.Connected Then
stream = New NetworkStream(client.Client)
stream = client.GetStream
streamw = New StreamWriter(stream)
streamr = New StreamReader(stream)
t.Start()
Else
t.Abort()
client.Close()
stream.Close()
streamw.Close()
streamr.Close()
t.Abort()
MessageBox.Show("Verbindung zum Server nicht möglich!")
Application.Exit()
End If
Catch ex As Exception
t.Abort()
client.Close()
stream.Close()
streamw.Close()
streamr.Close()
t.Abort()
MessageBox.Show("Verbindung zum Server nicht möglich!")
Application.Exit()
End Try
End Sub
Private Sub Listen()
While client.Connected
Try
Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
Catch
t.Abort()
client.Close()
stream.Close()
streamw.Close()
streamr.Close()
t.Abort()
MessageBox.Show("Verbindung zum Server nicht möglich!")
Application.Exit()
End Try
End While
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
streamw.WriteLine(TextBox1.Text)
streamw.Flush()
TextBox1.Clear()
End Sub
Private Sub Form1_leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.FormClosed
t.Abort()
client.Close()
stream.Close()
streamw.Close()
streamr.Close()
Application.Exit()
End Sub
End Class

Server:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Imports System.Threading
Module Module1
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 1234)
Private list As New List(Of ClientConnection)
Private Structure ClientConnection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim IP As String
End Structure
Sub Main()
Console.WriteLine("Der Server läuft!")
server = New TcpListener(ipendpoint)
server.Start()
Dim t1 As New Threading.Thread(AddressOf SendClient)
t1.Start()
While True
client = server.AcceptTcpClient
Dim con As New ClientConnection
con.stream = client.GetStream
con.streamr = New StreamReader(con.stream)
con.streamw = New StreamWriter(con.stream)
Dim tcpip As IPAddress = CType(client.Client.RemoteEndPoint, IPEndPoint).Address
con.IP = tcpip.ToString() & "/" & list.Count
list.Add(con)
Console.WriteLine(con.IP & " has joined.")
Dim t As New Threading.Thread(AddressOf ListenToConnection)
t.Start(con)
End While
End Sub
Private Sub ListenToConnection(ByVal con As ClientConnection)
Dim str As String = Nothing
Do
Try
str = con.streamr.ReadLine()
System.Console.WriteLine(con.IP & ": " & str)
'SendToAllClients(con.IP & ": " & str)
Catch ex As Exception
list.Remove(con)
Console.WriteLine(con.IP & " has exit.")
Exit Do
End Try
Loop
End Sub
Private Sub SendClient(ByVal con As ClientConnection)
Dim send As String
While True
send = System.Console.ReadLine()
SendToSingleClient(send)
'SendToAllClients(send)
End While
End Sub
Private Sub SendToAllClients(ByVal s As String)
For Each c As ClientConnection In list
Try
c.streamw.WriteLine(s)
c.streamw.Flush()
Catch ex As IOException
End Try
Next
End Sub
Private Sub SendToSingleClient(ByVal s As String)
Dim tmp As ClientConnection = New ClientConnection
tmp = list.Find(AddressOf FindClient)
tmp.streamw.WriteLine(s)
tmp.streamw.Flush()
End Sub
Private Function FindClient(ByVal Client As ClientConnection) As Boolean
System.Console.WriteLine("Client eingeben: ")
Dim adr As String = System.Console.ReadLine()
If adr = Client.IP Then
Return True
Else
Return False
End If
adr = Nothing
End Function
End Module

bin über jede hilfe dankbar

grüße
massgrave

ShadowWarlock · 5. Mai 2010, 02:13

Hallo leuete,

Erstmal gutes Tut und vielen dank... nun habe ich ein Problem:

Ich nutzte diesen Code:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Public Class Form1
Private stream As NetworkStream
Private streamw As StreamWriter
Private streamr As StreamReader
Private client As New TcpClient
Private t As New Threading.Thread(AddressOf Listen)
Private Delegate Sub DAddItem(ByVal s As String)
Private Sub AddItem(ByVal s As String)
ListBox1.Items.Add(s)
End Sub
'Programmende
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
'Änderungsfenster
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
form3.show()
End Sub
'Logindaten Form
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
form2.Show()
End Sub
'Server starten
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
txtServername.Text = txtServername.Text.Replace("\", "\\")
txtServername.Text = txtServername.Text.Replace("/", "\/")
txtServername.Text = txtServername.Text.Replace(" ", "\s")
txtServername.Text = txtServername.Text.Replace("|", "\p")
txtServerMsg.Text = txtServerMsg.Text.Replace("\", "\\")
txtServerMsg.Text = txtServerMsg.Text.Replace("/", "\/")
txtServerMsg.Text = txtServerMsg.Text.Replace(" ", "\s")
txtServerMsg.Text = txtServerMsg.Text.Replace("|", "\p")
Try
client.Connect(form2.TextBox1.Text, form2.TextBox2.Text)
If client.Connected Then
stream = client.GetStream
streamw = New StreamWriter(stream)
streamr = New StreamReader(stream)
streamw.WriteLine("login " & form2.TextBox3.Text & " " & form2.TextBox4.Text)
streamw.WriteLine("servercreate virtualserver_name=" & txtServername.Text _
& " virtualserver_port=" & txtServerport.Text _
& " virtualserver_maxclients=" & txtSlots.Text)
streamw.WriteLine("logout")
streamw.WriteLine("login " & Form2.TextBox3.Text & " " & Form2.TextBox4.Text)
streamw.WriteLine("use port=" & txtServerport.Text)
streamw.WriteLine("serveredit virtualserver_welcomemessage=" & txtServerMsg.Text)
streamw.WriteLine("serveredit virtualserver_password=" & txtServerPwd.Text)
streamw.WriteLine("logout")
streamw.Flush()
t.Start()
MessageBox.Show("Server gestartet")
End If
Catch ex As Exception
MessageBox.Show("Verbindung zum Server nicht möglich!" & vbCrLf & "Bitte IP und/oder Port prüfen" _
& vbCrLf & "Sowie Benutzername und Passwort prüfen!")
End Try
End Sub
Private Sub Listen()
While client.Connected
Try
Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
Catch
End Try
End While
End Sub
End Class

Wobei dieser Abschnitt:

VB.NET-Quellcode

Private Sub AddItem(ByVal s As String)
ListBox1.Items.Add(s)
End Sub

für die Ausgabe in die Listbox ist.
Soweit so gut... nur wie bekomme ich z.B die Zeile 5 der ListBox in eine Textbox oder sogar alles in eine RichTextbox???

Multiserver (TCP)

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

73 Benutzer haben hier geschrieben