那就用Olecontainer吧, 给你参考。
procedure TmmList.qryAfterScroll(DataSet: TDataSet);
var
Stream: TMemoryStream;
begin
if pview=nil then pview:=TpvMM.Create(self);
if qry.FieldByName('Content').IsNull then exit;
stream:=TmemoryStream.Create;
try
try
TBlobField(qry.FieldByName('Content')).SaveToStream(stream);
stream.Position:=0;
TpvMM(pview).OC.LoadFromStream(stream);
TpvMM(pview).OC.doverb(1);
except
messageBox(handle,'会议记录的内容格式无法识别,无法预览','错误',
MB_OK or MB_ICONERROR);
end;
finally
stream.Free;
end;
end;