Wann wird TIdTCPServer.Locklist aktualisiert

[Ykcim]

Hallo Zusammen,

ich kann nicht herausfinden, wann die LockList von verbundenen Clients bei einem TIdTCPServer aktualisiert wird.
Ich möchte eine aktuelle Liste mit den IP-Adressen und PeerPorts der Clients auf der Oberfläche darstellen.

Wenn sich ein Client verbindet, klappt das im OnConnect Event wunderbar mit:

Delphi-Quellcode:

procedure TTCPSrvr.ReadLookList(Cols: TCols; var Rows: TRows);
var   List: TIdContextList;
      I: integer;
begin
   SetLength(Rows, Length(Cols), 1);
   Rows[0,0]:= 'Alle';
   Rows[1,0]:= 'Alle';
   Rows[2,0]:= 'Alle';
   Try
      List:= fIdTCPServer.Contexts.LockList;
      for I := 0 to List.Count -1 do begin
         SetLength(Rows, Length(Cols), Length(Rows[0]) +1);
         Rows[0, Length(Rows[0]) -1]:= TIdContext(List[I]).Binding.PeerIP;
         Rows[1, Length(Rows[0]) -1]:= IntToStr(TIdContext(List[I]).Binding.PeerPort);
         Rows[2, Length(Rows[0]) -1]:= ' ';
      end;
   Finally
      fIdTCPServer.Contexts.UnlockList;
   End;
end;

Leider scheint das OnDisconnect Event aber abzulaufen, bevor die LockList aktualisiert wird, sodass der Client, der sich gerade abgemeldet hat, noch in der Liste erscheint. Wenn sich der nächste Client abmeldet, wird der vorherige abgemeldete Client nicht mehr angezeigt, der aktuell sich abgemeldete steht noch drin.

Weiß jemand, wann die LockList aktualisiert wird, sodass ich die LockList erst nach der Aktualisierung auslesen kann?

Vielen Dank
Patrick

[Olli73]

Da der Context im OnDisconnect als Parameter angegeben wird, ist klar, dass er noch nicht freigegeben sein kann. Deshalb hat man ihn bestimmt auch noch nicht aus der Liste entfernt.

Da du aber den freigegebenen Context als Parameter hast, kannst du diesen ja "Ignorieren".

[Ykcim]

Hallo Olli73,

Zitat:

Da der Context im OnDisconnect als Parameter angegeben wird, ist klar, dass er noch nicht freigegeben sein kann.

Das ist logisch - habe ich nicht beachtet...

Zitat:

Da du aber den freigegebenen Context als Parameter hast, kannst du diesen ja "Ignorieren".

Das hört sich gut an! Bin ich nicht drauf gekommen...

Ich habe es jetzt so gelöst, dass ich im OnDisconnect AContext übergebe und im OnConnect nicht. Damit klappt es gut!

Delphi-Quellcode:

procedure TTCPSrvr.ReadLookList(Cols: TCols; var Rows: TRows; AContext: TIdContext = nil);
var   List: TIdContextList;
      I: integer;
      exPeerIP: string;
      exPeerPort: integer;
begin
   SetLength(Rows, Length(Cols), 1);
   Rows[0,0]:= 'Alle';
   Rows[1,0]:= 'Alle';
   Rows[2,0]:= 'Alle';
   Try
      if Assigned(AContext) then begin
         exPeerIP:= AContext.Binding.PeerIP;
         exPeerPort:= AContext.Binding.PeerPort;
      end;
      List:= fIdTCPServer.Contexts.LockList;
      for I := 0 to List.Count -1 do begin
         if (TIdContext(List[I]).Binding.PeerPort <> exPeerPort) then begin
            SetLength(Rows, Length(Cols), Length(Rows[0]) +1);
            Rows[0, Length(Rows[0]) -1]:= TIdContext(List[I]).Binding.PeerIP;
            Rows[1, Length(Rows[0]) -1]:= IntToStr(TIdContext(List[I]).Binding.PeerPort);
            Rows[2, Length(Rows[0]) -1]:= ' ';
         end;
      end;
   Finally
      fIdTCPServer.Contexts.UnlockList;
   End;
end;

Vielen Dank!

LG Patrick