用Delphi怎样实现PDF,Doc,Xls文件的全文检索功能,各位高手请帮帮忙呀!!!(100分)

  • 主题发起人 shinings
  • 开始时间
S

shinings

Unregistered / Unconfirmed
GUEST, unregistred user!
我在CSDN中题了好多关于微软Server组件的使用Word,Excel,PDF文档的操作问题,应者寥寥,
哎!太失望了:(,到大富翁来看看
我目前遇到的困难是怎样实现上述格式文件的全文检索;
(文件都放在服务器上,数据库只存路径)
我也看了大富翁上关于全文检索的帖子,不过实现起来还是一头雾水:(
另外怎样才能得到PDF文件的文本呢?????????????????
 
还是没人理吗?
 
关注!
是否考虑一下数据库的搜索功能。
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=747459
 
word
思路:打开word服务器,用word本身
的查找功能来查找
//打开word服务器
try
Word_Handle := GetActiveOleObject('Word.Application');
except
try
Word_Handle := CreateOleObject('Word.Application');
except
SetProgressPos(100);
Sleep(1000);
HideProgress;
Exit;
end;
end;
Word_Handle.Visible :=false;
Doc_Handle := Word_Handle.Documents.open(FileName :='c:/temp.doc');
Word_Handle.Selection.Find.ClearFormatting;
//查找
word_Handle.Selection.Find.Text:=trim(et_content.text);
//如果找到
if Word_Handle.Selection.Find.Execute=-1 then
begin
end


 

Similar threads

回复
0
查看
827
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部