unikt id

var
  Form1: TForm1;
  MyConnectedIplist : Tstringlist;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MyConnectedIplist := Tstringlist.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
MyConnectedIplist.Free;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin

if MyConnectedIplist.Count = 1 then
begin//Der er allerede en inde at game....
Socket.Close;
exit;
end else
begin
MyConnectedIplist.Add(Socket.RemoteAddress);
end;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if pos(Socket.RemoteAddress,MyConnectedIplist.Text)<>0 then
begin
MyConnectedIplist.Clear;
end;
end;



Håber det virker for dig. Kun en clients ip er et unikt id.
dkn

Jeg kigger lige på det imorgen efter 17, har desværre ikke tid, men det ser da meget fornuftigt ud

Det må da siges at være hurtigt... ;O)

takker..

Kunne ikke vente ;O)

Det var ikke lige sådan jeg havde tænkt mig, men det kan stadig bruges, så jeg har ændret lidt i det så det passer til mig...

tak for hjælpen

no problem :)