Holde styr på Clienter

Vorherre har svaret på det uden at bruge "hest"

http://www.eksperten.dk/spm/72997

Stoney

Stoney> Ja det kan jeg godt se, hvad der undre mig er at jeg ikke bare kan få connection nummeret på eventet SocketAccept

et eller andet som dette:

procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
var
  ConNo : Integer;
begin
    ConNo := Socket.Connetinon; <-- Men denne funktion kan jeg ikke finde
end;



Jeg har allered en jobliste, idet det er en enhed på en serielledning jeg kommunikere med hvor de forskellige jobs står i kø.

Nu ved jeg ikke om det er en taste fejl

ConNo := Socket.Connetinon; <-- Men denne funktion kan jeg ikke finde

conno:= socket.connection;  <---  Jens har måske haft hest i hovedet

Stoney

Jeg har løst det på denne måde:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
  begin
    ServerSocket1.Socket.Connections[i].SendText('Du er connection: '+ServerSocket1.Socket.Connections[i].RemoteAddress);

  end;
end;

Jeg har allerede IP No på min job stack, og så sammenligner jeg bare med
ServerSocket1.Socket.Connections[i].RemoteAddress og hvis Ip no stemmer overens så sender jeg, så er det ligegyldigt hvilket con. no de har

Hvad hvis der er 2 brugere med samme IP ? (Når flere brugere deler en internetforbindelse)