blockchain y FWH

[MOISES]

Hola compañeros:

¿Alguien ha explorado esta opción?

Muchas gracias. Un saludo

[cnavarro]

viewtopic.php?f=17&t=34973&start=15#p211321

Incluido en la version de Fivewin 18.10

* TBLOCKCHAIN CLASS: included in LIBS
Sample of use: BLOCKCHAIN.PRG

[MOISES]

Muchas gracias Cristóbal, pero no encuentro las fuentes de la clase

[cnavarro]

Moisés, la clase es mía, y aunque la incluí en la lib de Fivewin, aún no he publicado su fuente.
Prueba el ejemplo y dime qué te parece y las sugerencias que tengas.

[MOISES]

Muchas gracias Cristóbal. Tú lo has implementado en algún proyecto?

[cnavarro]

Si, en qué tenías pensado aplicarlo?

[MOISES]

Aún no lo sé, por eso preguntaba experiencias de otros compañeros. Cualquier luz será bienvenida.

Muchas gracias.

[MOISES]

En el .rc tienes un error en el path del Manifest. Debe ser:

Code: Select all  Expand view

#ifdef __FLAT__
   1 24 "WinXP/WindowsXP.Manifest"
#endif

[MOISES]

Por favor, ¿podrías incluir los fuentes de la clase en la próxima versión? Sin ellos el ejemplo no se entiende. Y sigue estando mal el fichero .rc. Muchas gracias y feliz 2020

[cnavarro]

Lo del rc, se me ha pasado, pero qué es lo que no entiendes ?
Si no has mirado los enlaces que he puesto en el ejemplo y entiendes el concepto, la clase no te lo va a explicar

[leandro]

No logro compilar el ejemplo, que me hace falta agregar?

Code: Select all  Expand view

┌────────────────────────────────────────────────────────────────────────────┐
?FiveWin for xHarbour 19.09 - Sep. 2019          xHarbour development power │▄
?(c) FiveTech 1993-2019 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█
└────────────────────────────────────────────────────────────────────────────┘?
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀?
Compiling...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613)
Copyright 1999-2018, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'blockchain.prg' and generating preprocessed output to 'blockchain.ppo'...
Generating C source output to 'blockchain.c'...
Done.
Lines 409, Functions/Procedures 6, pCodes 5370
Embarcadero C++ 7.30 for Win32 Copyright (c) 1993-2017 Embarcadero Technologies, Inc.
blockchain.c:
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
Turbo Incremental Link 6.80 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_HB_HHASKEY' referenced from C:\FWH1909\LIB\FIVEHX.LIB|TBLOCKCHAIN
Error: Unable to perform link
* Linking errors *
 

[cnavarro]

Leandro, pon esto al principio del ejemplo

Code: Select all  Expand view

#xtranslate hb_HHasKey( [<x,...>] ) => HHasKey( <x> )
 

Pero es raro porque justo es lo que aparece al principio de la clase

Code: Select all  Expand view

#ifdef __XHARBOUR__
#xtranslate hb_HHasKey( [<x,...>] ) => HHasKey( <x> )
#endif
 

[leandro]

Cristobal gracias por responder...

Nada devuelve mismo error

[cnavarro]

Leandro, prueba poniendo esto al final del ejemplo
Miraré qué ha pasado en la librería

Code: Select all  Expand view

Function hb_HHasKey( x, cKey  )
Return HHasKey( x, cKey )
 

[leandro]

Nuevo Error, jejejejejeje

Code: Select all  Expand view

Stack Calls
===========
   Called from: .\source\internal\TBLOCKCHAIN.PRG => TBLOCKCHAIN:ADDNEWBLOCK( 139 )
   Called from: .\source\internal\TBLOCKCHAIN.PRG => TBLOCKCHAIN:NEW( 60 )
   Called from: blockchain.prg => MAIN( 65 )