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

Topic: dbCopyTo

Как сохранить файл из БД?

// даже с компонентом не получается
Template.DBFile1.dbCopyTo := ExtractFilePath(Application.Exename) ;

База
Template
name -текст
file - файл
Нужно сохранить файл из БД  в папку (file) в директорию программы с известным ИД  - скриптом

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

Re: dbCopyTo

пример, если файл сохраняется непосредственно в базе

var
   sFile: string
begin
    sFile := SaveFileFromDataBase('tablename', 'fieldname', 4); // файл сохраняется во временную папку Windows, функция возвращает полный путь файла в этой папке
    CopyFile(sFile, ExtractFilePath(Application.Exename)+'file\'+ExtractFileName(sFile)); // копируем файл из временной папки в необходимую
Dmitry.

3 Reply by fleshkyru (edited by fleshkyru 2015-09-25 05:56:05)

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

Re: dbCopyTo

Ок. Спасибо за комментарий. Чей-то я даже не проверил, что передается в строковую переменную.
Я в delphi ноль, за минусом, то что нагуглил.
Вообще, после того как я сним столкнулся благодоря вашей программе . Мое мнение - простой язык.

  • Registered: 2018-03-12
  • Posts: 91

Re: dbCopyTo

DriveSoft wrote:

пример, если файл сохраняется непосредственно в базе

А как реализовать такое же сохранение если файл хранится не в самой бд, а в режиме LinkFile?