如何获取文档的作者(主要是WORD,EXCEL,PDF等类型),这个问题我已经问了第三遍了,谁都知道调用WINDOWS API来获取,可是该调用哪个谁都不知道。海天子给我一段代码,但前提是文件必须有版本信息才能获取其他信息,所以也不行。给我感觉DELPHI的斑竹比其他版块都多,为什么这个问题谁都不说话呢?
解决方案 »
- :=WebBrowser.Document as IHTMLDocument2;为什么有的页面取不出里面的内容,比方说www.126.com登陆进去后,用这个接口什么也取不到
- 请问高手,如何将汉字转换成内码以及如何将内码转换成汉字,高分相送
- 求 Indy 9 的 Demo 程序集
- 请问各位大侠到哪里能找到工资管理的业务逻辑文档或开发范例?
- long *a 类型数据在delphi如何转换
- 请问日期型字符如何定义??
- 自己写的浏览器的两个问题
- b\s中无法在客户端查询数据库中的记录???为什么
- 请教高手.为什么帮助文件中无法查到TDEVICEMODE 之类的控件说明.
- 怎样可以方便地计算一个字段的合计数?
- 请教:大家说说C/S下的软件一定要C端一套,s端一套吗?
- 用户登录窗体的设计
procedure TAbout_F.FormCreate(Sender: TObject);
const
InfoNum = 10;
InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
S: string;
n, Len, i: DWORD;
Buf: PChar;
Value: PChar;
begin
S := Application.ExeName;
n := GetFileVersionInfoSize(PChar(S), n);
if n > 0 then
begin
Buf := AllocMem(n);
Memo1.Lines.Add('VersionInfoSize = ' + IntToStr(n));
GetFileVersionInfo(PChar(S), 0, n, Buf);
for i := 1 to InfoNum do
if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i]), Pointer(Value), Len) then
Memo1.Lines.Add(InfoStr[i] + ' = ' + Value);
FreeMem(Buf, n);
end
else
Memo1.Lines.Add('No version information found');end;可以从中找到.
这个还是获取文档版本信息啊,里面有公司、语言等信息,没有作者信息。而我们都知道作者是在摘要里的,现在其实关键如何得到摘要信息
自己试试比如word 就是在版本信息部分,海天子是不是也是这种方法?
可是WORD文档根本不包含版本信息,所以n为0
我换了一个setup.exe,里面包含版本信息,就可以成功读取,但也没有作者信息,只是一些公司名、版本号之类的。
pdf就好像不行吧~
没有人有义务要帮助谁,这是论坛的常规,这我很理解,但只希望高手们能够在这里游逛之余多尽一份力量。不多说了,这是个老话题了,以前在VB和JAVA中也是这样。
這麼都比較麻煩的, 你要知道文件的格式!!!