首先建立一个TADOBlobStream 对象,并且从数据表的Blobs字段中读取BLOB类型的数据。
然后以应用程序的名称以及Extension 字段的延伸文件名称组成一个暂时的文件名称,
并把TADOBlobStream对象中的BLOB 数据撰写在这个暂时文档中。最后调用TOleContainer
组件的CreateObjectFromFile 方法,把这个文档和TOleContainer组件关联起来并且激活
系统中能够处理这种文档类型的应用程序
var
sFileName: String;
BS : TADOBlobStream;
begin
BS :=TADOBlobStream.Create(TBlobField(adodsBlobs.FieldByName('Blobs')),bmRead) ;
try
sFileName := ExtractFilePath(Application.ExeName)+'tmpBlob';
sFileName := sFileName + '.' +
adodsBlobs.FieldByName('Extension').AsString;
BS.SaveToFile(sFileName) ;
OleContainer1.CreateObjectFromFile(sFileName, False);
finally // wrap up
BS.Free ;
end ; // try/finally
end ;
这是李维书上的例子.