Доброго времени суток! Сейчас пытаюсь решить следующую задачу: перенос файлов с локального компьютера в директорию на сервере, копируя сначала файл в поле BLOB темповой таблицы, а затем перенося его в из поля BLOB в директорию на сервере. Сначала я выполнению load.bat, который при помощи ораклевой программки Sqlldr.exe и файла .ctl заносит файл в таблицу. Затем запускаю функцию Blob_To_File_Dir, которая "сливает" содержимое поля BLOB в директорию REPORT_DIR на сервере:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | 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? Буду рад любым советам!