C# / VB.NET - Ennesimo problema Sockets [VB.Net]

Forum - C# / VB.NET - Ennesimo problema Sockets [VB.Net]

ProgrMan93 (Ex-Member)
Pro

Messaggi: 68
Iscritto: 25/06/2008

Postato alle 14:39
Venerdì, 25/07/2008

Questo topic è stato chiuso dal moderatore

Ho realizzo un applicazione (server - Client) per chattare però quando tento di connettermi al server viene generata un'eccezione Null Reference Exception
Ecco il codice
Server:

Codice sorgente - presumibilmente VB.NET

Imports System.Net.Sockets
 
Public Class Form1
    Public Listener As New Net.Sockets.TcpListener(25)
    Public Client As TcpClient
    Public NetStr As NetworkStream
 
 
    Private Sub ControlConnection_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlConnection.Tick
        If Listener.Pending Then
            Client = Listener.AcceptTcpClient
            NetStr = Client.GetStream
            ControlConnection.Stop()
            Listener.Stop()
            GetData.Start()
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Listener.Start()
    End Sub
 
    Private Sub GetData_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetData.Tick
        If Client.Connected Then
            If Client.Available > 0 And NetStr.CanRead Then
                Dim Bytes(Client.ReceiveBufferSize) As Byte
                Client.ReceiveBufferSize = 8129
                NetStr.Read(Bytes, 0, Client.ReceiveBufferSize)
 
                Dim x As String = System.Text.ASCIIEncoding.ASCII.GetString(Bytes)
                MsgBox(x)
            End If
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Client.Connected Then
            If NetStr.CanWrite Then
                Dim Bytes() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
                NetStr.Write(Bytes, 0, Bytes.Length)
            End If
        End If
    End Sub
End Class

CLient:

Codice sorgente - presumibilmente VB.NET

Imports System.Net.Sockets
Public Class Form1
    Public Client As TcpClient
    Public NetStr As NetworkStream
 
    Private Sub GetData_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetData.Tick
        If Client.Connected Then
            If Client.Available > 0 And NetStr.CanRead Then
                Dim Bytes(Client.ReceiveBufferSize) As Byte
                NetStr.Read(Bytes, 0, Client.ReceiveBufferSize)
 
                Dim y As String = System.Text.ASCIIEncoding.ASCII.GetString(Bytes)
                MsgBox(y)
            End If
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Client.Connected Then
            If NetStr.CanWrite Then
                Dim Bytes() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
                NetStr.Write(Bytes, 0, Bytes.Length)
            End If
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Client.Connect("127.0.0.1", 25)
        If Client.Connected Then
            NetStr = Client.GetStream()
            GetData.Start()
        End If
    End Sub
End Class

Ultima modifica effettuata da ProgrMan93 il 25/07/2008 alle 14:40

klez91 (Normal User)
Pro

Messaggi: 117
Iscritto: 04/05/2008

Postato alle 16:32
Venerdì, 25/07/2008

Sia nel server che nel client hai dimenticato di utilizzare il costruttore New nella dichiarazione del TCPClient. Prova così:

Codice sorgente - presumibilmente C# / VB.NET

Dim Client As New TCPClient

P.S. - Totem mi sa che devi aggiustarlo anche tu sul tuo sito

Ciao

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 11:16
Sabato, 26/07/2008

Ti ricordo che Client, nel server viene inizializzato dal metodo Listener.AcceptTcpClient, quindi non è necessario il costruttore lì. Lo è solo nel Client, ma evidentemente mi sono dimenticato di inserirlo nel Form1_Load.
Comunque mi stupisco sempre che non si riesca a risolvere questi problemi.

ProgrMan93 (Ex-Member)
Pro

Messaggi: 68
Iscritto: 25/06/2008

Postato alle 17:37
Sabato, 26/07/2008

Avete ragione! nn l'avevo proprio visto!

Ultima modifica effettuata da ProgrMan93 il 26/07/2008 alle 17:47