--Oracle实现文件压缩、解压功能
Package UTL_ZIP as
Type File_List is Table of Clob;
--文件变成流
Function f_File2Blob(
as_SubDir in VarChar2,
as_FileName in VarChar2
)Return Blob;
--获取压缩流的文件清单
Function f_GetFileList(
as_ZippedBlob in Blob,
as_Encoding in VarChar2 Default Null
)Return File_List;
--获取压缩文件的文件清单
Function f_GetFileList(
as_SubDir in VarChar2,
as_ZIPFile in VarChar2,
as_Encoding in VarChar2 Default Null
)Return File_List;
--获取文件，返回流
Function f_GetFile(
as_ZippedBlob in Blob,
as_FileName in VarChar2,
as_Encoding in VarChar2 Default Null
)Return Blob;
--获取文件，返回流
Function f_GetFile(
as_SubDir in VarChar2,
as_ZIPFile in VarChar2,
as_FileName in VarChar2,
as_Encoding in VarChar2 Default Null
)Return Blob;
--往压缩流添加文件
Procedure p_AddFile(
as_ZippedBlob in out Blob,
as_Filename in VarChar2,
ab_Content in Blob
);
--完成压缩
Procedure p_FinishZIP(
as_ZippedBlob in out Blob
);
--保存到压缩文件
Procedure p_SaveZIP(
as_ZippedBlob in Blob,
as_SubDir in VarChar2 Default 'FTP_DIR',
as_FileName in VarChar2 Default 'my.zip'
);
End UTL_ZIP;
--调用例子
/*
@C:\...\UTL_ZIP.plb; --更改为正确的此打包文件的所在路径
--压缩
declare ls_ZippedBlob Blob;
Begin
UTL_ZIP.p_AddFile( ls_ZippedBlob, 'test4.txt', Null ); -- a empty file
UTL_ZIP.p_AddFile( ls_ZippedBlob, 'aa.xls', UTL_ZIP.f_File2Blob( 'MY_DIR', 'aa.xls' ) ); --aa.xls
UTL_ZIP.p_AddFile( ls_ZippedBlob, 'test1234.txt', UTL_Raw.Cast_to_Raw( 'A small file' ) );
UTL_ZIP.p_AddFile( ls_ZippedBlob, 'dir2/', Null ); -- a folder
UTL_ZIP.p_AddFile( ls_ZippedBlob, 'dir3/test2.txt', UTL_Raw.Cast_to_Raw( 'A small filein a previous Created folder' ) );
UTL_ZIP.p_FinishZIP( ls_ZippedBlob );
UTL_ZIP.p_SaveZIP( ls_ZippedBlob, 'MY_DIR', 'my.rar' );
DBMS_Lob.FreeTemporary( ls_ZippedBlob );
End;
--解压
declare
zip_files UTL_ZIP.File_List;
Begin
zip_files := UTL_ZIP.f_GetFileList( 'MY_DIR', 'my.zip' );
For i in zip_files.first() .. zip_files.last
Loop
dbms_output.put_line( zip_files(i) );
dbms_output.put_line( UTL_Raw.cast_to_VarChar2( UTL_ZIP.f_GetFile( 'MY_DIR', 'my.zip', zip_files(i) ) ) );
End Loop;
End;
*/
