Estoy practicando con el nuevo V2, todo instalado perfectamente, todo corren bien, pero cuanto estoy ejecutando estas lineas de mercury con controller me sale error, este es el error:
Código: Seleccionar todo
Mercury Error
Description Value
Description Can't open #include file 'hbclass.ch'
System PP/29
Os Windows 8 6.2
mod Version mod_harbour.V2.1 => 2.1.003
Rdss DBF, DBFFPT, DBFBLOB, DBFNSX, DBFCDX, SIXCDX, DBFNTX, DELIM, SDF, FCOMMA
Code
0001 #include 'hbclass.ch'
0002 #include 'hboo.ch'
0003 #include 'C:/xampp/htdocs/Practica-Tweb.v2/lib/mercury/mercury.ch'
0004
0005 CLASS Customer
0006
0007 METHOD New( oController ) CONSTRUCTOR
0008
0009 METHOD Search( oController )
0010
0011 ENDCLASS
0012
0013 //----------------------------------------------------------------------------//
0014
0015 METHOD New( oController ) CLASS Customer
0016
0017
0018 RETURN Self
0019
0020
0021
0022 //----------------------------------------------------------------------------//
0023
0024 METHOD Search( oController ) CLASS Customer
0025
0026 ? 'Hello search'
0027
0028 RETU nil
0029
0030
0031
0032
0033
El codigo index.prg
// ------------------------------------------------------------------------------
// Title......: Hello !
// Description: Example de web application with mercury...
// Date.......: 22/05/2020
// ------------------------------------------------------------------------------
// {% mh_LoadHrb( 'lib/mercury/mercury.hrb' ) %} // Load Mercury pluggin
// {% mc_InitMercury( 'lib/mercury/mercury.ch' ) %} // Init Mercury
// ------------------------------------------------------------------------------
function Main()
local oApp
? 'Version Mercury :', mc_version()
// Define App
DEFINE APP oApp TITLE 'My web aplication...'
// Config Routes
DEFINE ROUTE 'search' URL 'search' CONTROLLER 'search@customer.prg' METHOD 'GET' OF oApp
INIT APP oApp
return nil
function AppPathData()
return AP_GetEnv( "DOCUMENT_ROOT" ) + AP_GetEnv( "PATH_DATA" )
Este el customer.prg
CLASS Customer
METHOD New( oController ) CONSTRUCTOR
METHOD Search( oController )
ENDCLASS
//----------------------------------------------------------------------------//
METHOD New( oController ) CLASS Customer
RETURN Self
//----------------------------------------------------------------------------//
METHOD Search( oController ) CLASS Customer
? 'Hello search'
RETU nil