S.a arkadaşlar visual basic 2010 kullanıyorum ve
Object reference not set to an instance of an object.
Bu hatayı alıyorum. Clientten veri yolladıgım zaman .
Kodlar
Kod:
Dim i As Integer Dim soket() As AxMSWinsockLib.AxWinsock Dim b As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click i = 1 ReDim soket(i) soket(i) = New AxMSWinsockLib.AxWinsock With soket(i) .Name = i End With Me.Controls.Add(soket(i)) soket(i).AccessibleRole = Windows.Forms.AccessibleRole.Default soket(i).CausesValidation = True soket(i).Dock = DockStyle.None soket(i).Visible = True soket(i).Protocol = 0 soket(i).LocalPort = "8204" soket(i).RemotePort = "8204" soket(i).Listen() AddHandler soket(i).ConnectionRequest, AddressOf Me.tikla End Sub Private Sub tikla(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionR equestEvent) b = i + 1 If soket(i).CtlState MSWinsockLib.StateConstants.sckConnected Then soket(i).Close() End If soket(i).Accept(e.requestID) ListBox1.Items.Add(e.requestID) AddHandler soket(i).DataArrival, AddressOf Me.tikla2 ReDim soket(b) soket(b) = New AxMSWinsockLib.AxWinsock With soket(b) .AccessibleRole = Windows.Forms.AccessibleRole.Default .Name = b End With Me.Controls.Add(soket(b)) soket(b).Protocol = 0 soket(b).LocalPort = 8204 soket(b).RemotePort = 8204 soket(b).CausesValidation = True soket(b).Dock = DockStyle.None soket(b).Visible = True soket(b).Listen() AddHandler soket(b).ConnectionRequest, AddressOf Me.tikla i = i + 1 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub tikla2(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrival Event) Dim gelenver1i As String Dim btn As AxMSWinsockLib.AxWinsock btn = CType(sender, AxMSWinsockLib.AxWinsock) soket(btn.name).GetData(gelenver1i) ' Hata burda End Sub End Sub

__________________