Загруprf больших файлов в blob

[eldalex]

добрый день! возникла такая проблема, необходимо с помощью пакетной процедуры оракла взять на клиентском приложении файл и поместить его в базу.
есть вот такая табличка:

create table test_lob
(
test_id number(12),
file_name varchar2(80),
file_size number,
orig_file blob
)
tablespace users
lob (orig_file)
store as securefile
(
tablespace users
enable storage in row
chunk 4096
pctversion 20
nocache
nologging
)

и пока я нашел единственное решение

create or replace directory my_files as 'C:\test_lob'
create sequence sq_lob_test;

declare
l_size number;
l_file_ptr bfile;
l_blob blob;
begin
l_file_ptr := bfilename('my_files', '10.mpg');
dbms_lob.fileopen(l_file_ptr);
l_size := dbms_lob.getlength(l_file_ptr);
insert into test_lob
(
test_id,
file_name,
file_size,
orig_file
)
values
(
sq_lob_test.nextval,
'file1',
null,
empty_blob()
)
returning orig_file into l_blob;
dbms_lob.loadfromfile(l_blob, l_file_ptr, l_size);
commit;
dbms_lob.close(l_file_ptr);
end;

в чем минус, эта процедура может взять файлы только с сервера, на клиентском приложении она вполне естественно не будет искать папку C:\test_lob. некоторые советуют использовать SQL*Loader но это тоже не подходит. вот собственно и вопрос, как можно загрузить файл с диска клиента (например тот же "C:\test_lob\10.mpg") в переменную типа blob?

ну или если уж совсем грубо перефразировать то ситуация такая. есть сервер напрямую к которому у меня нет доступа, я не могу например создать там свою папку и положить туда свой файл. есть SQL*Developer и есть файл на моем диске. sql*loader отсутствует. вот используя все что есть надо положить файл в базу процедуркой девелопера.

-----------------------------------------------------

кароче можно закрыть) я ужо допетрил что никак не сделать, тут тока клиентским приложением можно подсовывать...

[soleil@mmc]

именно
нужно написать небольшую приладу для работы на клиентской стороне
читаем из файла, грузим в стрим, стрим сохраняем в блоб-поле таблицы

[eldalex]

в двух словах, я передаю файл кусочками по 32к в хранимую процедуру. файл принимается и сохраняется. 750 метров на данный момент лежат в тестовом поле.
принимает и сохраняет его следующая процедура:
(в базе есть запись с id 1 и полем ORIG_FILE типа blob = null)

procedure dbst_save_lob( 
  id in number
 ,blb in blob
) is
  bl blob;
  len     BINARY_INTEGER;
begin
 select ORIG_FILE into bl from test_lob_2 where ID=1 for update;
 --prog_debug_info_save(length(bl));
 if bl is null then 
   begin
     update test_lob_2 set ORIG_FILE=blb where ID=1;
   end;
 else
   begin
     len := length(blb);
     dbms_lob.writeappend(bl, len, blb);
     update test_lob_2 set ORIG_FILE=blb where ID=1;
   end;
 end if;
end;

вроде все работает, но есть одно но. можно ли как нибудь избежать постоянного select'а и update'а?
в том плане чтоб как то складировать это в какую нибудь переменную и update делать только в самом конце?

[eldalex]

все, вроде как работает...
вобщем сделал так

procedure dbst_save_lob( 
  id in number
 ,blb in blob
) is
  len     BINARY_INTEGER;
begin
  if loc is null then 
    begin
      update test_lob set ORIG_FILE=EMPTY_BLOB (); 
      select ORIG_FILE into loc from test_lob where TEST_ID=1 for update;
      --prog_debug_info_save('старт');
    end;
  end if;  
  if loc is not null then
    begin 
      len := length(blb);
      if len<>32000 then
        begin
          dbms_lob.writeappend(loc, len, blb);
          update test_lob set ORIG_FILE=loc where TEST_ID=1;
          --prog_debug_info_save('финиш');
        end;
      else
        dbms_lob.writeappend(loc, len, blb);
      end if;  
    end;
  end if;
end;

loc это глобальная пакетная переменная - локатор, ставится в null при записи нового файла. и пока надцать раз вызывается процедура не меняется. в итоге всего один селект чтоб инициализировать локатор и всего один update при получении последней части файла. есть конечно одно но, вполне возможно, что когда нибудь, кто нибудь, попытается залить файл, размер которого будет кратен 32000 байт... вот тут то кривые руки и всплывут)) надо еще подумать...

[soleil@mmc]

заведи еще один вх.параметр - is_eof
с последним куском его выставишь, а в коде проверишь и сделаешь апдейт