Oracle P/L SQL实现文件压缩、解压功能，以下是此过程包的头部，包体经常打包处理plb，感兴趣用户可以下载下来。
Create or Replace Package UTL_ZIP AUTHID CURRENT_USER 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;
/
