Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Netzwerkclient über TCP

Frage Entwicklung VB for Applications

Mitglied: BikerHeinze

BikerHeinze (Level 1) - Jetzt verbinden

07.10.2008, aktualisiert 13.10.2009, 5402 Aufrufe

Hallo,

ich habe mir ein kleines Tool unter VB.Net 2008 geschrieben mit dem man Nachrichten an einen anderen schicken kann.
Mein kleines Problem liegt darin, dass ich die Verbindung nicht schließen kann.
Wenn ich die Verbindung trenne und will sie wieder verbinden kommt der Fehler "Auf das verworfene Objekt kann nicht zugegriffen werden. Objektname: System.Net.Sockets.TcpClient."
Wie ich richtig die Verbindung trenne.
Kann mir einer Helfen.

Imports System.Net.Sockets
Imports System.Text
Imports System.Runtime.Remoting.Messaging

Public Class Form1

Private TCP_Client As New TcpClient
Dim bytes() As Byte

Private Stream As NetworkStream

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

'es wird nur gesendet wenn die verbindung steht
If TCP_Client.Connected = True Then
TCP_Client.Close()
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Show()
Me.Activate()
Me.Refresh()

End Sub

Private Sub onGetData(ByVal ar As System.IAsyncResult)

Dim clientdata As String = Encoding.ASCII.GetString(bytes)
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(clientdata)
Stream.Write(sendBytes, 0, sendBytes.Length)

End Sub

Private Sub CON_AN()

If TCP_Client.Connected = True Then
TXT_VERBINDUNG.Text = "Verbunden mit " + TXT_CLIENT.Text
TXT_VERBINDUNG.Refresh()
Else
TXT_VERBINDUNG.Text = "Keine Verbindung"
TXT_VERBINDUNG.Refresh()
End If

End Sub

Private Sub BUT_TRENNEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUT_TRENNEN.Click

'es wird nur gesendet wenn die verbindung steht
If TCP_Client.Connected = True Then
TCP_Client.Close()
End If

Call CON_AN()

End Sub

Private Sub BUT_SENDEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUT_SENDEN.Click

BUT_SENDEN.Enabled = False

'falls die verbindung nicht steht wird verbunden
If TCP_Client.Connected = False Then
'On Error Resume Next
TCP_Client.Connect(TXT_CLIENT.Text, xxxxx)
'On Error Resume Next
Stream = TCP_Client.GetStream
End If

'anzeigen ob eine Verbindung steht
Call CON_AN()

'es wird nur gesendet wenn die verbindung steht
If TCP_Client.Connected = True Then
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(TextBox1.Text)
Stream.Write(sendBytes, 0, sendBytes.Length)
Else
'ausgabe dass keine verbindung steht
MsgBox("-> Es steht keine Verbindung mit - " + TXT_CLIENT.Text + " <-")
End If

BUT_SENDEN.Enabled = True

End Sub
End Class
Ähnliche Inhalte
Erkennung und -Abwehr
TCP Acceleration (1)

Frage von MikePost zum Thema Erkennung und -Abwehr ...

Windows Server
gelöst MS-SQL Server ohne SSL bei Zugriff über TCP 1433 (1)

Frage von laster zum Thema Windows Server ...

Netzwerkmanagement
Windows Server 2012 TCP Port trotz freigabe nicht offen (13)

Frage von t0mmIX zum Thema Netzwerkmanagement ...

LAN, WAN, Wireless
gelöst Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (19)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...