Delphi利用数据库实现文件打包

以下代码出自http://blog.csdn.net/hellogv/,引用请注明出处！

Delphi利用数据库实现文件打包的基本思路分析：

【1】在Delphi中，把文件读取为文件流，再以流的形式保存在数据库的OLE对象的字段中；

【2】当要释放文件包时，可以直接读取数据库的OLE 对象字段，另保存为文件。

以下为具体代码的实现过程：

【1】打开Delphi，去到“File”＝》“New”＝》Application，新建一个应用程序工程；

【2】在Form1新建1个Edit控件(用于输入被打包的文件的文件名)，命名为FileName;新建两个Button控件，其一命名为Import,其二命名为Export;新建ADOTable1，新建DataSource1；

【3】打开ACCESS新建一个数据库db1.mdb，只有两个字段，其一为filename（字符,主键），其二为filestream（OLE 对象），最后，就是把程序跟数据库连接起来（这里就不细说Delphi如何连接数据库，其实很简单）。

正式开始编写代码，这里只需要给两个BUTTON控件的CLICK事件写代码即可：

procedure TForm1.ImportClick(Sender: TObject);//这是打包文件的代码，这里只打包一个文件，具体的循环过程就靠你自己搞定了

var

stream:TFileStream;

begin

stream:= TFileStream.Create(FileName.Text,fmShareExclusive);

ADOTable1.Append();

TBlobField(ADOTable1.FieldByName('filestream')).LoadFromStream(stream);//保存文件流

ADOTable1.FieldByName('filename').Value:=FileName.Text;//保存文件名

ADOTable1.Post;

stream.Free;

DeleteFile(FileName.Text);

end;



procedure TForm1.ExportClick(Sender: TObject);//这是释放文件的代码，这里只释放第一个文件，具体的循环过程就靠你自己搞定了

var

stream:TMemoryStream;

begin

stream:=TMemoryStream.Create;

ADOTable1.First;

FileName.Text:=ADOTable1.FieldByName('filename').Value;

TBlobField(ADOTable1.FieldByName('filestream')).SaveToStream(stream);

stream.SaveToFile(FileName.Text);

stream.Free;

end;

附：由于文件的打包释放都是用流，因此可以利用流来压缩、加密文件！