client server connect Problem

thomsen · 6. Mai 2012, 20:38

Hallo

ich habe eine client/server Anwendung geschrieben, bei der der client automatisch zum server connected. Auf meinem eigenen Rechner klappt das prima. Sobald ich aber versuche mit dem client auf einem anderen Rechner auf den server, der auf meinem Rechner läuft zu connecten, funktioniert es nicht...

Hat einer eine Idee woran das liegen könnte?

haiyyu · 6. Mai 2012, 20:42

Du musst den entsprechenden Port in deinen Routereinstellungen weiterleiten.

thomsen · 6. Mai 2012, 21:16

Ach so danke haiyyu, aber warum hat es dann auf meinem eigenen PC noch funktioniert?

Wie geht das mit den Routereinstellungen?, habe da kein Plan von.

haiyyu · 6. Mai 2012, 21:29

Hängt von deinem Router ab. Portfreigaben gelten nur fürs Internet.

creac · 9. Mai 2012, 08:19

portforward.com/

thomsen · 9. Mai 2012, 15:45

Ok, ich habe die Port nun freigeschaltet. Allerdings funktioniert die Verbindung immer noch nicht, wenn der client auf einem anderen Rechner läuft wie der server. Was könnte es noch für einen Grund geben?

haiyyu · 9. Mai 2012, 16:30

Zeig uns mal deinen Code. Es kann natürlich auch sein, dass du den Port falsch weitergeleitet hast.

thomsen · 9. Mai 2012, 17:59

Wie kann man einen Port falsch weiterleiten? Mein Router ist Fritzbox, wenn das hilft.

picoflop · 9. Mai 2012, 18:58

thomsen schrieb:

Wie kann man einen Port falsch weiterleiten?

Falsche Ziel-IP? Falsches Protokoll? usw

thomsen · 20. Mai 2012, 14:03

Problem immer noch nicht gelöst. Hier mal mein code

hier der server code:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Public Class Form1
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim server As TcpListener
Dim client As New TcpClient
Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 32103)
Dim mainthread As Threading.Thread
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mainthread = New Threading.Thread(AddressOf mainserver)
mainthread.Start()
End Sub
Sub mainserver()
server = New TcpListener(ipendpoint)
server.Start()
client = server.AcceptTcpClient
If client.Connected Then
MsgBox("Connected")
End If
stream = client.GetStream
streamr = New StreamReader(stream)
streamw = New StreamWriter(stream)
While True
Dim Buffer() As Byte = Convert.FromBase64String(streamr.ReadLine) 'Wandelt den String wieder zu Byte-Array um
File.WriteAllBytes("Pfad" + TextBox2.Text, Buffer) 'Schreibt die neue Datei
End While
End Sub
Private Sub Form1__close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
server.Stop()
Try
mainthread.Abort()
Catch
End Try
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()
End Sub
End Class

hier der client code:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Public Class Form1
Dim client As New System.Net.Sockets.TcpClient
Dim stream As NetworkStream
Dim streamW As StreamWriter
Dim streamR As StreamReader
Dim mainthread As Threading.Thread
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mainthread = New Threading.Thread(AddressOf mainserver)
mainthread.Start()
End Sub
Sub Deklare_Streams()
stream = client.GetStream ' Stream wird auf Client verwiesen
streamW = New StreamWriter(stream) ' Stream zum Senden wird deklariert
streamR = New StreamReader(stream) ' Stream zum Empfangen wird deklariert
End Sub
Sub mainserver()
While True
If client.Connected = False Then
Try
client.Connect("Computername", 32103)
If client.Connected Then
Deklare_Streams()
End If
Catch ex As Exception
End Try
End If
Try
SendFile(streamR.ReadLine)
Catch
End Try
End While
End Sub
Private Sub SendFile(ByVal pfad As String)
Try
Dim Buffer() As Byte = File.ReadAllBytes(pfad) 'List alle Byts das Datei aus
Dim sbuffer As String = Convert.ToBase64String(Buffer) 'Wandelt das Byte-Array in einen String um
streamW.WriteLine(sbuffer)
streamW.Flush() 'Dürfte klar sein
Catch
End Try
End Sub
End Class

LaMiy · 20. Mai 2012, 16:23

Wo gibts du dem Client die IP des Servers, auf welchen dieser connecten soll?

thomsen · 20. Mai 2012, 16:51

In der Zeile 28 des Client Code

VB.NET-Quellcode

client.Connect("Computername", 32103)

LaMiy · 20. Mai 2012, 19:58

Gibst du da den Namen des Computers oder seine Ip an ?

thomsen · 20. Mai 2012, 20:21

Den Namen des Computers. Aber das geht ja auch oder?

LaMiy · 20. Mai 2012, 20:39

Nein

was wäre denn wenn du deinen Pc Hans nennst und ich nenne ihn auch so. Woher soll der Client dann wissen auf welchen Pc (eig. ja Server) er connecten soll?
Da muss die IP des Servers rein

thomsen · 22. Mai 2012, 14:36

danke laMiy aber leider funktioniert es auch mit der ip nicht.
Wäre toll, wenn einer mal meinen code testen würde, damit ich weiß ob das Problem am code liegt, oder ob es etwas anderes ist.

petaod · 22. Mai 2012, 16:08

Teste zunächst mal zwischen zwei PCs, die im gleichen lokalen Netzwerk hängen.
Damit ist der Router erst mal aussen vor.

enIking1998 · 22. Mai 2012, 16:09

Hab im Forum dies gefunden:

Also Konsolenanwendung:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.IO
Imports System.Net
' TCP-MultiServer
' C 2009 - Vincent Casser
Module Module1
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 32103)
Private list As New List(Of Connection)
Private Structure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
End Structure
Private Sub SendToAllClients(ByVal s As String)
For Each c As Connection In list ' an alle clients weitersenden.
Try
c.streamw.WriteLine(s)
c.streamw.Flush()
Catch
End Try
Next
End Sub
Sub Main()
Console.WriteLine("Der Server läuft!")
server = New TcpListener(ipendpoint)
server.Start()
While True ' wir warten auf eine neue verbindung...
client = server.AcceptTcpClient
Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
c.stream = client.GetStream
c.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)
c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
list.Add(c) ' und fügen sie der liste der clients hinzu.
Console.WriteLine(c.nick & " has joined.")
' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
Dim t As New Threading.Thread(AddressOf ListenToConnection)
t.Start(c)
End While
End Sub
Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
Console.WriteLine(con.nick & ": " & tmp)
SendToAllClients(con.nick & ": " & tmp) ' an alle clients weitersenden.
Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
list.Remove(con)
Console.WriteLine(con.nick & " has exit.")
Exit Do
End Try
Loop
End Sub
End Module

Das ist der Server der Client kann so bleiben.
Ahja du musst in CMD folgendes eingeben:
ipconfig
dann wo IPv4 steht die IP kopiren und wo

VB.NET-Quellcode

client.Connect("Computername", 32103)

steht musst du die IP reinschreiben die auch in IPv4 steht.

Mono · 22. Mai 2012, 16:12

enIking1998 schrieb:

Versuch mal den Server in Konsolenanwendung zu schreiben.

Und das soll was bringen?

Auf welche Ip versucht der Client sich zu verbinden?
Du musst schon die externe IP der Fritzbox verwenden!

Gruss

enIking1998 · 22. Mai 2012, 16:16

Hab damit diesen Code der über dich steht gemeint:D.

client server connect Problem

client server connect Problem

thomsen schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

enIking1998 schrieb:

Ähnliche Themen

6 Benutzer haben hier geschrieben