tcp Sender...

[tomycat]

hallo,
ich weis, ich habe die Frage schon mal gestellt.Aber ich setze nochmal an:

MEIN KOMPLETTER CODE :

Imports System.Net.Sockets
Imports System.IO


Public Class Form1

    'Variablen:
    Dim stream As NetworkStream
    Dim streamw As StreamWriter
    Dim streamr As StreamReader
    Dim Client As New TcpClient
    Dim IP As String = "192.168.2.111"
    Dim Port As Integer = 80
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Client.Connect(IP, Port)  'Client verbindet sich mit IP: 192.168.111.17 und Port 4000

        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

        Dim meintext As String = "hallo Welt"
        streamw.WriteLine(meintext)
        streamw.Flush()
        Client.Close()

    End Sub

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

    End Sub
End Class 

Das ist ein ganz neues Projekt.
Mein Test Server auf dem Laptop ist eingestellt auf 192.168.2.111 und hört auf Port 80.
F5 für Compilieren.

Wenn ich auf Buttion1 klick.Dann kann ich ganz genau Zählen:
21 22 23 24 25 Dann steht "hallo Welt" auf dem Laptop

Warum? Ich habe schon ein andere TCP Server genommen, da zähle ich bis 28.
Idee? Wie gesagt. Das ganze Projekt hat 1 Knopf.

[tomycat]

...Nachtrag:

Kabel vom Laptop abgezogen.
IE auf dem Pocket gestartet und als adresse 192.168.2.111 eingegeben.
Der Laptop hat sofort reagiert, ein hauch einer Sekunde.
Aber warum geht mein VB nicht

[tomycat]

...Nachtrag

hat sich erledigt.
In Form1 starte ich den Connect und in Form3 sende ich.
Damit kann ich leben.

[tomycat]

Der Schock:
Wenn ich Per Kabel (Laptop-PocketPC) meine Prog über das Visual Studio 2008 laufen lassen, dann empfängt mein Server das Test Signal nahc ca.5 Sek.

Ok,wenn ich meine Anwendung auf den PocketPC kopiere und starte, dann stützt es nach 2 sek. ab. und bringt über Details:

SocketException
Es konnte keiner Verbindung hergestellt
werden, da der Zeilcomputer die
Verbindung verweigerte

bei
System.Net.Sockets.Socket.ConnectNoCheck(EndPonit remoteEP)
bei
System.Net.Sockets,Socket.Connect(EndPonit remoteEP)
bei
System.Net.Sockets.TcpClient.Connext(IPEndPoint remoteEP)
bei
System.Net.Sockets.TcpClient.Connext(String hostname,Int32 port)
bei
System.Net.Sockets.TcpClient..ctor(String hostname,Int32 port)
bei
vb2.Form1senden_click(Object sender,EventArgs e)
... und eine ganze Late mehr...