Socket提问

Question

我把clientsocket:array of TCustomWinSocket;
     clientcount:integer; 
 clientsocket[clientcount]:=Socket;       //和该用户通信的socket记录下错误：
   access violation at address 00457873in module

Answer 1

异曲同工:OnlineUsers:TSTringList; //保存在线用户的List
OnlineUsers.AddObject ('UserID',socket) //登记连接服务器的用户,socket为该client与Server连接通话的socket
--------------------------------------------
取指定的SOCKET
     tag:=OnlineUsers.IndexOf('UserID');
       if tag>=0 then TempSocket:=onlineUsers.Objects[tag] as      TCustomWinSocket;  //TempSocket 为服务端与User2对话的SOCKET
   tempsocket.sendsomething

Answer 2

加 OnlineUsers：=TSTringList.creat();

Answer 3

clientsocket:array of TCustomWinSocket;
clientcount:integer; 
clientsocket[clientcount]:=Socket;clientsocket 没有分配空间。。  setlength(clientsocket,10)等

Answer 4

有没有人知道，delphi7 的 socketconnection 在 client端的时候，怎样捕捉由于 scksrv 的 inactive timeout 产生的错误？我想错误显示改为自己定义的提示？