TLZXMasterThread

type TLZXMasterThread = class(TThread)

  FCompressor: TLZXCompressor;

  FBusyThreads: TFPList;

  FLockData: TRTLCriticalSection;

  FLockQueueThread: TRTLCriticalSection;

  FDataRemains: Boolean;

  FBlockNumber: Integer;

  FRunning: Boolean;

  FMemList: TFPList;

  FTmpData: Pointer;

  FTmpDataSize: Integer;

  procedure UpdateDataRemains;

  function BlockDone();

  procedure WorkerFinished();

  function GetFreeMemoryChunk;

  procedure Lock;

  procedure UnLock;

  procedure LockTmpData;

  procedure UnLockTmpData;

  function Working;

  function DataRemains;

  function Running;

  function QueueThread();

public

  procedure Execute; override;

  constructor Create();

  destructor Destroy; override;

end;

TLZXMasterThread

TObject