代码如下: ole:Tolecontainer;
oleDY:TMemoryStream; //取出数据库中的WORD 文件
begin
oleDY := TMemoryStream.Create;
oledy.Clear;
(table1.FieldByName('ole') as TBlobField).SaveToStream(oleDY);
if oledy.size>0 then
begin
oleDY.Position := 0;
OLE.LoadFromSTREAM(oleDY);
ole.DoVerb(1);
end;
运行时出现错误:
file stream error,如何解决?