1 --创建有大对象字段的一张表
2 create table test001
3 (
4 fname varchar2(50),
5 content blob
6 )
7
8 select * from dba_users;
9
10 select * from test001
11
12 --(一)..准备插入大对象
13 --1. 创建文件存放目录（让Oracle管理，该目录）
14 create or replace directory test_dir
15 as
16 'e:\Pictures';
17
18 --2.可以将该目录授权给其他用户访问
19 grant read,write on directory test_dir to scott;
20
21 --(二).准备将大对象，存放在test001表中
22 declare
23 tempimg blob;--定义临时变量存放数据
24 tempdir bfile := bfilename('TEST_DIR','Azul.jpg');--非常重要：所有数据都是大写存放的
25 begin
26 insert into test001 values ('first.jpg',empty_blob()) returning content into tempimg;
27
28 --使用内置的包，给tempimg写入数据
29 dbms_lob.fileopen(tempdir);--打开指定文件
30 dbms_lob.loadfromfile(tempimg,tempdir,dbms_lob.getlength(tempdir));
31 dbms_lob.fileclose(tempdir);--关闭文件
32
33 dbms_output.put_line('恭喜你，终于成功了！！！');
34
35 commit;
36 end ;
37
38 select * from test001
39
40 select * from dba_directories
41
42
43 --将Blob对象，写成磁盘文件
44 declare
45 l_file utl_file.file_type;--定义写入磁盘文件的类型和格式
46 l_buffer raw(32767);--定义缓冲区大小
47 l_amount binary_integer := 3276; --每次位移个数
48 l_pos int :=1;--开始位置
49 l_blob blob;--临时数据存放
50 l_blob_len int;--总长度
51 begin
52 select content into l_blob from test001; --将数据库中的数据，存放在blob变量中
53
54 --获取blob文件的长度
55 l_blob_len := dbms_lob.getlength(l_blob);
56
57 --准备写入磁盘文件
58 l_file := utl_file.fopen('TEST_DIR','HHAHAHAHAHAHAHAHAAHA.JPG','wb');
59
60 --写入数据
61 while l_pos<l_blob_len loop
62 dbms_lob.read(l_blob,l_amount,l_pos,l_buffer);
63 utl_file.put_raw(l_file,l_buffer,true);
64 l_pos := l_pos + l_amount;
65 end loop;
66
67 utl_file.fclose(l_file);
68 dbms_output.put_line('恭喜，恭喜。。。。文件写成功！');
69 end;
70
71
72 /*
73 文本大对象的写入和读取（clob）。
74 */
75 --写入文本文件第一种方式
76 declare
77 tempimg clob;--定义临时变量存放数据
78 tempdir bfile := bfilename('TEST_DIR','DIV3.html');--非常重要：所有数据都是大写存放的
79 amount int:=dbms_lob.getlength(tempdir);
80 src_offset int:=1;
81 dest_offset int:=1;
82 csid int:=0;
83 lc int:=0;
84 warning int;
85 begin
86 insert into test002 values ('第四个文本文件',empty_clob()) returning content into tempimg;
87
88 --使用内置的包，给tempimg写入数据
89 dbms_lob.fileopen(tempdir);--打开指定文件
90
91 dbms_lob.loadclobfromfile(tempimg,tempdir,amount,dest_offset,src_offset,csid,lc,warning);
92
93 dbms_lob.fileclose(tempdir);--关闭文件
94
95 dbms_output.put_line('恭喜你，终于成功了！！！');
96
97 commit;
98 end ;
99
100 --写入文本文件第二种方式（通过异常判断文件结束的）
101 declare
102 filecontent clob;
103 input_file utl_file.file_type;
104 buffer varchar2(2000);
105 l_pos int := 1;
106 amount int;
107 begin
108 insert into test002 values ('第二个文本数据',empty_clob()) returning content into filecontent;
109 --打开磁盘文件
110 input_file := utl_file.fopen('TEST_DIR','DIV3.html','r');
111
112 loop
113 utl_file.get_line(input_file,buffer);
114
115 --获取每次读取的长度
116 amount:=length(buffer);--每次写入的字符长度
117
118 exit when amount<=0;
119
120 dbms_lob.write(filecontent,amount,l_pos,buffer);
121
122 l_pos:=l_pos+amount;
123
124 end loop;
125
126 utl_file.fclose(input_file);
127
128 dbms_output.put_line('文件写入完毕！');
129
130 exception
131 when no_data_found then
132 dbms_output.put_line('数据已经读取完毕了！');
133 utl_file.fclose(input_file);
134 end;
135
136
137 select * from test002
138
139
140
141
142 --读取表中的数据，到文件
143 declare
144 src clob;
145 outfile utl_file.file_type;
146 length integer;
147 buffer varchar2(8000);
148 begin
149 select content into src from test002 where fname='第四个文本文件';
150
151 length := dbms_lob.getlength(src);
152
153 dbms_lob.read(src,length,1,buffer);
154
155 --打开磁盘文件
156 outfile := utl_file.fopen('TEST_DIR','hahahahhahahahah.html','w',8000);
157
158 utl_file.put(outfile,buffer);--写入数据
159
160 utl_file.fclose(outfile); --关闭指针
161
162 dbms_output.put_line('文件已经写入完毕！');
163 end;
