Рекурсивный поиск в потоке(TThread). Как?

[Человек_Борща]

Доброго времени суток!

Пишу сервисное приложение.
Запускаемй поток должен вызывать свой execute, где вызывается рекурсивная функция поиска чего-то.

но метод EXECUTE вообще не отрабатывает.

в логе я вижу:

_Init
_Final

Что соответствует конструктору и деструктору класса потока.


Вот так в целом все выглядит:

constructor TScanThread.Create;
begin
  inherited Create(True);
  FreeOnTerminate := True;
  Priority := tpHigher;
  fLog := TLogFile.Create;
  fLog.SavePath := myDir;
  fLog.Add('_Init');
end;

destructor TScanThread.Destroy;
begin
  fLog.Add('_Final');
  fLog.Free;
  inherited;
end;

procedure TScanThread.Execute;
begin
  fLog.Add(fStartScan);  //передаю в поток диск x:\ 
  ListFileAndHash(fStartScan);
end;

procedure TScanThread.ListFileAndHash(StartDir: string);
var
  SearchRec: TSearchRec;
  Buff: string;
  fName: string;
  i, i2: SmallInt;
begin
  try
    fLog.Add('FindFirst at "'+StartDir + '*.*"');
    if FindFirst(StartDir + '*.*', faAnyFile, SearchRec) = 0 then
    begin
      repeat
        fLog.Add('Looking fo "'+StartDir+'"');
        if Terminated then
          Exit;
        if (SearchRec.Attr and faDirectory) <> faDirectory then
        begin
          if Terminated then
            Exit;
          if StartDir + SearchRec.Name <> StartDir then
          begin
            fLog.Add('fName = ' + SearchRec.Name);
            fName := SearchRec.Name;
            // Цикл по файлам
            for i := cFilesAMin to cFilesAMax do
            begin
              if Terminated then
                Exit;
              // если это наш файл
              fLog.Add('fName <> [' + IntToStr(i) + ']' + aSearchFilesList[i]);
              if (LowerCase(fName) = LowerCase(aSearchFilesList[i])) then
              begin
                fLog.Add('fName = [' + IntToStr(i) + ']' + aSearchFilesList[i]);
                // цикл// по каталогам
                for i2 := cFoldersAMin to cFoldersAMax do
                begin
                  if Terminated then
                    Exit;
                  // если рядом с файлом есть нужный каталог
                  fLog.Add('fName = [' + IntToStr(i) + ']' + aSearchFilesList[i]
                    + ' <> [' + IntToStr(i2) + ']' + aSearchFoldersList[i2]);
                  if DirectoryExists(StartDir + aSearchFoldersList[i2]) then
                  begin
                    fLog.Add('fName = [' + IntToStr(i) + ']' + aSearchFilesList
                      [i] + ' = [' + IntToStr(i2) + ']' +
                      aSearchFoldersList[i2]);
                    // передаем папку..
                    if Assigned(fOnFound) then
                      fOnFound(StartDir);
                  end;
                end;
              end;
            end;
          end;
          if Terminated then
            Exit;
        end
        else
        begin
          if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
          begin
            fLog.Add('resursive moved to "'+StartDir + SearchRec.Name + '\'+'"');
            // Recursive
            ListFileAndHash(StartDir + SearchRec.Name + '\');
          end;
        end;
        if Terminated then
          Exit;
      until FindNext(SearchRec) <> 0;
    end;
  finally
    fLog.Add('ResursiveSearchThread>_FinallySection');
    FindClose(SearchRec);
  end;
end;

Суть потока:
Пробежаться по разделу HDD при помощи рекурсиии, и найти несколько папок по указанным условиям.

Проблема:
Метод execute у TScanThread вообще не выполняется.

[Silver_S]

"Execute; override;" не забыли?

[Человек_Борща]

Да, это исправило проблему.

[phomm]

Компиль по этому случаю должен выдать ворнинг
[Warning] ....pas(...): Method '...' hides virtual method of base type '...'
Не игнорируем !

Может данные (или даже все) ворнинги отключены директивой или в настройках ?

[Человек_Борща]

Там сотни ворнингов =)

Но среди них, этого не было.

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

вам бы с -Wall скомпилить проект.

я вообще считаю что даже варнинг это плохо.

[Аватар]

Но среди них, этого не было

Значит в настройках отключен этот Warning

[Человек_Борща]

Не трогаю настройки отладчика вообще =)
Может я его и не заметил. Но проблему это исправило.