在微软网站上下载dsofile的安装包,安装后注册dsofile.dll文件。
打开Delphi 7.0,从菜单“Project”-〉“Import Type Library”中导入此ole。
新建工程,从控件的ActiveX页面选择ToleDocumentProperties添加到窗体上,对文件摘要属性进行读取修改。
procedure TForm1.Button1Click(Sender: TObject);
var
sp:SummaryProperties;
begin
OleDocumentProperties1.Open('c:/123.pdf',true,dsoOptionOpenReadOnlyIfNoWriteAccess);
sp:=OleDocumentProperties1.SummaryProperties;
memo1.Lines.Add('title:'+sp.Title);
memo1.Lines.Add('subject:'+sp.Subject);
memo1.Lines.Add('category:'+sp.Category);
memo1.Lines.Add('author:'+sp.Author);
memo1.Lines.Add('keywords:'+sp.Keywords);
memo1.Lines.Add('comments:'+sp.Comments);
OleDocumentProperties1.Close(false);
end;