vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
DTA-Dateien erstellen inkl. BLZ-/Kontonummernpr?fung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2014
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
tcpClient 
Autor: Kaito
Datum: 03.03.07 14:52

hi ich bin grad dabei einen tcp client zu machen
das ist der derzeitige code.
Imports System.Net
Imports System.Text
Public Class Form1
    Dim tcpClient As New System.Net.Sockets.TcpClient()
    Dim networkStream
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ToolStripStatusLabel1.Text = "Disconnectet"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
 
 
            tcpClient.Connect(TextBox1.Text, TextBox3.Text)
            Dim networkStream As Sockets.NetworkStream = tcpClient.GetStream
            ToolStripStatusLabel1.Text = "Connected to: " & TextBox1.Text & ":" _
              & TextBox3.Text
        Catch ex As Exception
            ToolStripStatusLabel1.Text = "Disconnectet"
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
 
 
        Console.WriteLine("Client verbunden!")
 
        Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes("FNORD")
        networkStream.Write(data, 0, data.Length)
        If Not TextBox2.Text = Nothing Then
 
            Try
                Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes( _
                  TextBox2.Text)
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                ToolStripStatusLabel1.Text = TextBox2.Text & "was send to " & _
                  TextBox1.Text & ":" & TextBox3.Text
            Catch
                ToolStripStatusLabel1.Text = "Could not send " & TextBox2.Text
            End Try
        End If
 
 
    End Sub
 
 
End Class
connecten funzt ja aber das senden nicht der fehler ist:

Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt.

vielleicht könnt ihr mir helfen?

cya Kaito

Er kam, er sah, er zerst?rte - Der MENSCH

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

falscher code 
Autor: Kaito
Datum: 03.03.07 14:54

ahh falscher code:

Imports System.Net
Imports System.Text
Public Class Form1
    Dim tcpClient As New System.Net.Sockets.TcpClient()
    Dim networkStream
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ToolStripStatusLabel1.Text = "Disconnectet"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
 
 
            tcpClient.Connect(TextBox1.Text, TextBox3.Text)
            Dim networkStream As Sockets.NetworkStream = tcpClient.GetStream
            ToolStripStatusLabel1.Text = "Connected to: " & TextBox1.Text & ":" _
              & TextBox3.Text
        Catch ex As Exception
            ToolStripStatusLabel1.Text = "Disconnectet"
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
 
        If Not TextBox2.Text = Nothing Then
 
            Try
                Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes( _
                  TextBox2.Text)
                networkStream.Write(data, 0, data.Length)
                ToolStripStatusLabel1.Text = TextBox2.Text & "was send to " & _
                  TextBox1.Text & ":" & TextBox3.Text
            Catch
                ToolStripStatusLabel1.Text = "Could not send " & TextBox2.Text
            End Try
        End If
 
 
    End Sub
 
 
End Class

Er kam, er sah, er zerst?rte - Der MENSCH

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: falscher code 
Autor: NeoTrace
Datum: 10.03.07 01:44

Dim networkStream

zu

Dim networkStream As Sockets.NetworkStream

Dann...

networkStream = tcpClient.GetStream

Müsste reichen, ka probier mal... bin müde und geh jetzte pennen =)
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: falscher code 
Autor: Kaito
Datum: 10.03.07 10:22

hi

das networkStream = tcpClient.GetStream wohin?

das connecten geht ja aber das senden von daten nicht

cya Kaito

Er kam, er sah, er zerst?rte - Der MENSCH

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

ich habs 
Autor: Kaito
Datum: 10.03.07 18:16

ich habs

der server brauchte nur ein enter am ende jedes satzes^^

cya Kaito

Er kam, er sah, er zerst?rte - Der MENSCH

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2014 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel