VPF::Поиск файла - Форум программистов

aktuba

Дата 22.2.2007, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Код


lRes := FindFirst(lPath + '*.dll', faAnyFile, SR);
  try
    while lRes = 0 do
      begin
        
        lRes := FindNext(SR);
      end;
  finally
    FindClose(SR);
  end;

Почему этот код находит все файлы, у которых расширение начинается на .dll, т.е. кроме file.dll находит также file.dllwww и т.д.???

--------------------

W4FhLF

Дата 22.2.2007, 13:49 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Маска поиска в твоём случае должна быть вида: Path + '\*.dll'. Убедись, что у тебя на конце lPath есть слеш.

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

aktuba

Дата 22.2.2007, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

Маска поиска в твоём случае должна быть вида: Path + '\*.dll'. Убедись, что у тебя на конце lPath есть слеш.

Слэш в конце есть. Если бы не было, функция не находила бы вообще ничего...

--------------------

Snowy

Дата 22.2.2007, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Так ищет винда.
Дело не в дельфе - у винды много странноствей с поиском файлов.
Проверяй расширение вручную.

Alexeis

Дата 22.2.2007, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Судя по намекам MSDN анси версия поиска (FindFirstFile) внутри работает по системе 8.3 т.е. расширение файлов не должно иметь более 3 символов. В NT / 2000 / XP есть юникодная версия этой функции, которая работает с путями неограниченной длинны, и как следствие не должно быть ограничений по 8.3
Т.е. функции FindFirstFileW / FindNextFileW

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Snowy

Дата 22.2.2007, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Они обе работают по 8.3
И обе возвращают одинаковый результат.

W1zArD

Дата 22.2.2007, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

Код


var st:TSearchRec;
s:string;
begin
if FindFirst(ExtractFilePath(ParamStr(0))+'*.dll', faAnyFile, SR)=S_OK then    
repeat
if ExtractFileExt(sr.Name)='dll' then ListBox1.Items.Add(sr.name);
until FindNext(sr)<>S_OK;
FindClose(SR);    
end;

а для проверки на наличие слеша в конце можно:
1. исп-ть функц IncludeLast из модуля FileCtrl что-то там ))) (я из кафе так что названия точно не помню)
2. проверять последний символ на '\' smile

Это сообщение отредактировал(а) Alexeis - 22.2.2007, 15:38

Snowy

Дата 22.2.2007, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Проблема не в коде, а в том, что у файла file.dllXXX расширение реально dll
В этом можно убедиться, конвертнув в короткое имя.
Поэтому поиск его в список и включает.

Snowy

Дата 22.2.2007, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

фильтруй вручную.
хотя зачем? если расширение кривое, то это не твоя проблема.
если я текстовик переименую в dll, что тогда?
Я бы не фильтровал бы, а пробовал бы работпть.
Если нет, значит не моё.

aktuba

Дата 22.2.2007, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

В принципе у меня так и делается. Ищутся файлы с определенным расширением, подгружаю их как dll и проверяю, есть ли определенная функция...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »