项目迭代开发手记--文件分割存储用例的实现过程(2) 在第二天早上的开发中我们扩展了第一天迭代开发的用例,我们考虑增加了压缩流的功能,减少数据的存储负担。迭代2:用例:对向数据库提交的二进制流进行压缩;那么从数据库提取的时候要进行解压操作,以获得原始图档数据。通过查询资料我们找到Delphi的ZLib库支持对字节流的压缩和解压缩功能,这样我们只要使用该类的TCompressionStream和TDecompressionStream就可以实现压缩和解压缩功能,为了更好的封装这种过程方便项目组重用,我们对压缩和解压缩功能进行了封装。我们定义了TLoadBinaryDataToDB类来封装压缩和解压的功能,以便于使用。
类定义了procedure LoadFile(fileFullName: string);来装载图档文件,同时压缩装载的流。
procedure TLoadBinaryDataToDB.LoadFile(fileFullName: string);begin FStream.LoadFromFile(fileFullName); CompressStream; //对装载的流进行压缩end; procedure TLoadBinaryDataT...[ 查看全文 ]