Проблемы с потоками...

[Deathwatcher]

Чего-то я засиделся и совсем ничего не понимаю. Нужна свежая мысль.
Исходные данные: монитор для слежения за папкой. В случае изменений каких-нибудь, писать в БД.

Проблема первая:
Просматриваю папку. Происходят изменения. Но в базу заносится произвольное количество записей, а не одна!
Вот так просматриваю

 repeat
   if ReadDirectoryChangesW(hDir, Buf, BufSize, SubDirs,
      FILE_NOTIFY_CHANGE_FILE_NAME or
      FILE_NOTIFY_CHANGE_LAST_WRITE or
      FILE_NOTIFY_CHANGE_LAST_ACCESS or
      FILE_NOTIFY_CHANGE_CREATION, @Returned, nil, nil) then
   begin
     Adr := Cardinal(Buf);
     while Adr < (Cardinal(Buf) + Returned) do
     begin
       case fni^.Action of
         FILE_ACTION_ADDED            : logtext := 'Added';
         FILE_ACTION_MODIFIED         : logtext := 'Modified';
         FILE_ACTION_REMOVED          : logtext := 'Removed';
         else logtext := '0x' + IntToHex(fni^.Action, 8);
       end;
        Synchronize(UpdateLog);
        exit;
     end;
   end;
 until False;

Вот так изменения вношу

procedure TMonitorThread.UpdateLog;     //обновление лога
begin
form3.ClientDataSet1.Append;
form3.ClientDataSet1['Название']:= 'файл '+logtext ;
form3.ClientDataSet1['Изменено']:= now  ;
end;

Проблема вторая(смешнее первой) не удается остановить поток!
так я его запускаю

form1.Tag:=Integer(TMonitorThread.Create('D:\Testmonitor'));

так пытаюсь остановить

if Assigned(TMonitorThread(Form1.Tag)) then
TMonitorThread(Form1.Tag).Terminate;    
Form1.Tag := 0;

Буду рад любой помощи!

[Пепел Феникса]

не Терминаль поток а Suspend ему делай
я сам с этим мучался уже

[Антон Ю.Б.]

Делать Suspend всяко мало, а связка Suspend - Free не всегда корректно отрабатывает при занятии потоком ресурсов (особенно, если это связано с устройствами). Поэтому хочется посоветовать проверить установку в конструкторе потока в True свойства FreeOnTerminate, а извне проверять не assigned, а Tag=0 (в некоторых случаях более корректна логика создания нового потока, когда старый логически уже отработал, но физически мог еще освободить не все ресурсы и не уничтожиться).

[BOBAH13]

Ошибка, в первом куске кода. Делать только так:

while not Terminated do.....

вместо

repeat...until false;

А то у вас вечный цикл.

Чтобы завершить поток в главном потоке, синхронно делаем так:

TThread.Terminate;
TThread.WaitFor;
TThread.Free;

На счет последнего поста. Вы не правы. Если поток (верней указатель на класс) хранится в переменной, то допустим поток освободится автоматически (FreeOnTerminate := True) то в переменной будет хранится значение, и Assigned вернет True.. дальше вы увидите при попытке использования этого потока всем известный Access valiation.....

[Антон Ю.Б.]

BOBAH13, так совет совсем в ином состоял (не все правда ясно прописал). Он был в том, чтобы Form1.Tag := 0; делать в деструкторе потока одним из первых действий, а извне просто проверять Form1.Tag на не/равенство нулю, а не конструкцию типа Assigned. Дело даже не в использовании Assigned, а в порядке зануления (установки в Nil) переменной и уничтожения потока для некоторых ситуаций.

[Deathwatcher]

в конструкторе FreeOnTerminate := True; проставляю (((

Сообщение от BOBAH13

Чтобы завершить поток в главном потоке, синхронно делаем так:

TThread.Terminate;
TThread.WaitFor;
TThread.Free;

чего-то у меня вообще вся форма отмирает, а не только этот поток (((


Почему же все таки в БД заносится несколько событий??? очень не хочется предпроверки ставить при добавлении в БД??