How to get http response text

[ADutheil]

Could the failure be connected to the popup that shows the cookies acceptance message when one loads the page for the 1st time?

[Enrico Maria Giordano]

Prova questo esempio:

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cUrl := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna"

    LOCAL cRes := GETURL( cUrl )

    MEMOWRIT( "Response_Test.htm", cRes, .F. )

    RETURN NIL


#command IF <condition> THEN <*statements*> => if <condition> ; <statements> ; end


STATIC FUNCTION GETURL( cUrl, oHtp )

    LOCAL cRes

    TRY
        DEFAULT oHtp := CREATEOBJECT( "MSXML2.XMLHTTP" )

        oHtp:Open( "GET", cUrl, .F. )

        oHtp:Send()

        IF oHtp:Status != 200 THEN BREAK

        cRes = oHtp:ResponseText
    CATCH
    END

    RETURN cRes

EMG

[lorenzoazz]

Prova questo esempio:

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cUrl := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna"

    LOCAL cRes := GETURL( cUrl )

    MEMOWRIT( "Response_Test.htm", cRes, .F. )

    RETURN NIL


#command IF <condition> THEN <*statements*> => if <condition> ; <statements> ; end


STATIC FUNCTION GETURL( cUrl, oHtp )

    LOCAL cRes

    TRY
        DEFAULT oHtp := CREATEOBJECT( "MSXML2.XMLHTTP" )

        oHtp:Open( "GET", cUrl, .F. )

        oHtp:Send()

        IF oHtp:Status != 200 THEN BREAK

        cRes = oHtp:ResponseText
    CATCH
    END

    RETURN cRes

EMG

Ok, perfect , this is the solution.
Probably it was a memory leak or conflict, so by saving the oHtp:ResponseText in a file and then use a memoread to retrieve, the problem is SOLVED.
Thank You very much Enrico.

Lorenzo

[Enrico Maria Giordano]

Can you try with this and let me know?

Code: Select all

? GETURL( cUrl )

EMG