delphi 实现指定网站 搜索整站中指定的关键字（100分）

Question

我想用delphi做个能实现指定某个网站 在其整站中搜索我指定的关键字 关列出有关键字的URL 请大家指教 最好给个实例，初学者指教了 ！ 大侠来帮忙！

Answer 1

谁能给个实例 比方搜索www.sohu.com上包含＂中国＂的页面。

Answer 2

stie:sohu.com 中国百度 跟 google通用再分析源码即可

Answer 3

http://www.duote.com/soft/11114.html

Answer 4

  for j:=0 to CodeTmp.Count-1 do
            begin
              if Pos('找到约 ',CodeTmp.Strings[j])<>0 then
               begin 
                 CountStr:=Copy(CodeTmp.Strings[j],Pos('找到约 ',CodeTmp.Strings[j])+7,Pos(' 条结果',CodeTmp.Strings[j])-Pos('找到约 ',CodeTmp.Strings[j])-7);
                 Counti:=StrToInt(Trim(CountStr));
                 Break;
               end;
            end;得到counti
             Tabi:=Counti div 10; //每页显示10条，一共多少页                  
                StatusBar1.Panels[0].Text:='正在搜索:第 '+inttostr(Tabi)+' 页/共 '+inttostr(counti)+' 页';
                OpenUrl:='http://www.google.com.hk/search?hl=zh-CN&start='+inttostr(Tabi*10)+'&q='+查询关键字;