Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.07.2013, 23:18
Alexx_Pol Alexx_Pol вне форума
Прохожий
 
Регистрация: 14.05.2013
Сообщения: 9
Версия Delphi: Delphi 6
Репутация: 10
По умолчанию Загрузка данных: .bat и темповая таблица

Доброго времени суток! Сейчас пытаюсь решить следующую задачу: перенос файлов с локального компьютера в директорию на сервере, копируя сначала файл в поле BLOB темповой таблицы, а затем перенося его в из поля BLOB в директорию на сервере. Сначала я выполнению load.bat, который при помощи ораклевой программки Sqlldr.exe и файла .ctl заносит файл в таблицу. Затем запускаю функцию Blob_To_File_Dir, которая "сливает" содержимое поля BLOB в директорию REPORT_DIR на сервере:
Код:
procedure TWHOBuhReportForm.btn2Click(Sender: TObject);
var
     name_rep: string;
const
    p_rep_dir = 'REPORT_DIR';
begin
    WinExec('c:\oracle\ora92\bin\LOAD\load.bat',1);
    Sleep(3000);
    name_rep := 'TEST_32766.txt';
    WHODbDm.ExecSQL('declare result BINARY_INTEGER; begin  result:= sa.pa_file_storage.Blob_To_File_Dir(null,:p1_dir,:p2_rep); end; '
                ,[p_rep_dir ,name_rep]);
end;
По отдельности эти два фрагмента работают правильно, но если их запускать друг за другом, то функция ругается NO_DATA_FOUND, хотя логи утверждают, что строка в таблицу записана (пробовал с обычной таблицей - так и есть). Насколько я понимаю, у меня ничего не получится, пока функция не будет отрабатывать в одной сессии с занесением строки в таблицу (темповая таблица создана с параметром ON COMMIT PRESERVE ROWS). Подскажите, как это сделать? Можно ли выполнение функции "засунуть" в файл .ctl? Буду рад любым советам!
Ответить с цитированием
  #2  
Старый 13.07.2013, 01:12
Аватар для Freeman
Freeman Freeman вне форума
Местный
 
Регистрация: 05.10.2012
Адрес: Санкт-Петербург
Сообщения: 577
Версия Delphi: 6
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Alexx_Pol
у меня ничего не получится, пока функция не будет отрабатывать в одной сессии с занесением строки в таблицу
Именно так. Выход из этого напрашивается сам собой -- сделать триггер, пишущий BLOB в BFILE. Решение не менее костыльное, чем всё остальное.

Можно поинтересоваться, зачем понадобилось такое издевательство?
Ответить с цитированием
  #3  
Старый 24.07.2013, 12:21
Alexx_Pol Alexx_Pol вне форума
Прохожий
 
Регистрация: 14.05.2013
Сообщения: 9
Версия Delphi: Delphi 6
Репутация: 10
По умолчанию

Цитата:
Сообщение от Freeman
Можно поинтересоваться, зачем понадобилось такое издевательство?
Да решили на фирме изменить существующий механизм передачи файлов отчетов. Чтобы механизм не зависел от сисадминов
Ответить с цитированием
  #4  
Старый 24.07.2013, 15:33
Аватар для Freeman
Freeman Freeman вне форума
Местный
 
Регистрация: 05.10.2012
Адрес: Санкт-Петербург
Сообщения: 577
Версия Delphi: 6
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Alexx_Pol
Чтобы механизм не зависел от сисадминов
Как по мне, хранение отчетов в BFILE вместо BLOB как раз повышает значимость сисадминов, потому что BFILE придуман как оболочка над внешними данными, размещенными на сервере и доступными только для чтения. Именно поэтому процедура загрузки самих файлов в Oracle не предусмотрена. Это все же СУБД, а сетевая ФС.

Использование BFILE оправдано лишь в том случае, если отчеты генерятся в файловом виде внешним ПО где-то на самом сервере, либо публикуются (принимаются) с другого сервера через некую связь "сервер-сервер". Во всех остальных случаях нужно использовать BLOB. Можно вынести таблицу с BLOB-ами в отдельное табличное пространство, либо только данные BLOB-ов.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:48.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter