Lock (class)

class procedure Lock(iOpe:Integer; iNoWait:boolean):boolean;

Pose un verrou pour une opération exclusive.

Une opération exclusive est une opération qui ne doit pas être exécutée simultanément sur plusieurs machines.

iOpe	Un entier représentant l'opération à verrouiller
iNoWait	Ne pas attendre si l'opération est verrouillée

iOpe doit être unique pour une classe.

Exemple

const
  cMyExclusiveOperation = 1;
begin
  if not MyClass.Lock(cMyExclusiveOperation,true) then
    begin
      // This operation is currently executing on an other process.
      Exit;
    end;
  try
    doMyExeclusiveOperation;
  finally
  MyClass.UnLock(cMyExclusiveOperation);
  end;
end;

Voir aussi

• UnLock

— Classes métiers (tech) — Développement DSM —