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 上可以成功获取,
在别人的机子上就不行?
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 上可以成功获取,
在别人的机子上就不行?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货