Доброго времени суток! Сейчас пытаюсь решить следующую задачу: перенос файлов с локального компьютера в директорию на сервере, копируя сначала файл в поле 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? Буду рад любым советам!