Ver html en delphi
Hola, soy Marcel tengo un problema con el webbrowser, quiero recuperar el contenido de ese componente para poder analizarla, en resumen un buscador e indexador
1 respuesta
Respuesta de antipauli
1
1.
Échale un vistazo a Delphi-Webbrowser Newsgroup:
http://www.egroups.com/list/delphi-webbrowser/
2.
Para acceder al contenido HTML de un objeto webbrowser debes importar la type library localizada en \winnt\system32\mshtml.tlb.
Ex:
Doc = QueryInterface("IHTML_Document2...
HTMLBodyText:= Doc.body.innerHTML;
Dirígete a la librería MSDN para saber más sobre el objeto webbrowser (llave de búsqueda: HTML Editor).
3.
Para guardar el código HTML:
Uses ActiveX;
...
var AStream:TMemoryStream;
Begin
AStream:=TMemoryStream.Create;
Try
(WebBrowser1.Document as
IPersistStreamInit).Save(TStreamAdapter.Create(AStream),false);
AStream.Seek(0,soFromBeginning);
Memo1.Lines.LoadFromStream(AStream);
Finally
AStream.Free;
End
End;
Échale un vistazo a Delphi-Webbrowser Newsgroup:
http://www.egroups.com/list/delphi-webbrowser/
2.
Para acceder al contenido HTML de un objeto webbrowser debes importar la type library localizada en \winnt\system32\mshtml.tlb.
Ex:
Doc = QueryInterface("IHTML_Document2...
HTMLBodyText:= Doc.body.innerHTML;
Dirígete a la librería MSDN para saber más sobre el objeto webbrowser (llave de búsqueda: HTML Editor).
3.
Para guardar el código HTML:
Uses ActiveX;
...
var AStream:TMemoryStream;
Begin
AStream:=TMemoryStream.Create;
Try
(WebBrowser1.Document as
IPersistStreamInit).Save(TStreamAdapter.Create(AStream),false);
AStream.Seek(0,soFromBeginning);
Memo1.Lines.LoadFromStream(AStream);
Finally
AStream.Free;
End
End;
Gracias Antipauli, le entiendo todo menos la parte de importar, por favor me podrías guiar un poco
Marcel
Marcel
Para probarlo puedes usar la demo de webbrowser en DEMOS/COOLSTUF, añades un botón y un memo y ya lo tienes:
Uses ActiveX;
...
var
AStream:TMemoryStream;
Begin
AStream:=TMemoryStream.Create;
Try
//Guardas el contenido HTML en un Stream definido previamente
(WebBrowser1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(AStream),false);
//Se situa al inicio del stream
AStream.Seek(0,soFromBeginning);
//Carga en el memo el contenido del stream
Memo1.Lines.LoadFromStream(AStream);
Finally
AStream.Free;
End
End;
Uses ActiveX;
...
var
AStream:TMemoryStream;
Begin
AStream:=TMemoryStream.Create;
Try
//Guardas el contenido HTML en un Stream definido previamente
(WebBrowser1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(AStream),false);
//Se situa al inicio del stream
AStream.Seek(0,soFromBeginning);
//Carga en el memo el contenido del stream
Memo1.Lines.LoadFromStream(AStream);
Finally
AStream.Free;
End
End;
