Topic: Экспорт файлов

Есть большая база(на MySQL), прикрепленные файлы хранятся прямо в базе. Необходимо выгрузить все файлы на диск.

Re: Экспорт файлов

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/5x7vjreoju45z … a.zip?dl=0


Пример

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    Results: TDataSet;
begin
    SQLQuery('SELECT id FROM tablename', results);

    while not Results.EOF do
    begin
        SaveFileFromDatabase('tablename', 'file', Results.FieldByName('id').AsInteger, 'D:\FolderForFiles\');
        Results.Next;
    end;
end;
Dmitry.

Re: Экспорт файлов

Спасибо, все работает