Антивирус, проблема с потоком

[Karateka]

В общем доделываю Антивирус к своим лабам. Преподаватель попросил добавить возможность остановки поиска зараженных файлов.
В общем думал, думал. Решил использовать потоки. Создал отдельно проект, создаю поток, кидаю ему функцию поиска файлов. И все, сразу крошится. Объясните, в чем проблема? По форуму смотрел пару тем, честно, как-то не получилось вникнуть.

Вот код

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TMyThread = class(TThread)
  procedure Find();
  private

  protected
    procedure Execute; override;
  end;
var
  Form1: TForm1;
  _DirPath : string;
  _MyThread : TMyThread;
implementation

{$R *.dfm}
procedure TMyThread.Execute;
begin
 Find();
end;

procedure TMyThread.Find();
const
  N = 1;
  ArrExt : array[1..N] of String = ('.EXE');
var
  StrExt : string;
  StrDir : String;
  SearchRec : TSearchRec;
  i : Integer;


begin
  StrDir := IncludeTrailingBackslash(_DirPath);
  //aLog.Add('Папка: ' + StrDir);
  if FindFirst(StrDir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      StrExt := UpperCase( ExtractFileExt(SearchRec.Name) );
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
        Continue;
      if (SearchRec.Attr and faDirectory) <> 0 then
        Find()
      else
        for i := 1 to N do begin
          if StrExt = ArrExt[i] then begin
           Form1.Memo1.Lines.add('Файл: ' + StrDir + SearchRec.Name);
            Break;
          end;
        end;
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   _DirPath := 'C:';
  _MyThread:=TMyThread.Create(true);
  _MyThread.FreeOnTerminate:=true;
  _MyThread.Priority:=tpLower;
  _MyThread.Resume;
end;

end

[Stilet]

сразу крошится

Что прям так без текста ошибки как Феникс в пепел превращается?

Form1.Memo1.Lines.add

Эт конечно не смертельно, но рекомендуется это выполнять в синхронизации.

[Karateka]

Пару секунд, и сразу крошится.

Текст ошибки: Project Project1.exe raised exception class $00000FD with message 'stack overflow at 0x7c90e8ee'.

[Stilet]

А-а-а... Ну да )
Сразу не заметил - Find().
Ты рекурсивно проходишь по одному и тому-же каталогу.
Могу порекомендовать свой способ: http://www.programmersforum.ru/showthread.php?t=6639

[Karateka]

Спасибо, действительно ошибка была в этом, прошляпил.
Вот еще хотел спросить. Можно как-нибудь прикрутить 'прогресс-бар' отображающий ход сканирования. Мол сколько осталось до конца.

[Stilet]

Врядли. Тебе заранее не известно сколько ты пройдешь файлов.

[FleXik]

Эт конечно не смертельно, но рекомендуется это выполнять в синхронизации.

не рекомендуется, это вообще обязательно т.к помню Label и ShowMessage когда не синхронизировал у себя то у меня Label автоматически менял размер шрифта сам по себе на форме а ShowMessage менял форму окна автоматически с маленького аж на весь экран))) поэтому в этих случаях синхронизация вообще обязательна

а так, я хз как ТС вообще этот антивирус писал если у него проблема с 1 потоком.

[Stilet]

это вообще обязательно

Ну не совсем ) В некоторых случаях на это можно закрыть глаза, но лучше не надо. Просто тебе с лабелью так повезло наглядно.

как ТС вообще этот антивирус писал если у него проблема с 1 потоком.

Видимо так же как и Бабушкин. Это же лабы. Тут сильно разворачиваться не надо.

[Аватар]

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

а так, я хз как ТС вообще этот антивирус писал если у него проблема с 1 потоком.

Чья бы корова мычала. Без обид

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

первое, не:

procedure TMyThread.Execute;
begin
 Find();
end;

а

procedure TMyThread.Execute;
begin
 Synchronize(Find());
end;

И того: Нахрена тебе поток? Вся работа снова ушла в основной Синхронизация нужна для кратковременных сообщений с основным и всего-то. Поиск делай внутри execute, в синхронизации передавай результат, т.е. только вот этот код:

           Form1.Memo1.Lines.add('Файл: ' + StrDir + SearchRec.Name);