Пшу диплом, нужна консультация небольшая..

[staspro]

Пишу Мультимедиа мэнеджер, Суть вот в чем, юудет искать мультимедиа файлы на дисках и заносить их в бюазу данных....
Вопрос: какой командой мне можно осуществить поиск файлов на диске с определенным расширением?!?!?!

[RSLoader]

Команды: FindFirst и FindNext.
Проще разобраться на примере:

procedure Find(Dir,Ext:String);
var
  SR:TSearchRec; //Информация о файле: Имя, Атрибуты, Размер и т.д.
  FName:String;
begin
  //Поиск в каталоге первой записи,
  //соответствующей имени файла и набору атрибутов
  if FindFirst(Dir+'*.'+Ext,faAnyFile,SR)=0 then
  //Поиск всех последующих записей
  repeat
    FName:=Dir+SR.Name;
    Form1.Memo1.Lines.Add(FName);
  until FindNext(SR)<>0;
  //Поиск в подкаталогах
  if FindFirst(Dir+'*.',faDirectory,SR)=0 then
  repeat
    with SR do
    if (Attr and faDirectory<>0) and (Name[1]<>'.')
    then Find(Dir+Name+'\',Ext);
  until FindNext(SR)<>0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  //Edit1 - где искать
  //Edit2 - расширение (например, exe)
  Find(Edit1.Text,Edit2.Text);
end;

[staspro]

а как записать найденные файлы в бд, т.е. разместить их в таблицу!?

[Alar]

http://www.programmersclub.ru/labfile

Поиск файла

Delphi - реализация поиска. Находит все файлы, пользователь указывает папку, имя или маску для поиска.
Скачать (8 кб)

А для записи используй файлы.

Запись и добавление в файл

Эта программа Delph производит запись и добавление в файл. С данной задачей справляется этот код. Используется операция writeln.
Скачать (7 кб)


http://www.programmersclub.ru/labmultimedta - тут есть всё, что тебе понадобиться для написания плеера, менеджера и т.д.

[zetrix]

а как записать найденные файлы в бд, т.е. разместить их в таблицу!?

Лучше прописывать в БД пути к файлам, а не сами файлы. Если это вы и имели ввиду, то в обычное строковое поле можно.

[Alter]

Сообщение от zetrix

Лучше прописывать в БД пути к файлам, а не сами файлы. Если это вы и имели ввиду, то в обычное строковое поле можно.

Я использую для хранения списка недавних документов INI файлы:
Имена файлов без расширения, или с расширения (Смотря что надо, и где).
Структура моего файла:
[Recent]
Имя файла=Полный путь к файлу
................................... ................

Вы можете использовать тоже такой тип, удобно:
Примерный вид вашей МултиМедиа базы:
[Расширение или просто "Media"]
Имя файла=Полный путь к файлу

Я создал свой класс наподобие TIniFile, только без заголовков с квадратными скобками.
В неизвестных (да и в любого типа INI файлах) я могу узнать имена секций, т.к создал Procedure/Function (это зависит от того где нужно мне её применть) позволяющая получить имена всех секций в INI файлах. Так же создан класс на основе класса описаного выше, для создания MultiLanguage программ, поддерживает много визуальных компонентов.
Думаю что помог.