Скорость добавления

← →
Fuel (2006-03-06 08:59) [0]

Здравствуйте! Скажите, с помощью чего (как???) в WinAmp происходит практически моментальное добавление файлов?? Я хотел бы добиться такого же результата по скорости в Listview, точнее в Virtual Listview, если это возможно. Я думаю, что нужно сначала добавить в первую колонку полные адреса, а после уже по порядку из неё считывать необходимую информацию о файлах. Но у меня этого сделать не получается. Хотелось бы услышать предложения по ускорению. Кстати, при добавлении сканируются также и подпапки. Может, нужет какой-нибудь сверхбыстрый сканер папок?

← →
API © (2006-03-06 09:06) [1]

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

Правильно думаете.
А почему не получается - судить трудно.
Ибо кода Вы не привели.

Кроме того, получать вторичную вспомогательную информацию (а, впрочем, и пути к файлам - тоже) лучше в отдельном потоке, или, в крайнем случае (но уже только для дополнительной информации) - на Application.OnIdle.

Может, нужет какой-нибудь сверхбыстрый сканер папок?

Ага. Рулонный, с автоподачей... ;)

← →
Fuel (2006-03-11 04:08) [2]

Попытался ещё сам, но, видимо, мне нужна помощь.

uses.....
.
.
.
type
PShellItem = ^TShellItem;
TShellItem = record
Location,FileName,Time: string;
end;

type
TPlayListForm = class(TForm)
.
.
.
procedure FormCreate(Sender: TObject);
procedure pmAddFilesClick(Sender: TObject);
procedure spPlayListViewData(Sender: TObject; Item: TListItem);
public
function ShItem(Index: Integer): PShellItem;
procedure ReadFiles(Location, FileExt: String);
.
.
.
var
Form: TForm;
FIDList: TList;
FIShellFolder: IShellFolder;

procedure TForm.FormCreate(Sender: TObject);
begin
FIDList:=TList.Create;
end;

function TPlayListForm.ShItem(Index: Integer): PShellItem;
begin
Result := PShellItem(FIDList[Index]);
end;

//щелчок по контекстному меню
procedure TForm.pmAddFilesClick(Sender: TObject);
var i: Integer;
begin
while i<odAddFiles.Files.Count-1 do
begin
ShellItem := New(PShellItem);
s1:=Trim(ExpandFileName(OpenDialog.Files[i]));
ShellItem.Location := s1;
FIDList.Add(ShellItem) else
ListView.Items.Count := FIDList.Count;
ShellItem.FileName := ExtractFileName(s1);
s2:=LowerCase(Trim(ExtractFileExt(s1)));
ReadFiles(s1,s2); //считывание происходит на лету, а хотелось бы
//для большей скорости, чтобы считывание
//происходило, как в WinAmp"е, после добавления
end;
end;

procedure TPlayListForm.ListViewData(Sender: TObject;
Item: TListItem);
var s1,s2: String;
i: Integer;
begin
if (Item.Index > FIDList.Count) then Exit;
with ShItem(Item.Index)^ do
begin
Item.Caption := Location;
Item.SubItems.Add(FileName);
Item.SubItems.Add(Time);
end;
end;

// в этой процедуре и происходит считывание информации
procedure TPlayListForm.ReadFiles(Location, FileExt: String);
var FileName,Time: String;
begin
.
.
.
ShellItem.FileName:=FileName;
ShellItem.Time:=Time;
Form.Repaint;
end;

← →
API © (2006-03-11 09:43) [3]

Хотите ускорения работы процедуры сканирования папок, а как раз текст ее не приводите. Смешно.

← →
Handle (2006-03-11 10:24) [4]

> API © (06.03.06 09:06) [1]
>
> Ага. Рулонный, с автоподачей... ;)

Мне понравилось.

← →
IceBeerg © (2006-03-11 12:09) [5]

API © (06.03.06 9:06) [1]
Ага. Рулонный, с автоподачей... ;)
А где РЕКУРСИЯ и МНОГОПОТОЧНОСТЬ?!?

← →
antonn © (2006-03-11 13:01) [6]

IceBeerg © (11.03.06 12:09) [5]
А где РЕКУРСИЯ и МНОГОПОТОЧНОСТЬ?!?
рекурсия - склеиваем концы ленты в заправленном состоянии:))

← →
Fuel (2006-03-12 02:57) [7]

API
Меня больше интересует другое. Куда поместить ReadFiles, чтобы она начала работать только после добавления? Процедуру сканирования можно и не изменять. Я потому код и не привел.
Пробовал ReadFiles поставить после цикла, но в этом случае считывание происходит только для последнего элемента.
В общем, мне нужно, чтобы при pmAddFiles добавление происходило только в первый столбец, а после начиналось заполнение 2-го и 3-его столбцов.
А вопрос про сканирование мне вообще не стоило задавать. Извините.
А именно сам смысл добавления, т.е. как у меня это происходит, я думаю, привел. Можно дописать:
procedure TPlayListForm.ReadFiles(Location, FileExt: String);
var FileName,Time: String;
begin
FileName:="kfkfkfkf";
Time:="5454";
ShellItem.FileName:=FileName;
ShellItem.Time:=Time;
Form.Repaint;
end;

← →
API © (2006-03-12 03:26) [8]

Извините, но алгоритм у Вас какой-то "запутанный". Плюс обилие глобальных переменных, которые, по сути, следовало бы сделать внутренними полями данных формы. И компонентов, которые лежат на форме, но объявления которых Вы зачем-то удалили - даже класс определить порой невозможно (odAddFiles, pmAddFiles и многие другие). Плюс необъявленные переменные - те же s1 и s2 в методе procedure TForm.pmAddFilesClick; (тип понятен из контекста, но смысл их вводить - мне не ясен).

Лично я не вижу возможности разобраться с Вашим кодом, возможно, у кого-то другого телепатор работает лучше.

Кроме того, самого получения списка файлов и их атрибутов я так и не узрел. Приведенный метод ReadFiles,- вообще ничего и не "читает".

Ваша программа вообще - компилирутеся?

То есть, у меня возникает ощущуение, что вы сильно намудрили с кодом.

А чем Вам не подходит пример из Help"а?

procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; FileAttrs: Integer; begin StringGrid1.RowCount := 1; if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0; if CheckBox2.Checked then FileAttrs := FileAttrs + faHidden; if CheckBox3.Checked then FileAttrs := FileAttrs + faSysFile; if CheckBox4.Checked then FileAttrs := FileAttrs + faVolumeID; if CheckBox5.Checked then FileAttrs := FileAttrs + faDirectory; if CheckBox6.Checked then FileAttrs := FileAttrs + faArchive; if CheckBox7.Checked then FileAttrs := FileAttrs + faAnyFile; with StringGrid1 do begin RowCount := 0; if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then begin repeat if (sr.Attr and FileAttrs) = sr.Attr then begin RowCount := RowCount + 1; Cells[1,RowCount-1] := sr.Name; Cells[2,RowCount-1] := IntToStr(sr.Size); end; until FindNext(sr) <> 0; FindClose(sr); end; end; end;

← →
Fuel (2006-03-13 03:03) [9]

pmAddFiles - это пункт контекстного меню (изначально назван был N1), odAddFiles - это OpenDialog1. ReadFiles у меня довольно громоздкая, поэтому я её и не приводил. Вижу теперь, что действительно нужно, но учитывая, что смысл кода для разных файлов один и тот же, то приведу только для *.mp3:

procedure TPlayListForm.ReadMediaFiles(Location, FileExt: String);
var FileName: String;
begin
if (FileExt=".mp3") then
begin
MPEGaudio.ReadFromFile(Location);
ID3V2Tag.ReadFromFile(Location);
if (ID3V2Tag.Title="")or (ID3V2Tag.Artist="") then
begin
ID3V1Tag.ReadFromFile(Location);
ID3V2Tag.Title:=ID3V1Tag.Title;
ID3V2Tag.Artist:=ID3V1Tag.Artist
end;
if (ID3V2Tag.Title="") or (ID3V2Tag.Artist="") then
begin
FileName:=ExtractFileName(Location);
Delete(FileName,Length(FileName)-Length(FileExt)+1,Length(FileExt)+1);
ShellItem.FileName:=FileName;
ShellItem.Time:=FormatFileTime(MPEGaudio.Duration);
end
else
begin
ShellItem.FileName:=ID3V2Tag.Artist+" - "+ID3V2Tag.Title;
ShellItem.Time:=FormatFileTime(MPEGaudio.Duration);
end;
end;

А теперь поясню. Переменные Location служит для того, чтобы процедура знала, из какого файла считывать информацию (т.е. полный адрес файла), FileExt содержит в себе расширение файла. Значения этим двум переменным присваиваются до выполнения процедуры, например:
s1:=полный адрес, по которому находится файл;
s2:=расширение этого файла;
После выполнение процедуры ReadFiles(s1,s2).
MPEGAudio, ID3V1, ID3V2 - это уже компоненты, которые считывают, что надо.
FormatFileTime - это функция, которая представляет время (MPEGaudio.Duration) в минутах и секундах, т.е. в привычный нам вид.
И ещё я должен извинится, что не уточнил, какая именно информация считывается.
Что касается кода, то нет, я с ним особо сильно не намудрил, но он большой. И всё компилируется превосходно. Единственное, что хочу осуществить, это:
открываю папку, файлы (*.mp3) из которой добавляются в Virtual ListView. Добавляются только полные адреса в первый столбец, больше ничего. Вот они полностью добавились, и уже после этого происходит считывание времени и имени файлов. Эта информация соответственно добавляется во 2-ой и 3-ий столбцы.

И вопрос не по теме: где достать информацию по перетаскиванию элементов внутри Virtual ListView? Если кто знает, дайте ссылочку, или ещё что-нибудь, что будет.

Попытайтесь полный список хранить в StringList, а видимые строки отображать в StringGrid. Количество RowCount задайте равным количеству видимых строк, ScrollBar поставьте свой. Вы будете ошеломлены скоростью.

Еще раз порекомендуюсвой ArrayGrid, он как раз подоходит для таких задач намного лучше, чем ListView.

← →
Fuel (2006-03-18 04:16) [12]

Долго я молчал, всё времени не было.
Похоже, мой вопрос не совсем понятен.
Чтобы лучше воспринималось, спрошу так:
как заполнить первый столбец ListView, не заполняя остальные.
Например, не так
Item.Caption := Location; Item.SubItems.Add(FileName); Item.SubItems.Add(Time),
а так
Item.Caption := Location;
Просто убрав две строки. В этом случае возникает ошибка.

Скорость добавления Найти похожие ветки