Thom,
I found that I had to DIM sockets() as TCPSocket rather than
myTCPSocket and then type cast later . . so here is the code that
compiles and works:
dim aTCPsocketarray() as TCPSocket
dim tempsocket as JBE_TCPSocket
dim sizeofarray, i as integer = -1
aTCPsocketarray =JBE_ServerSocket1.ActiveConnections
sizeofarray = Ubound (aTCPsocketarray)
for i = 0 to sizeofarray
If (aTCPsocketarray(i) isa JBE_TCPSocket) then
tempsocket = JBE_TCPSocket(aTCPsocketarray(i))
tempsocket.SocketID = i
end if
next
It is great to know that I can do typecasting in RB :)
Thom,
Thank you for this. It is exactly what I was looking for. And
also thank you to Jim who got me on the right track.
Jeff Edwards
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
