有谁用过ICS的TWSocket组件，现求一个小例子。 ( 积分: 100 )

谢谢各位。

谢谢各位。

procedure TFrm_main.ADDConn(Client: TWSocketClient);
var
l: integer;
begin
l := length(connlist);
setlength(connlist, l + 1);
connlist[l] := TTcpSrvClient(Client);
connlist[l].connect := true;
connlist[l].Login := false;
connlist[l].connectTime := now;
connlist[l].ReceBuffer.Clear;
connlist[l].WSocketDataEvent := WSocketDataEvent;
// Client.Tag:=l;以后加速用


end;

procedure TFrm_main.WSocketServer1ClientConnect(Sender: TObject;
Client: TWSocketClient; Error: Word);
begin

ADDConn(Client);
//
//
end;