Pesquisa no TWebBrowser

Question

Boa tarde pessoal,Alguem j� fez ou sabe como fazer uma pesquisa de uma string em  um HTML aberto em um TWebBrowser.Serve tamb�m chamar o evento de pesquisa do mesmo (CTRL + F).Se alguem puder ajudar e...

Mdv · Answer

Ap�s algumas horas procurando eu achei a solu��o.

procedure TfrmVisualizador.proWBFindDialog(AWebBrowser: TWebbrowser) ;
const
  cStrCGID_WEBBROWSER: TGUID = �{ED016940-BD5B-11cf-BA4E-00C04FD70816}�;
  cIntHTMLID_FIND = 1; 
var
  lOleCmdTarget : IOleCommandTarget;
  lOvaIn, lOvaOut: OleVariant;
  lPtrGUID: PGUID;
begin
  New(lPtrGUID) ;
  lPtrGUID^ := cStrCGID_WEBBROWSER;

  if AWebBrowser.Document <> nil then
    try
      AWebBrowser.Document.QueryInterface(IOleCommandTarget, lOleCmdTarget) ;
      if lOleCmdTarget <> nil then
        try
          lOleCmdTarget.Exec(lPtrGUID, cIntHTMLID_FIND, 0, lOvaIn, lOvaOut) ;
        finally
          lOleCmdTarget._Release;
        end;
    except
    end;
    
  Dispose(lPtrGUID) ;
end;

Espero que seja util para mais alguem, att. MDV.

F�rum Pesquisa no TWebBrowser #368870