I am writing a server application that can handle multiple connections. When a client connects I stick add it into a collection. What im getting stuck on is when the client disconnects I need the client object to remove itself out of the collection. I am passing the parent collection refrence as a param but the problem is how does the client object know what index it is in the collection?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Having an object remove itself from a collection?
- Thread starter WilliamUT
- Start date
JohnYingling
Programmer
What specific collection type, by namespace and type? If it is the VB compatibility collection.
Dim I as Integer
For I = 1 to MyCol.Count
if MyCol.Item(I) Is paramaobj then
MyCol.Remove(I)
Exit For
End if
Next
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
Dim I as Integer
For I = 1 to MyCol.Count
if MyCol.Item(I) Is paramaobj then
MyCol.Remove(I)
Exit For
End if
Next
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
- Thread starter
- #3
JohnYingling
Programmer
custom collection type?
You mean it does not inherit an existing collection type in the System.Collection namespace?
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
You mean it does not inherit an existing collection type in the System.Collection namespace?
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
- Thread starter
- #5
Not exactly sure about that I am still fairly new with working with collections and am working off some code examples. Here is my code so far i have cut out most of the irrelivant stuff :
Public Class clsClientObj
Public Sub New(ByVal ParentCollectionRef As clsClientCol)
Col = ParentCollectionRef
End Sub
'accepts the incomming connection, opens the stream and starts the dataarrival thread
Public Sub Accept(ByVal Connection As System.Net.Sockets.TcpListener)
'accept the incomming connection
tcpClient = Connection.AcceptSocket
'open the stream to the socket so we can sent data back and forth
Stream = New NetworkStream(tcpClient)
StreamWriter = New BinaryWriter(Stream)
StreamReader = New BinaryReader(Stream)
'start the dataarrival thread so it always reads from the stream when data comes in from the
'client
DataArrivalThread = New Thread(AddressOf DataArrival)
DataArrivalThread.Priority = ThreadPriority.Lowest
DataArrivalThread.Start()
End Sub
...........................
Public Class clsClientCol
Inherits System.Collections.CollectionBase
Public Overridable Function Add(ByVal value As clsClientObj) As Integer
MyBase.List.Add(value)
End Function
Public Overridable Function Remove(ByVal value As clsClientObj) As Integer
MyBase.List.Remove(value)
End Function
Default Public Overridable Property Item(ByVal index As Integer) As clsClientObj
Get
Return DirectCast(MyBase.List.Item(index), clsClientObj)
End Get
Set(ByVal value As clsClientObj)
MyBase.List.Item(index) = value
End Set
End Property
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
Private Client As New clsClientCol()
Private ClientObj As New clsClientObj(Client)
Private Sub Listener_ClientConnecting(ByVal Connection As System.Net.Sockets.TcpListener) Handles Listener.ClientConnecting
ClientObj.Accept(Connection) 'accept the incomming connection
Client.Add(ClientObj) 'add the client that just connected to the collection
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Listener.Start_Server() 'start the multithreaded listener
End Sub
Private Sub btnMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMsg.Click
MsgBox(Client.Count)
End Sub
End Class
Public Class clsClientObj
Public Sub New(ByVal ParentCollectionRef As clsClientCol)
Col = ParentCollectionRef
End Sub
'accepts the incomming connection, opens the stream and starts the dataarrival thread
Public Sub Accept(ByVal Connection As System.Net.Sockets.TcpListener)
'accept the incomming connection
tcpClient = Connection.AcceptSocket
'open the stream to the socket so we can sent data back and forth
Stream = New NetworkStream(tcpClient)
StreamWriter = New BinaryWriter(Stream)
StreamReader = New BinaryReader(Stream)
'start the dataarrival thread so it always reads from the stream when data comes in from the
'client
DataArrivalThread = New Thread(AddressOf DataArrival)
DataArrivalThread.Priority = ThreadPriority.Lowest
DataArrivalThread.Start()
End Sub
...........................
Public Class clsClientCol
Inherits System.Collections.CollectionBase
Public Overridable Function Add(ByVal value As clsClientObj) As Integer
MyBase.List.Add(value)
End Function
Public Overridable Function Remove(ByVal value As clsClientObj) As Integer
MyBase.List.Remove(value)
End Function
Default Public Overridable Property Item(ByVal index As Integer) As clsClientObj
Get
Return DirectCast(MyBase.List.Item(index), clsClientObj)
End Get
Set(ByVal value As clsClientObj)
MyBase.List.Item(index) = value
End Set
End Property
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
Private Client As New clsClientCol()
Private ClientObj As New clsClientObj(Client)
Private Sub Listener_ClientConnecting(ByVal Connection As System.Net.Sockets.TcpListener) Handles Listener.ClientConnecting
ClientObj.Accept(Connection) 'accept the incomming connection
Client.Add(ClientObj) 'add the client that just connected to the collection
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Listener.Start_Server() 'start the multithreaded listener
End Sub
Private Sub btnMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMsg.Click
MsgBox(Client.Count)
End Sub
End Class
JohnYingling
Programmer
To remove the object, just call your collections Remove method.
By the way. your collection is based on (inherits) System.Collections.CollectionBase
Public Class clsClientCol
Inherits System.Collections.CollectionBase
In multi-threading scenarios, be sure to protect (lock) your collection during Adds and Removes.
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
By the way. your collection is based on (inherits) System.Collections.CollectionBase
Public Class clsClientCol
Inherits System.Collections.CollectionBase
In multi-threading scenarios, be sure to protect (lock) your collection during Adds and Removes.
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
- Thread starter
- #7
JohnYingling
Programmer
Where is the index in the following?
I am missing something.
Public Overridable Function Remove(ByVal value As clsClientObj) As Integer
MyBase.List.Remove(value)
End Function
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
I am missing something.
Public Overridable Function Remove(ByVal value As clsClientObj) As Integer
MyBase.List.Remove(value)
End Function
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
- Thread starter
- #9
JohnYingling
Programmer
Yes, if you are doing it from within the instance that is to be removed. Try it in Debug Mode.
but you need a reference to the collection.
theCol.Remove(Me).
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
but you need a reference to the collection.
theCol.Remove(Me).
Forms/Controls Resizing/Tabbing
Compare Code
Generate Sort Class in VB
Check To MS)
- Status
