TDaemon и синхронизация

[Angel_19]

Разработка службы для Windows.

Создаю дополнительно отдельный поток. Он исправно работает, пока дело не доходит до синхронизации - она не работает.
Поток:

Код: Выделить всё

TServiceThread = Class(TThread)
  Public
    Constructor Create();
    destructor Destroy; override;
    Procedure Execute; override;
    Procedure Syn;
  end;

{ TServiceThread }

constructor TServiceThread.Create;
begin
    FreeOnTerminate:=True;
    AddLog('Thread - Create', etDebug);
    Inherited Create(False);
end;

destructor TServiceThread.Destroy;
begin
    AddLog('Thread - Destroy', etDebug);
    inherited Destroy;
end;

procedure TServiceThread.Execute;
begin
     AddLog('Thread - Execute START', etDebug);
     Repeat
       AddLog('Thread - tick', etDebug);
       sleep(1000*60*2); // 2 минуты
       Synchronize(@Syn);// - тут работа этого потока останавливается!!!
     Until Terminated;
     AddLog('Thread - Execute STOP', etDebug);
end;

procedure TServiceThread.Syn;
begin
    AddLog('Проверяем не закрыта ли программа, и запускаем если нужно.', etInfo);
    DaemonS.RunClientAllSessionID;
end;


Что делаю не так?

[wavebvg]

Как у Вас обстоят дела с циклом обработки сообщений в основном потоке? С которым Вы пытаетесь синхронизоваться.
Вообще, абстрактный (в смысле не делаюший ничего практичного) поток, приведенный Вами, прекрасно работает. Проблема явно не в нем.
Да и для дерганья каждые две минуты вполне бы подошел обычный таймер.

[Angel_19]

Да и для дерганья каждые две минуты вполне бы подошел обычный таймер.

Таймер в службе без ухищерений не сделать, т.к. в службе нет форм.

[uchar]

В службах/демонах вместо TThread.Synchronize нужно использовать критические секции/мьютексы, например (таймер также
поправлен):

Код: Выделить всё

uses
  SyncObjs;

var
   Lock: TCriticalSection; // Глобальная переменная

procedure TServiceThread.Execute;
var
  StartTime, Ticks: DWORD;
begin
  AddLog('Thread - Execute START', etDebug);
  StartTime := GetTickCount;
  Repeat
    Sleep(10);
    Ticks := GetTickCount;
    if Ticks - StartTime > 1000*60*2 then // 2 минуты
    begin
      AddLog('Thread - tick', etDebug);
      //sleep(1000*60*2); // 2 минуты
      //Synchronize(@Syn);// - тут работа этого потока останавливается!!!
      FLock.Acquire;
      try
        Syn;
      finally
         Lock.Leave;
      end;
      StartTime := Ticks;
    end;
  Until Terminated;
  AddLog('Thread - Execute STOP', etDebug);
end;

initialization
  Lock := TCriticalSection.Create;
finalization
  Lock.Free;


[Angel_19]

Спасибо!
Сделал.