FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Crear function para Script de Harbour
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 09:02 AM

Aqui funciona correctamente, debe ser la versión de Harbour que estas usando

Prueba a descargar la más reciente

regards, saludos

Antonio Linares
www.fivetechsoft.com
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 11:42 AM
Antonio Linares wrote:Aqui funciona correctamente, debe ser la versión de Harbour que estas usando

Prueba a descargar la más reciente


Cual es el enlace de la mas reciente?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 12:38 PM

viewtopic.php?f=16t=35191

&

regards, saludos

Antonio Linares
www.fivetechsoft.com
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 12:43 PM
Antonio Linares wrote:http://forums.fivetechsupport.com/viewtopic.php?f=16&t=35191


Da el mismo error de corrupcion

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 06:49 PM

Muestra el fuente completo porfa.

Intenta con:

TUTOR04.PRG

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 06:54 PM
karinha wrote:Muestra el fuente completo porfa.

Intenta con:

TUTOR04.PRG


Son 3 .prgs

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:\fwh\include", "-Ic:\harbour\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.

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 07:13 PM
És esto? Está correcto la mensageria?



Saludos
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 07:18 PM
Code (fw): Select all Collapse
// 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.
*/


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 07:22 PM
karinha wrote:És esto? Está correcto la mensageria?



Saludos



Si, lo pruebo y te comento

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 07:28 PM

Error de corrupcion HB_HRBRUN()

Me puedes compartir tu version de Harbour y Bcc ?

Parece la mia esta corrupta

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 07:33 PM
Cual tú correo? ó skype?

https://www.4shared.com/rar/vPK9Srloca/BCC73.html

https://www.4shared.com/rar/Wj6bviK0ee/HB1801.html

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Thu Aug 16, 2018 07:43 PM
karinha wrote:Cual tú correo? ó skype?

Saludos.


compuin@gmail.com

Enviame tu skype y te agrego

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Sat Aug 18, 2018 02:43 PM

Saludos

Hice formateo de mi maquina e instalando todo nuevamente sigue el mismo error de corrupcion

Algun advise?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Crear function para Script de Harbour
Posted: Sat Aug 18, 2018 03:02 PM

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.

Saludos,



Adhemar C.
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Crear function para Script de Harbour
Posted: Sat Aug 18, 2018 03:08 PM
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.


Que puede estar mal?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Static archive · New replies & topics via GitHub Discussions