WEB PAGINA

[gilbrodrigues]

Ola como vao ? Pode parecer estranho mas alguem sabe alguma forma de abrir o conteudo de uma pagina e em formato HTML e tratá-la como objeto como se fosse um XML EXEMPLO:

S E R I A P O S S I V E L ?

FUNCTION form_web()

LOCAL oDlgWeb, oBtnWeb, oGrWeb,oPg, cGetPag := ""

INIT DIALOG oDlgWeb TITLE "Form1" AT 0, 0 SIZE 989,730 NOEXIT ;

STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER

Thisform := oDlgWeb

@ 885,682 BUTTONEX oBtnWeb CAPTION "Sair" SIZE 98,44 ;

STYLE BS_CENTER +WS_TABSTOP;

ON CLICK {|| oDlgWeb:close() }

@ 11,37 GET oGetWeb VAR cGetPag SIZE 966,624 ;

STYLE ES_MULTILINE+WS_VSCROLL+WS_HSCROLL

@ 4,14 GROUPBOX oGrWeb CAPTION "" SIZE 978,657 ;

STYLE BS_LEFT

oPg := CreateObject("InternetExplorer.Application")

oPg:Open('html','http://www.google.com.br',.T.)

oPg:Send()

cGetPag := oPg:responseBody()

ACTIVATE DIALOG oDlgWeb

RETURN NIL

Editado por - gilbrodrigues on 09/06/2012 20:38:41

[gilbrodrigues]

Ola como vao ? Pode parecer estranho mas alguem sabe alguma forma de abrir o conteudo de uma pagina e em formato HTML e tratá-la como objeto como se fosse um XML EXEMPLO:

S E R I A P O S S I V E L ?

FUNCTION form_web()

LOCAL oDlgWeb, oBtnWeb, oGrWeb,oPg, cGetPag := ""

INIT DIALOG oDlgWeb TITLE "Form1" AT 0, 0 SIZE 989,730 NOEXIT ;

STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER

Thisform := oDlgWeb

@ 885,682 BUTTONEX oBtnWeb CAPTION "Sair" SIZE 98,44 ;

STYLE BS_CENTER +WS_TABSTOP;

ON CLICK {|| oDlgWeb:close() }

@ 11,37 GET oGetWeb VAR cGetPag SIZE 966,624 ;

STYLE ES_MULTILINE+WS_VSCROLL+WS_HSCROLL

@ 4,14 GROUPBOX oGrWeb CAPTION "" SIZE 978,657 ;

STYLE BS_LEFT

oPg := CreateObject("InternetExplorer.Application")

oPg:Open('html','http://www.google.com.br',.T.)

oPg:Send()

cGetPag := oPg:responseBody()

ACTIVATE DIALOG oDlgWeb

RETURN NIL

Editado por - gilbrodrigues on 09/06/2012 20:38:41

[FiveWinBr]

Você pode usar o activex.

Function Form()

Local oWnd, oAct

Define Window oWnd

oAct:=TActiveX():New( oWnd, "Shell.Explorer" )

oAct:Navigate2( "http://www.google.com.br/" )

oWnd:oClient := oAct

Activate Window oWnd

Return Nil

=]

Att.

Lailton Fernando Mariano

E-Mail: developer@lailton.com.br | Msn: lailton.developer@hotmail.com

xHarbour 1.2.1 | Fivewin 11.1 | Borland 5.8.2 | MySQL