Could the failure be connected to the popup that shows the cookies acceptance message when one loads the page for the 1st time?
Regards,
André Dutheil
FWH 13.04 + HB 3.2 + MSVS 10
André Dutheil
FWH 13.04 + HB 3.2 + MSVS 10
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How to get http response text
Page: 1 2 (19 posts)
Prova questo esempio:
EMG
#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 cResEMG
Enrico Maria Giordano wrote:Prova questo esempio:
#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
Page: 1 2 (19 posts)