Pesquisa no TWebBrowser

Delphi

06/03/2009

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 eu agradeço.

Ate.


Mdv

Mdv

Curtidas 0

Respostas

Mdv

Mdv

06/03/2009

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.


GOSTEI 0
POSTAR