• Registered: 2014-06-02
  • Posts: 5

Topic: Выгрузка музыкального файла во внешний файл

Добрый день.
Имеется следуюшая задача: в БД в одной из таблиц хранятся музыкальные файлы.
Поиском в грид заносятся записи, из которого выбираются некоторые строки с использованием MultiSelect.
На основании выбранных строк грида должны читаться музыкальные файлы и записываться во внешние файлы для создания плейлистов.
Подскажите, пожалуйста, как скриптом выбрать из БД музыкальный файл и записать его в папку хотя бы для одной выбранной строки грида.
Большое спасибо.

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

Re: Выгрузка музыкального файла во внешний файл

Приветствую.

Если файлы хранятся непосредственно в БД, тогда так

procedure Form1_Button7_OnClick (Sender: string; var Cancel: boolean);
var
   sFileName: string;
begin
     sFileName := SaveFileFromDataBase('tablename', 'fieldname', Form1.GridMusic.dbItemID);
     OpenFile(sFileName);
end;
Dmitry.
  • Registered: 2014-06-02
  • Posts: 5

Re: Выгрузка музыкального файла во внешний файл

Большое спасибо, заработало!

  • Registered: 2014-06-02
  • Posts: 5

Re: Выгрузка музыкального файла во внешний файл

И еще вопрос, вдогонку за первым: имеется ли возможность из скрипта открыть папку в отдельном окне для визуального контроля? Спасибо.

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

Re: Выгрузка музыкального файла во внешний файл

Пример

OpenFile('c:\Windows');

в вашем случае так

OpenFile(ExtractFileDir(sFileName));
Dmitry.
  • Registered: 2014-06-02
  • Posts: 5

Re: Выгрузка музыкального файла во внешний файл

Огромное спасибо!