Делаю фрейм для просморта файлов на диске и использую данную функцию, для получения картинок, но тормоза от нее...(если ее убрать, то ни каких тормозов нет). Есть ли более быстрая функция? Пробовал ExtractIcon, но ей не вышло ни чего. Может я не так делалю чего:

Код

var  sr : TSearchRec; begin ... ExtractIcon(hInstance, PAnsiChar(Dir + '\' + sr.Name), 0))

Возвращает 0.

Это сообщение отредактировал(а) <Spawn> - 27.1.2004, 15:47

Как это не удивительно, но у меня всё ок, выдирает:

Код

procedure TForm1.Button1Click(Sender: TObject); var  ic : HICON; begin  ic := ExtractIcon(hInstance, PAnsiChar('c:\project2.exe'), 0);  application.Icon.Handle := ic;  caption := inttohex(ic, 8); end;

Может более полный код привидешь ?
И ты должен учесть, что принцип работы этих функций (ExtractIcon и ExtractAssociatedIcon) - разный, т.к. первая - берет иконку из файла, а вторая - ассоциированную иконку или иконку из файла, т.е. ExtractIcon для не .exe и .dll файлов будет возвращать нули...
Возможно для ускорения тебе лучше кэшировать иконки (т.е. два раза ExtractAssociatedIcon для одного и того же расширения (кроме exe и dll) не вызывать)...

<Spawn>, а куда кладутся иконки? эксплорер, если ты обращал внимание, не грузит их сразу все, а только для видимой части. если используется компоненты типа ListView, то имеет смысл работать через OnGetImageIndex, т.е. грузить иконку непосредственно перед тем, как её надо отрисовать на экране. про BeginUpdate .. EndUpdate - не говорю если юзается ImageList - то тормозить всё на свете будет именно он.

в общем, покажи код

пока что все вот так тормознуто:

Код

procedure TfrFileDir.GetFiles(const Node: TTreeNode); var  sr: TSearchRec;  ListItem: TListItem;  NewIcon : TIcon;  Dir: string;  lpIcon: Word; begin  if not Assigned(Node) then    Exit;  lvFiles.Clear;  FilesImgsList.Clear;  Dir := GetDir(Node);  if FindFirst(Dir + '\*' + FExt, faAnyFile, sr) = 0 then  begin    repeat      if (sr.Attr and faDirectory) = 0 then      begin        NewIcon := TIcon.Create;        NewIcon.Handle := ExtractAssociatedIcon(hInstance, PAnsiChar(Dir + '\'                                      + sr.Name), lpIcon);        ListItem := lvFiles.Items.Add;        ListItem.Caption := sr.Name;        ListItem.ImageIndex := FilesImgsList.AddIcon(NewIcon);        Application.ProcessMessages;      end;    until FindNext(sr) <> 0;    FindClose(sr);  end; end;

Попробую ваши советы внедрить в код)))

Это сообщение отредактировал(а) <Spawn> - 27.1.2004, 22:42

x77 Я тоже не гружу все сразу - только первые 2 уровня, т.е. C:\... и для каждой папки еще итемы нахожу. Когда происходит выбор в TTreeView папки, то для всех ее подпапок проихводится поиск на 1 уровень. Но с этим все ок. Проблема в том что в TListView выводятся файлы, содержащиеся в выделеной папке - вот они и вызвают тормоз. Попробую кешировать и еще помучаю ExtractIcon.

для ListView обязательно делай

Код

Items.BeginUpdate; try  Items.Clear;  ... finally  Items.EndUpdate; end;

а насчёт выделенной папки - OnGetImageIndex. т.е. капшены прописываешь сразу, а иконки подсасываешь по мере отображения файлов. сколько их одновременно отображается? десятка два от силы. а всего в папке их может быть и несколько тысяч, называется, почувствуйте разницу.

кстати, почему ты не освобождаешь NewIcon?

Цитата(x77 @ 27.1.2004, 14:46)

кстати, почему ты не освобождаешь NewIcon?

Хех, а я почему то подумал, что TImageList сохраяняет переданый ему указатель) Подумал, но не проверил. Уже исправил.