Aqui funciona correctamente, debe ser la versión de Harbour que estas usando
Prueba a descargar la más reciente
Antonio Linares wrote:Aqui funciona correctamente, debe ser la versión de Harbour que estas usando
Prueba a descargar la más reciente
Antonio Linares wrote:http://forums.fivetechsupport.com/viewtopic.php?f=16&t=35191
karinha wrote:Muestra el fuente completo porfa.
Intenta con:
TUTOR04.PRG
// Son 3 .prgs - solo 2 - DEMO.PRG y MEDIDA.PRG
// DEMO.PRG
#include "FiveWin.ch"
FUNCTION MAIN()
ejecutar( MemoRead( "medida.prg" ) )
RETURN nil
// EJECUTAR.PRG
// #include "FiveWin.ch" // ???
FUNCTION Ejecutar( cCode )
LOCAL oHrb, cResult, bOldError, oResult
oHrb = HB_CompileFromBuf( cCode, .T. , "-n", "-Ic:\fwh1701\include", "-Ic:\HB1801\include" )
IF ! Empty( oHrb )
BEGIN SEQUENCE
bOldError = ErrorBlock( { | o | DoBreak( o ) } )
hb_HrbRun( oHrb )
END SEQUENCE
ErrorBlock( bOldError )
ENDIF
RETURN nil
//----------------------------------------------------------------------------//
FUNCTION DoBreak( oError )
LOCAL cInfo := oError:operation, n
IF ValType( oError:Args ) == "A"
cInfo += " Args:" + CRLF
FOR n = 1 TO Len( oError:Args )
MsgInfo( oError:Args[ n ] )
cInfo += "[" + Str( n, 4 ) + "] = " + ValType( oError:Args[ n ] ) + ;
" " + cValToChar( oError:Args[ n ] ) + CRLF
NEXT
ENDIF
MsgStop( oError:Description + CRLF + cInfo, ;
"Script error at line: " + AllTrim( Str( ProcLine( 2 ) ) ) )
BREAK
RETURN nil
/*
MEDIDA.PRG
#Include "Fivewin.ch"
FUNCTION MEDIDA()
? "mensaje"
RETURN .T.
*/
karinha wrote:És esto? Está correcto la mensageria?
Saludos
acuellar wrote:Estimado
Lo compile el ejemplo y funciona perfecto.
Tengo:
FWH1804
Harbour 3.2.0dev (r1801051438)
Embarcadero C++ 7.30 for Win32 Copyright (c) 1993-2017 Embarcadero Technologies, Inc.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: AngelSalom, Google [Bot] and 62 guests