uses OleServer,DSOFile_TLB
function  Tform1.ReadWord :Boolean;
var
    Sp:SummaryProperties;
    OleDocumentProperties1:TOleDocumentProperties;
begin
    OleDocumentProperties1 := TOleDocumentProperties.Create(nil);
    OleInitialize(nil); //初始化com组件
    OleDocumentProperties1.Open(TempStr,True,dsoOptionOpenReadOnlyIfNoWriteAccess);
    Sp:=OleDocumentProperties1.SummaryProperties;
    OleDocumentProperties1.Close(false);
    OleUninitialize;
    freeandnil(OleDocumentProperties1);
end;通过ole 读取Word文档!为什么在我的delphi 上可以成功获取,
在别人的机子上就不行?

解决方案 »

  1.   

    OLE嵌入方式发布到别的电脑上一定会出现这种问题的;因为客户端上的环境和开发机上的环境不一样。我以前也用过这种方法,效果不好。在客户端很容易报找不到应用程序等问题。而且菜单栏控制也不好弄;如果只是为了使用Word可以考虑用WordApplication控件来控制文件的读写,用WebBroser来展现,一样能够达到您的需求。