以下代码出自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;
附:由于文件的打包释放都是用流,因此可以利用流来压缩、加密文件!