Oracle P/L SQL实现文件压缩、解压功能

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 Nu ll )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; /