怎样打开用二进制存储在数据库里的Excel文件，，，急，，100分

Question

我把一个Excel文件存储到数据库的一个字段，现在我想读取数据库，打开这个文件怎么实现。

Answer 1

BDE:var
 bs:TBlobStream;
 ms:TMemoryStream;
begin
 bs := TBlobStream.Create((Table1.FieldByName('文件') as TBlobField), bmRead);
 ms:=TMemoryStream.Create;
 ms.LoadFromStream(bs);
 ms.SaveToFile('你的路径及文件名.xls');
 bs.Free;
 ms.Free;
end;ADO:var
 bs:TMemoryStream;
begin
 bs:=ADOTable1.CreateBlobStream(ADOTable1.FieldByName('照片'),bmRead);
 bs.SaveToFile('你的路径及文件名.xls');
 bs.Free;
end;

Answer 2

Table1.Open;
table1.Edit;
try
TBlobField(Table1.FieldByName('nr')).SaveToFile('c:\ls.xls');
except
end;