multithreading - Delphi-¿Es seguro el hilo TDictionary?

tcp thread-safety

Question

Mi idea es usar TDictionary para administrar conexiones de clientes en IdTCPServer. Aquí hay un código de ejemplo simple (no probado) para fines de comprensión:

var
  Dic: TDictionary<string, TIdContext>;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Dic := TDictionary<string, TIdContext>.Create;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  Dic.Free;
end;

procedure TfrmMain.TCPServerConnect(AContext: TIdContext);
var
  Hostname: string;
begin
  Hostname := UpperCase(GStack.HostByAddress(AContext.Binding.PeerIP));
  if not Dic.ContainsKey(Hostname) then Dic.Add(Hostname, AContext);
end;

procedure TfrmMain.TCPServerDisconnect(AContext: TIdContext);
var
  Hostname: string;
begin
  Hostname := UpperCase(GStack.HostByAddress(AContext.Binding.PeerIP));
  if Dic.ContainsKey(Hostname) then
  begin
    Dic[Hostname].Free;
    Dic.Remove(Hostname);
  end;
end;

¿Es seguro este hilo de código?

Answer 1

En una palabra: No.

Si inspecciona la fuente de TDictionary , debe darse cuenta rápidamente de que no hay ninguna disposición para la seguridad de subprocesos en la implementación en sí. Incluso si lo fuera, al tener llamadas discretas a una instancia de Dic , tiene condiciones potenciales de carrera con las que lidiar:

  if Dic.ContainsKey(Hostname) then
  begin

    // In theory the Hostname key may be removed by another thread before you 
    //  get a chance to do this : ...

    Dic[Hostname].Free;
    Dic.Remove(Hostname);
  end;

Debes hacer que tu propio uso del thread Dic sea seguro, y afortunadamente en este tipo de ejemplo esto se logra fácilmente usando un monitor en el objeto mismo:

MonitorEnter(Dic);
try
  if not Dic.ContainsKey(Hostname) then 
    Dic.Add(Hostname, AContext);

finally
  MonitorExit(Dic);
end;


// ....


MonitorEnter(Dic);
try
  if Dic.ContainsKey(Hostname) then
  begin
    Dic[Hostname].Free;
    Dic.Remove(Hostname);
  end;

finally
  MonitorExit(Dic);
end;

Si no está familiarizado con los monitores en Delphi, en términos simples puede pensar en un monitor como una sección crítica lista para usar respaldada por cada descendiente de TObject (en versiones anteriores de Delphi que no admitían estos monitores, podría haber logrado el Lo mismo con una sección crítica explícita).

Answer 2

Para responder a su pregunta específica, no, TDictionary NO es seguro para subprocesos, por lo que debe proteger el acceso.

Su código no está manejando la posibilidad de que haya varios clientes detrás de un proxy / enrutador que se conecte al mismo servidor. Todos tendrán los mismos valores PeerIP y HostName . Esos valores no son lo suficientemente únicos por sí mismos para identificar a los clientes. Necesita crear sus propios identificadores únicos, por ejemplo, haciendo que sus clientes inicien sesión en su servidor con un nombre de usuario, y luego utilícelo como su clave de diccionario.

Y, por último, ¡NO TIdContext objetos TIdContext ! Son propiedad de TIdTCPServer y se liberarán automáticamente después de que el controlador de eventos OnDisconnect haya salido.