关于Word预览问题。(200分)

  • 主题发起人 主题发起人 智利
  • 开始时间 开始时间

智利

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在一个窗口中,左边有文档类型,右边是文档类型的预览,根据选择的类型不同,预览也不同。预览内的内容是数据库表中的Word。并要求预览中的内容是白底黑字。
谁有办法实现?
 
你试着用Servers面板上控件去做吧
 
先将表中的WORD读入一个流文件中,再在面板上放一个OleContainer(在SYSTEM标签下)控件,将流文件OleContainer导入即可。
具体操作你可看一下帮助。
 
E文不是太好,有没有谁能具体点?
 
这个问题我已经解决了,只是那时粗心。唉,200分没了。[:D]
 
那就用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;
 
多人接受答案了。
 
后退
顶部