Leyendo texto de una página web.

[Fernando Leal]

En la 1.98 funciona. En la 2.0 último beta marca error
METHOD FormInitialize( oSender ) CLASS TForm1
WITH OBJECT ::oOcx := TWebBrowser():New( ::oPanel1 )
:nAlign := alCLIENT
:Create()
:Navigate( "http://www.google.com.mx" )
END
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Button1Click( oSender ) CLASS TForm1
local oDoc
local oBody
oDoc := ::oOcx:Get( "Document" )
oBody := oDoc:Get( "Body" )
::oMemo1:Value := oBody:innerText
oBody := Nil
oDoc := Nil
RETURN Nil
Subsistema: 48795776
Código de error: 0
Estado: .F.
Descripción: S_OK
Operación: GET
Argumentos: [ 1] = Tipo: C Valor: Document
Fichero:
Código error SO: 0
Pila de llamadas:
TOLEAUTO:GET (0)
TWEBBROWSER:GET (0)
TFORM1:BUTTON1CLICK (46)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (100)
(b)XCONTROL:XCONTROL (145)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (254)
TFORM1:WMCOMMAND (899)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (15)

[Fernando Leal]

Aquí­ les dejo el proyecto.
En la 1.98 funciona bien.
Si la compilas con la 2.0 marca el error mencionado.
Gracias
Fernando
--

Attached files Prueba.zip (7.8 KB)Â