Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Вниз

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

 
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? Если кто знает, дайте ссылочку, или ещё что-нибудь, что будет.


 
Defunct ©   (2006-03-13 04:33) [10]

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


 
Alex Konshin ©   (2006-03-13 07:38) [11]

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


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

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



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

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

Наверх




Память: 0.49 MB
Время: 0.027 c
2-1144684983
que
2006-04-10 20:03
2006.04.23
GetMem &amp; FillChar &amp; Pointer ???


2-1144270250
EvgFobos
2006-04-06 00:50
2006.04.23
Из RichEdit в файл


15-1144221582
Zhekson
2006-04-05 11:19
2006.04.23
Построение изофот


3-1141279957
Рафик
2006-03-02 09:12
2006.04.23
Сортировка


1-1142858068
nastya
2006-03-20 15:34
2006.04.23
объявить константы в TypeLibrary





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский