Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание файлового менеджера 
:(
    Опции темы
Seraphim
Дата 25.10.2006, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вообщем, решил я написать файловый менеджер(что-то типа Total Commander smile ). Вот использую для отображения файлов TListView, использую функцию SHGetFileInfo для вытягивания иконки, имени файла(без разширения). Вот только проблемма, очень медленно работает. Поск файлов в Windows\System32\ занимает 33 секунды, это уж очень много smile Мне сказали, что долго идёт поиск из-за того, что я каждый раз запрашую иконку у файловой системы(т.е. нужно КЕШировать иконки, я убрал поиск иконки, но ничего не изменилось. Ещё сказали что, сам TListView медленный, и лучше использовать TListBox.
Что вообще посоветуете? smile
PM MAIL   Вверх
Matematik
Дата 25.10.2006, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 17
Всего: 50
Цитата(Seraphim @  25.10.2006,  14:22 Найти цитируемый пост)
Поск файлов в Windows\System32\ занимает 33 секунды

у меня 4 сек

Цитата(Seraphim @  25.10.2006,  14:22 Найти цитируемый пост)
Что вообще посоветуете?

показать твой код

Добавлено @ 13:34 
4 секунды это
отсканировать директорию
запихнуть в String имена и размеры
передать по сети другой программе
из String запихнуть в динамический массив
из массива в ListView
PM MAIL WWW ICQ   Вверх
Seraphim
Дата 25.10.2006, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот процедура поиска файлов, она напрямую загоняет в TListView
Код

/////////////////////////////////////////////////////////////
///Поиск файлов
/////////////////////////////////////////////////////////////
Procedure InsertFiles(Drive: TComboBox; Path: String; ListView: TListView; ImageList: TImageList; StatusBar: TStatusBar);
var
  FileInfo     : SHFILEINFO;
  I            : Integer;
  SearchRec    : TSearchRec;
  ListItem     : TListItem;
  Icon         : TIcon;

begin
Application.ProcessMessages;
Icon:=TIcon.Create;
ListView.Items.BeginUpdate;
ListView.Items.Clear;
try
  I:=FindFirst(Drive.Text+'\'+Path+'*.*',faAnyFile,SearchRec);

While I = 0 do
begin
///////////////////////////////////////////////////////////////////////////
////Инфо файла
///////////////////////////////////////////////////////////////////////////
  With ListView do
  begin
    ListItem:=ListView.Items.Add;
    SHGetFileInfo(PChar(Drive.Text+'\'+Path+SearchRec.Name), 0, FileInfo,
                  SizeOf(FileInfo), SHGFI_DISPLAYNAME);
    ListItem.Caption:=FileInfo.szDisplayName;
    ListItem.SubItems.Add(FileExt(Drive,Path+SearchRec.Name));
    SHGetFileInfo(PChar(Drive.Text+'\'+Path+SearchRec.Name), 0, FileInfo,
                  SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
    Icon.Handle:=FileInfo.hIcon;
    ListItem.ImageIndex:=ImageList.AddIcon(Icon);
    DestroyIcon(FileInfo.hIcon);
  end;
ListItem.SubItems.Add(DateTimeToStr(FileDateToDateTime(SearchRec.Time)));
I:=FindNext(SearchRec);
ListView.Cursor:=crHourGlass;
end;
FindClose(SearchRec);
finally
  Icon.Free;
  ListView.Items.EndUpdate;
end;
ListView.Cursor:=crDefault;
end;
PM MAIL   Вверх
Akella
Дата 25.10.2006, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 36
Всего: 329
Для вытягивания иконок и инфы я бы создавал второй поток. Из потока обращался бы к списку уже найденых файлов.
А поиск выполняй стандартно.

Код

Procedure TfmUpdateInfo.GetFileToUpload(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
   if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);
   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
     repeat
       if (SearchRec.name='.') or (SearchRec.name='..') then continue;
       if ((SearchRec.Attr and faDirectory)<>0) then begin
         //нашли папку - пхаем в список
         GetFileToUpload(Dir+SearchRec.name)
       end else begin
               //нашли файл - пхаем в список
       end;//else
     until FindNext(SearchRec)<>0;

 finally
   FindClose(SearchRec);
 end;
end;



запускаем поиск, через полсекнды поток, поток знает имя и путь к файлу, нен нужно выполнять повторный поиск.
PM MAIL   Вверх
Sansa
Дата 25.10.2006, 17:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 3
Всего: 6
На основе популярного Virtual TreeView существует готовое (и бесплатное) решение - VelVEx. Можно использовать, или же брать как пример. Но 100% решение на базе VirtualTreeView на большом количестве файлов будет работать быстрее, нежели стандартный ListView (TreeView).
--------------------
- Здравствуйте, я Ваш патологоанатом
PM MAIL ICQ   Вверх
Seraphim
Дата 29.10.2006, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот такой вопросец. У меня есть процедура поиска файлов, и попутно поиск определяет это файл или папка. И вот мне нужно сделать так, что б если это папка, то строка в ListView была определённого цвена. Как это сделать?
PM MAIL   Вверх
Guedda
Дата 29.10.2006, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Во-первых: Один топик - один вопрос (читайте правила форума)
Во-вторых: аналогичный вопрос уже задавался, поэтому воспользуйтесь поиском по форуму.


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Teq
Дата 13.7.2007, 16:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А что если юзать конву для прорисовки списка файлов? Много памяти надо?
PM MAIL   Вверх
Alexeis
Дата 13.7.2007, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 109
Всего: 459
Teq,  о какой памяти вообще речь? И что значит много или мало? По сравнению с чем много или мало?


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0872 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.