VPF::Сохранение данных из BLOB поля таблицы в файл

MacTep

Дата 14.1.2010, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Подскажите, пожалуйста, как можно скриптом сохранить данные из поля BLOB таблицы в файл на диске?

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Zloxa

Дата 14.1.2010, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

Репутация: 37
Всего: 161

Цитата(MacTep @ 14.1.2010, 14:08

)

скриптом

Скрипты бывают разные.
Какие именно интересуют?

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

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

MacTep

Дата 14.1.2010, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Не суть каким. Суть - в рантайме это сделать, а не ручками.

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Zloxa

Дата 14.1.2010, 15:00 (ссылка)

(голосов:1)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

Репутация: 37
Всего: 161

Цитата(MacTep @ 14.1.2010, 14:50

)

Не суть каким.

Если абстрагироваться от среды исполнения, и взглянуть на проблему в общем, то сводится все к одной сути - соедениться с базой, прочитать блоб и сохранить в файл. smile

Это сообщение отредактировал(а) Zloxa - 14.1.2010, 15:21

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

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

MacTep

Дата 14.1.2010, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Сдается мне, мы тут переливаем из пустого в порожнее.

Код


declare
begin
... -- действия
end;

Не надо подключаться к базе и все такое. Предположим, что это будет выполняться в функции или процедуре. Важен сам код, как это сделать.

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Zloxa

Дата 14.1.2010, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

Репутация: 37
Всего: 161

те. тебе на Pl/sql.

rtfm dbms_lob, utl_file

цикл, я надеюсь,сам сможешь организовать? Иначе придется подождать когда комунить досуг снизайдет.

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

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

MacTep

Дата 15.1.2010, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Цитата(Zloxa @ 14.1.2010, 18:20

)

rtfm dbms_lob, utl_file

Гениально, спасибо!
Названия эти и без форума слышал. А вот цикл организовать - это самое интересное. И ладно бы просто цикл...

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Zloxa

Дата 15.1.2010, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

Репутация: 37
Всего: 161

Мсье просто изволит лениться или же у него чтото не выходит?

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

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

Zloxa

Дата 15.1.2010, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

Репутация: 37
Всего: 161

Код


create or replace directory ZLOXA_DIR as '/ocfs2_d1/directories/zloxa';
 
Directory created
create table test(b) as (select to_blob(hextoraw('0102030405060708090a0b0c0d0f10')) from dual);
 
Table created
declare
  b blob;
  buff_size constant number := 2048;
  buff raw(2048);
  pos number;
  amount number;
  file utl_file.file_type;
begin
  select b
    into b
  from test;
  file := utl_file.fopen(location => 'ZLOXA_DIR'
                         ,filename => 'tst.bin'
                         ,open_mode => 'wb'
                         );
  pos := 1;
  loop
    amount := buff_size;
    dbms_lob.read(lob_loc => b
                  ,amount => amount
                  ,offset => pos
                  ,buffer => buff);
    utl_file.put_raw(file => file
                     ,buffer =>  buff);
    pos := pos+amount;
    exit when amount != buff_size;
  end loop;
  utl_file.fclose(file => file);
end;
/
 
PL/SQL procedure successfully completed
 
SQL>

Присоединённый файл ( Кол-во скачиваний: 9 )

result.JPG 22,87 Kb

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

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Oracle \| Следующая тема »