¿Cómo puedo implementar una envoltura de lista segura para subprocesos en Delphi?

Question

que tienen una envoltura lista que mantiene dos Tstringlists y un TClassList

necesito que esto sea seguro para subprocesos, tal que:

• escrituras concurrentes no se les permite (estado de espera de algún tipo debe introducirse)
• de lectura, mientras que no se permite la escritura (o viceversa) (estado de espera de algún tipo debe ser introducido)
• Lecturas simultáneas son permitidos

¿Alguna idea sobre cómo puedo hacer esto? Mi instinto me dice que necesita más que solo una sección crítica, tal vez un semáforo o "contador de uso", tal vez uno de estos en conjunción con un CS.

No estoy muy seguro de por dónde empezar, cualquier cosa, desde un enfoque general en inglés hasta código psuedo, hasta la implementación de delphi o un enlace externo sería muy apreciado.

Answer 1

Usted debe echar un vistazo a la clase TMultiReadExclusiveWriteSynchronizer declarada en sysutils.pas ...

Answer 2

Tener un vistazo a este tutorial. Threading the Delphi Way

Mire el Capítulo 11, pero todo es bueno.

Answer 3

Realmente debería mirar TThreadList.

Los métodos .Add, .Remove, .Clear bloquean automáticamente la lista por usted. Si es necesario, también puede bloquear/desbloquear, según sea necesario:

x.LockList; 
try 
    //do whatever 
finally 
    x.Unlocklist; 
end; 

TMultiReadExclusiveWriteSynchronizer es una gran idea, pero no sé si alguna vez subsanadas todos los bichos. Siempre ha tenido problemas bajo carga.