FiveTech Support Forums

#include 'fivewin.ch'

*--------
CLASS TWS
*--------

    DATA  aBuffer                AS ARRAY     INIT {}
    DATA  oUrl                  
    DATA  oClient                  
            
    DATA  cUrl                   AS CHARACTER INIT ''
    DATA  lClientOpen            AS LOGICAL   INIT .F.
    DATA  lShowError             AS LOGICAL   INIT .T.

    METHOD New( cUrl )  CONSTRUCTOR

    METHOD Post( uParam )
    
    METHOD ShowError()

    METHOD Init()
   
ENDCLASS

*--------------------------
METHOD New( cUrl ) CLASS TWS
*--------------------------

    DEFAULT cUrl := ''
    
    ::cUrl  := cUrl 

RETU Self

*---------------------
METHOD Init() CLASS TWS
*---------------------

    ::oURL          := TUrl():New( ::cUrl )
    ::oClient       := TIpClientHttp():New( ::oUrl )
    
    ::lClientOpen   := ::oClient:Open()

RETU NIL


*-----------------------------
METHOD Post( uParam ) CLASS TWS
*-----------------------------
    LOCAL cJson
    LOCAL oError 
    local hRequest  := NIL  
    LOCAL lError    := .F. 
    LOCAL x
    
    ::Init()
    
    IF !::lClientOpen 
        RETU NIL
    ENDIF   
    
    IF Valtype( uParam ) == 'U' 
        MsgAlert( 'No se han definido parámetros para método Post' )
        RETU NIL
    ENDIF   
    
    TRY 

        ::oClient:Post( uParam )
            
      CATCH oError 
          
        lError := .t.
        xBrowse( oError )
    END 
    

    IF lError 
        
        RETU NIL
      ELSE 
      
        IF ::oClient:nReplyCode == 200  
    
            cJson := ::oClient:Read()

            if ( valtype(cJson) == 'C' )        

                hRequest := {=>}
                
                IF ( hb_jsonDecode( cJSON, @hRequest ) ) > 0
                            
                ENDIF 
            
            ELSE
            
                RETU NIL
                
            ENDIF
            
          ELSE 
          
            ::ShowError()
    
        ENDIF             
      
    ENDIF   

RETU hRequest 

*--------------------------
METHOD ShowError() CLASS TWS
*--------------------------
    LOCAL nReplyCode 
    
    IF ! ::lShowError
        RETU NIL
    ENDIF

    nReplyCode := ::oClient:nReplyCode
    
    DO CASE
        CASE nReplyCode == 404
        
            MsgAlert(   'Error: ' + Chr( VK_TAB ) + ::oClient:cReply + CRLF + ;
                        'Url:   ' + Chr( VK_TAB ) + ::oClient:oUrl:cAddress + CRLF +  ;
                        'File:  ' + Chr( VK_TAB ) + ::oClient:oUrl:cFile + CRLF +  ;                        
                        'Server:' + Chr( VK_TAB ) + ::oClient:oUrl:cServer, 'ShowError' )
                        
        OTHERWISE
            
            xBrowse( ::oClient )
            
            MsgInfo( ::oClient:lastErrorMessage(), 'LastErorMessage' )
            
    ENDCASE

RETU NIL

#include 'fivewin.ch'

#define URL_ENDPOINT   "http://itarraco.com/fweb/ws/customer.php" 

FUNCTION Test_Post( oApp )

    local oWs, hRequest, hReg 
    local hParam    := {=>}
    LOCAL nId    := 1
    
    IF ! MsgGet( 'Id', 'Id. Customer ( 1 a 100000)', @nId )
        RETU NIL
    ENDIF

    hParam[ 'id' ] := nId

    oWs := TWS():New( URL_ENDPOINT )
    
    hRequest := oWs:Post( hParam )  

    IF valtype( hRequest ) == 'H'           
        
        hReg = hRequest[ 'data' ]
        
        IF ( ValType( hReg ) == 'H' )
        
            hb_HCaseMatch( hReg, .F. )  // Indiferent majusqules/minuscules     
            
            xBrowse( hReg, 'Datos' )

            MsgInfo( 'Id'    + chr( VK_TAB ) + hReg['id']    + CRLF + ;
                     'First' + chr( VK_TAB ) + hReg['first'] + CRLF + ;
                     'Last'  + chr( VK_TAB ) + hReg['last'], 'Resultat' )   
        ELSE 
            
            MsgAlert( 'No Data' )
                
        ENDIF

    ELSE 
      
        MsgAlert( 'No hay datos', 'Sistema' )
    
    ENDIF

RETU NIL

<div class="php" id="{CB}" style="font-family: monospace;"><?php
<a href="http://www.php.net/include">include</a>( 'config.php' );

    //  Recolectar parámetros
    
    $cId    = isset( $_REQUEST[ 'id' ] ) ? $_REQUEST[ 'id' ] : '1';
    $cId    = <a href="http://www.php.net/intval">intval</a>( $cId );   

    // Crear conexión a la base de datos 
    
    $conn   = new mysqli( DB_SERVER, DB_USER, DB_PSW, DB_DATABASE );
    $cError = '';
    $aData  = null;
    
    
    // Crear procesos...
    
    <a href="http://www.php.net/if">if</a> ($conn->connect_error) {
    
        $cError = "Connection failed: " . $conn->connect_error;
        
    } <a href="http://www.php.net/else">else</a> {

        $sql    = "SELECT * FROM test where id = '" . $cId . "' LIMIT 1";
        $result = @<a href="http://www.php.net/mysqli_query">mysqli_query</a>( $conn, $sql );     

        <a href="http://www.php.net/if">if</a> ($result->num_rows > 0) {
        
            $aData = $result->fetch_assoc();                                                
        } 
    
    }
    
    $conn->close(); 
    
    //  Enviar respuesta de la petición...
    
    $aRequest = array( 'data' => $aData, 'error' => $cError );
    
    <a href="http://www.php.net/echo">echo</a> <a href="http://www.php.net/json_encode">json_encode</a>( $aRequest );  
?></div>

oServer := UHttpdNew( )
IF ! oServer:Run( { ;
         "Port"                => nPort, ;
         "Idle"                => {| o | iif( hb_FileExists( ".uhttpd.stop" ), ( FErase( ".uhttpd.stop" ), o:Stop() ), NIL ) }, ;
         "Mount"          => { ;
             "/customer"                        => {|| testjson() } } } )
ENDIF

// Server, post y get son variables publicas de UHttpdNew
function testjson(  )
  Local hDato := {=>}
  Local codigo, dDesde

  if server[ "REQUEST_METHOD" ] == "POST"
     codigo := hb_HGetDef( post, "codigo", "01" ) 
     dDesde := hb_HGetDef( post, "desde", DTOC( date() ) ) 
  elseif server[ "REQUEST_METHOD" ] == "GET"
     codigo := hb_HGetDef( get, "codigo", "01" ) 
     dDesde := hb_HGetDef( get, "desde", DTOC( date() ) ) 
  endif

   UAddHeader( "Content-Type", "application/json" )
  
   hDato["name"] := "rafa"
   hDato["priority"] := "high"
   
   hDato["notification"]  := {=>} 
   hDato["notification"]["title"] := "Example"
   hDato["notification"]["text"]  := "Information PUSH"
    
   hDato["data"]  := {=>} 
   hDato["data"]["message"] := "This is a test for Harbour!"
    
return hb_jsonencode( hDato, .T.  )