responseXML

[Natter]

Hi, all !

I make a request to the site and want to get the DOM document

TRY
oHttp:= CreateObject( "MSXML2.XMLHTTP" )
CATCH
oHttp:= CreateObject( "microsoft.XMLHTTP" )
END

oHttp:Open( "GET", MyURL, 1)
oHttp:setRequestHeader( 'Content-type', 'text/xml')
oHttp:Send(NIL)

fl:=int(gettickcount()/1000)
do while .T.
if oHttp:readyState=4.and.oHttp:Status=200
cTxt:=oHttp:responseText
oDc:=oHttp:responseXML
exit
endif
millisec(50)
enddo

Everything works fine. oHttp:responseText returns an html text page, but the responseXML is empty. What am I doing wrong ?

[Enrico Maria Giordano]

Try with

Code: Select all  Expand view

oHttp:ResponseBody

EMG

[Natter]

Thank you, Enrico, for your help. However responceBody returns HTML, but not the document

[Enrico Maria Giordano]

What do you mean with "the document"? XML is a text, just like html body.

EMG

[Natter]

WEB document-page website. Respobsetext/Responsebody return a html page. ResponseXML returns a DOM-compatible document page, which you can parse with DOM tools.
For example oHttp:responseXML:getElementById("ABC")

[Enrico Maria Giordano]

Ok. Try

Code: Select all  Expand view

oHttp:Open( "GET", MyURL, .T.)

EMG

[Natter]

In fact oHttp:Open( "GET", MyURL, 1), no different from oHttp:Open( "GET", MyURL, .T.)
It's still not working

[Enrico Maria Giordano]

Ok. I don't know why ResponseXML it's empty, sorry.

EMG

[darioflores]

try with: oHttp:responseText