• Registered: 2015-04-10
  • Posts: 74

Topic: DBFile1 пример

Существует какой нибудь пример по работе с компонентом DBFile1 (+скрипт извлечения файла )?
При добавление выдает ошибку  - "Нет файла для сохранения"
В TableName и FieldName указал таблицу и поле в БД (тип поля ФАЙЛ).

  • Registered: 2014-02-14
  • Posts: 10,294

Re: DBFile1 пример

В принципе использование данного компонента не требует никакой специфики.
Пример для вас:

Post's attachments

Attachment icon Employees - DBFile.zip 94.41 kb, 483 downloads since 2015-09-15 

Dmitry.

3 Reply by fleshkyru (edited by fleshkyru 2015-09-15 16:44:06)

  • Registered: 2015-04-10
  • Posts: 74

Re: DBFile1 пример

Да понятно.
Только такой вопрос.
Я хочу что бы в базе данных хранились mp3 или wav файлы
Ок! Я так понимаю DBFile1- просто добавить в ДБ.
А вот как их проиграть?

//PlaySound('001.wav') ;  Внешний файл работает, а из БД

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
var
myFile  : //?????????????;
begin
     myFile := SQLExecute ('SELECT file FROM test WHERE  id  = 2');
     PlaySound(myFile) ;
end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: DBFile1 пример

fleshkyru
Файлы хранятся непосредственно в базе данных или в отдельной папке? если в отдельной папке, определено ли свойство компонента DBFile.CopyTo ?


проиграть mp3 файл можно так

MediaPlayer.PlayFile('mp3 файл'); 
MediaPlayer.Pause;
MediaPlayer.Stop;
Dmitry.

5 Reply by fleshkyru (edited by fleshkyru 2015-09-16 12:36:58)

  • Registered: 2015-04-10
  • Posts: 74

Re: DBFile1 пример

Файлы хранятся непосредственно в базе данных.
Если в отдельной папке, то тут у меня вопросов нет (реализацию я знаю).
Звуковые файлы будут работать как звуковое информирования (плей и стоп не нужен)
Изображения как иконки для кнопок.
Не ищу легких путей (если в папках, то без проблем все работает)

  • Registered: 2014-02-14
  • Posts: 10,294

Re: DBFile1 пример

попробуйте так:

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    sFile: string;
begin
    try
    sFile := SaveFileFromDataBase ('test','file', 2);
    except
    end;
    
    PlaySound(sFile) ; // сможет проиграть только wav файл, для mp3 используйте MediaPlayer.PlayFile('mp3 файл'); 
end;
Dmitry.
  • Registered: 2015-04-10
  • Posts: 74

Re: DBFile1 пример

Да, работает....