50分求助 TWebbrowser 问题 查找URL出来所表示的文字 并修改HTML 使其高亮显示

Question

现在我知道 多个URL所组成的 TStringList
求在IWebbrowser 上 将这些连接 和 连接所以示的文字 全部查找出来 并修改HTML 使其高亮显示。
谢谢
分数不够 还可以加 要实现代码 最好包装成函数 谢谢。修改HTML不能使用临时文件的方式 不能破坏框架 IE不能刷新

Answer 1

现在我知道 多个URL所组成的 TStringList 
求在IWebbrowser 上 将这些连接 和 连接所以示的文字 全部查找出来 并修改HTML 使其高亮显示。 你的意思是不是在webBrowser中查找TStringlist中的所有链接,找到后高亮显示

Answer 2

建议你使用idHttp组件,而不是webBrowser组件
str:=IdHTTP1.Get('http:\\www.baidu.com');
得到源文件后,再pos('',str);不就找到了,找到后修改其颜色,就高亮显示了,然后把修改后的源代码显示出来

Answer 3

楼上没有理解我的意思现在我在做一款 IE插件我有一串多个URL所组成的 TStringList 比如
http://www.skycn.com
http://www.baidu.com我要求在Webbrowser上面 将带有这些URL 的超级连接 全部高亮显示
源代码可以取得 也可以修改 但是如何重新载入 并不让Webbrowser 刷新是个问题

Answer 4

找到一段资料，自己没测试过，你先试试：find and highlight text in TWebBrowser?{....}   private 
    procedure SearchAndHighlightText(aText: string); 
     
{....} procedure TForm1.SearchAndHighlightText(aText: string); 
var 
  i: Integer; 
begin 
  for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do 
  begin 
    if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then 
    begin 
      WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00'; 
      WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True); 
    end; 
  end; 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SearchAndHighlightText('some text...'); 
end; 

Answer 5

偶感觉这样子可行吧，显示出来的HTML经修改重载到浏览器肯定要闪烁或者是要刷新的
显示出来的时候直接是高亮的话，必须是在显示之前给修改好才行