[Resolvido] Pesquisa webbrowser

[MDV 0]

Boa tarde pessoal,

 

Alguem já fez ou sabe como fazer uma pesquisa no texto de um HTML aberto em um webbrowser.

 

Serve também chamar o evento de pesquisa do mesmo (CTRL + F).

 

Se alguem puder ajudar eu agradeço.

 

Ate.

[MDV 0]

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.