#Include "FiveWin.ch"
#Include "Fileio.ch"
#ifdef __XHARBOUR__ // xHarbour
#include "tip.ch"
#endif
FUNCTION http( therequest )
LOCAL oHttp, cResp
DEFAULT therequest := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna"
/*
Try
oHttp := CreateObject( "Microsoft.XMLHTTP" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End
*/
#ifdef __XHARBOUR__ // xHarbour
Try
// oHttp := CreateObject( "Microsoft.XMLHTTP" ) // no funciona
oHttp := CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) // funciona.
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
Return Nil
End
#else
Try
oHttp := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
RETURN Nil
End
#endif
/*
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
Try
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
*/
Try
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
oHttp:WaitForResponse( 10000 )
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
SysRefresh()
MsgInfo( cResp )
RETURN NIL
// fin
Enrico Maria Giordano wrote:Your sample works fine here.
EMG
karinha wrote:
- Code: Select all Expand view RUN
#Include "FiveWin.ch"
#Include "Fileio.ch"
#ifdef __XHARBOUR__ // xHarbour
#include "tip.ch"
#endif
FUNCTION http( therequest )
LOCAL oHttp, cResp
DEFAULT therequest := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna"
/*
Try
oHttp := CreateObject( "Microsoft.XMLHTTP" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End
*/
#ifdef __XHARBOUR__ // xHarbour
Try
// oHttp := CreateObject( "Microsoft.XMLHTTP" ) // no funciona
oHttp := CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) // funciona.
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
Return Nil
End
#else
Try
oHttp := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
RETURN Nil
End
#endif
/*
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
Try
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
*/
Try
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
oHttp:WaitForResponse( 10000 )
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
SysRefresh()
MsgInfo( cResp )
RETURN NIL
// fin
Regards, saludos.
lorenzoazz wrote:Enrico Maria Giordano wrote:Your sample works fine here.
EMG
Non funziona , l'errore è causato da ohttp:responsebody che sembra non essere accessibile e comunque non ritorna nessuna stringa (credo sia null)
Prima non ho errori !
Lorenzo
Enrico Maria Giordano wrote:lorenzoazz wrote:Enrico Maria Giordano wrote:Your sample works fine here.
EMG
Non funziona , l'errore è causato da ohttp:responsebody che sembra non essere accessibile e comunque non ritorna nessuna stringa (credo sia null)
Prima non ho errori !
Lorenzo
Qui funziona regolarmente e ohttp:responsebody contiene la pagina web di risposta.
EMG
karinha wrote:
- Code: Select all Expand view RUN
#Include "FiveWin.ch"
#Include "Fileio.ch"
#ifdef __XHARBOUR__ // xHarbour
#include "tip.ch"
#endif
FUNCTION http( therequest )
LOCAL oHttp, cResp
DEFAULT therequest := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna"
/*
Try
oHttp := CreateObject( "Microsoft.XMLHTTP" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End
*/
#ifdef __XHARBOUR__ // xHarbour
Try
// oHttp := CreateObject( "Microsoft.XMLHTTP" ) // no funciona
oHttp := CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) // funciona.
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
Return Nil
End
#else
Try
oHttp := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
RETURN Nil
End
#endif
/*
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
Try
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
*/
Try
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
oHttp:WaitForResponse( 10000 )
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
SysRefresh()
MsgInfo( cResp )
RETURN NIL
// fin
Regards, saludos.
FranciscoA wrote:karinha wrote:
- Code: Select all Expand view RUN
#Include "FiveWin.ch"
#Include "Fileio.ch"
#ifdef __XHARBOUR__ // xHarbour
#include "tip.ch"
#endif
FUNCTION http( therequest )
LOCAL oHttp, cResp
DEFAULT therequest := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna"
/*
Try
oHttp := CreateObject( "Microsoft.XMLHTTP" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End
*/
#ifdef __XHARBOUR__ // xHarbour
Try
// oHttp := CreateObject( "Microsoft.XMLHTTP" ) // no funciona
oHttp := CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) // funciona.
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
Return Nil
End
#else
Try
oHttp := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0" )
Catch
MsgInfo( "errore connessione msxml2, uso microsoft " )
RETURN Nil
End
#endif
/*
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
Try
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
*/
Try
oHttp:Open( 'GET', therequest, .F. )
oHttp:SetRequestHeader( "Content-Type", "application/json" )
oHttp:Send()
oHttp:WaitForResponse( 10000 )
cResp := oHttp:ResponseBody
Catch
MsgInfo( "errore responsebody" )
End
SysRefresh()
MsgInfo( cResp )
RETURN NIL
// fin
Regards, saludos.
Lorenzo:
El codigo modificado por Joao (Karinha), funciona sin problemas, aquí.
Da la impresión de que el error que obtienes con tu codigo ("cresp does not exist") , es debido a variable no declarada.
Enrico Maria Giordano wrote:No, non credo. Vuoi che ti mandi il mio EXE così lo provi da te? Se sì, mandami un indirizzo email che accetti gli EXE.
EMG
Enrico Maria Giordano wrote:Che versione di Windows stai usando? Dall'errore sembra che la DLL relativa al componente non supporti quella proprietà, cosa che mi sembra assurda. E comunque la prova dell'EXE può essere utile per avere qualche indizio in più.
EMG
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 64 guests