如果在webbrower显示的网页中查找字符串？

Question

在webbrower网页中查找字符串：
procedure TForm1.WebFindText;
const
   CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
   CmdTarget: IOleCommandTarget;
begin
   try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
         try
            CmdTarget.Exec(@CLSID_WebBrowser, 1, 0, EmptyParam, EmptyParam);
         finally
            CmdTarget._Release;
         end;
   except
   end;
end;

Answer 1

在webbrower网页中查找字符串：
procedure TForm1.WebFindText;
const
   CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
   CmdTarget: IOleCommandTarget;
begin
   try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
         try
            CmdTarget.Exec(@CLSID_WebBrowser, 1, 0, EmptyParam, EmptyParam);
         finally
            CmdTarget._Release;
         end;
   except
   end;
end;

Answer 2

在webbrower网页中查找字符串：
procedure TForm1.WebFindText;
const
   CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
   CmdTarget: IOleCommandTarget;
begin
   try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
         try
            CmdTarget.Exec(@CLSID_WebBrowser, 1, 0, EmptyParam, EmptyParam);
         finally
            CmdTarget._Release;
         end;
   except
   end;
end;

Answer 3

http://www.snowdeer.net/BBS/dispbbs.asp?boardID=4&RootID=29675&ID=29675

Answer 4

在webbrower显示的网页中查找字符串：
procedure TForm1.WebFindText;
const
   CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
   CmdTarget: IOleCommandTarget;
begin
   try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
         try
            CmdTarget.Exec(@CLSID_WebBrowser, 1, 0, EmptyParam, EmptyParam);
         finally
            CmdTarget._Release;
         end;
   except
   end;
end;

Answer 5

在webbrower显示的网页中查找字符串：
procedure TForm1.WebFindText;
const
   CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
   CmdTarget: IOleCommandTarget;
begin
   try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
         try
            CmdTarget.Exec(@CLSID_WebBrowser, 1, 0, EmptyParam, EmptyParam);
         finally
            CmdTarget._Release;
         end;
   except
   end;
end;

Answer 6

在webbrower显示的网页中查找字符串：
procedure TForm1.WebFindText;
const
   CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
   CmdTarget: IOleCommandTarget;
begin
   try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
         try
            CmdTarget.Exec(@CLSID_WebBrowser, 1, 0, EmptyParam, EmptyParam);
         finally
            CmdTarget._Release;
         end;
   except
   end;
end;