FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Buscar texto en WebBrowser
Hola a todos!!!
Me gustaría saber cómo encontrar una palabra en un documento HTML reflejado en un WebBrowser y que remarque tal palabra cambiando de color o algo que destaque de las otras palabras. ¿Podéis ayudarme o darme alguna dirección web? Es un poco urgente y me gustaría que me contestaseis entre hoy y mañana. Gracias anticipadas!!! |
#2
|
||||
|
||||
Son las 23:38, por lo tanto seguimos entre hoy y mañana, mira este código a ver si te puede servir:
Código:
{ Here's how to call a stadard IE find dialog for the TWebBrowser component. Usage: Simply drop an instance of TWebBrowser component on a form (and a Button) and call the find dialog as: uses ActiveX; procedure WBFindDialog(AWebBrowser: TWebbrowser); const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}'; HTMLID_FIND = 1; var CmdTarget : IOleCommandTarget; vaIn, vaOut: OleVariant; PtrGUID: PGUID; begin New(PtrGUID); PtrGUID^ := CGID_WebBrowser; if AWebBrowser.Document <> nil then try AWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget); if CmdTarget <> nil then try CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut); finally CmdTarget._Release; end; except end; Dispose(PtrGUID); end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://www.delphi.about.com'); end; procedure TForm1.Button1Click(Sender: TObject); begin WBFindDialog(WebBrowser1); end;
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Perdonad las molestias
Perdonad mi "abuso" pero es que era de extrema urgencia, pero para otra ocacion lo tendré presente!!!
Gracias por responderme MarcosZorrilla!!! |
|
|
|