Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Вниз

Поиск файлов с помощью компонента FileSearch   Найти похожие ветки 

← →
Anar   (2002-09-19 10:11) [0]

Недавно скачал компонент FileSearch. Он короче ищет файлы на диске.
Вообщем с ним у меня такая проблема: Для поиска временных файлов на диске (с расширением *.tmp и *.~*) если выбран соответствующий CheckBox пишу код для обработчика StartSearchButton:

MainPath:=PathEdit.Text;
SearchEngine.SearchFile:=MainPath;
If TempFilesChBox.Checked=true then
Begin
SearchEngine.SearchFile:=MainPath+"\*.tmp";
SearchEngine.Start;
SearchEngine.SearchFile:=MainPath+"\*.~*";
SearchEngine.Start;
end;


Где SearchEngine - компонент FileSearch, MainPath - путь к которому мы добавляем расширение.

На форме также добавлена кнопка Stop. Для неё пишу

SearchEngine.Stop:=true

При этом поиск не завершается полностью. Т.е. если в данный момент ищет *.tmp, то он прекращает этот поиск и переходит к поиску *.~*. Если выбрать ещё несколько типов файлов, то вообще будет нажимать несолкько раз Stop.

Потом решил написать такой код:


Repeat
SearchEngine.Stop:=true
Until SearchEngine.Searching=false.


Т.е. пусть остановит процесс поиска инфы, пока этот самый SearсhEngine работает. Теперь при нажатии на Stop программа зависает. Помогает только Ctrl-F2 в среде Delphi.

Прошу всех помочь. Please.

---

← →
Anar   (2002-09-19 10:14) [1]

И ещё: у кого нет этого компонента, могу прислать по почте.

---

← →
VID   (2002-09-19 11:44) [2]

Никогда не работал с этим компонентом, но логика подсказывает что ты, приятель, извращаешься :)

Begin
SearchEngine.SearchFile:=MainPath+"\*.tmp; *.~*";
SearchEngine.Start;
end;

---

← →
Anar   (2002-09-19 15:21) [3]

> Begin
> SearchEngine.SearchFile:=MainPath+"\*.tmp;*.~*";
> SearchEngine.Start;
> end;

Я так делал. При этом он находит только файлы *.tmp, игнорируя *.~*.

ВОТ ТАК! Проблема не решена.

---

← →
lenin   (2002-09-19 15:32) [4]

У меня этого компонента нет, но попробуй сделать так: объяви какой нить флаг и измени следующим образом:
MainPath:=PathEdit.Text;
SearchEngine.SearchFile:=MainPath;
fstop:=false;
If TempFilesChBox.Checked=true then
Begin
SearchEngine.SearchFile:=MainPath+"\*.tmp";
SearchEngine.Start;
if not fstop then
begin
SearchEngine.SearchFile:=MainPath+"\*.~*";
SearchEngine.Start;
end;
end;
...
...
...
fstop:=true;
SearchEngine.Stop:=true;



---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c