Ejecutar un CODEBLOCK en C++

[antolin]

Buenas tardes.

Alguien sabría decirme como ejecutar un CODEBLOCK de xHarbour en C++.

Por ejemplo: Pasar bEjemplo := { |x,y| MiFuncion(x,y,nOtro,cOtro)} a una función en C++ para que se ejecute la función MiFuncion() desde allí.

He encontrado la definición: hb_vmEvalBlockV( PHB_ITEM pBlockItem, USHORT uiArgCount, ... ) --> ( PHB_ITEM )pResult

Pero no sé como utilizarla. Si USHORT uiArgCoun es sólo un entero que indique el numero de argumentos, o si hay que enumerar las variables dentro de la función C++. Tampoco especifica la naturaleza de pResult, es un PHB_ITEM, pero de que tipo, o sólo es un 0 o -1.

Si me pudieran poner un ejemplo sencillo, mejor, claro.

Gracias

[Antonio Linares]

Aqui tienes el ejemplo completo:

antolin.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local nOtro := 123
   local cOtro := "Hello"

   MsgInfo( Test( { | x, y | MiFuncion( x, y, nOtro, cOtro ) }, "Primer parámetro", "segundo parámetro" ) )

return nil

function MiFuncion( x, y, nOtro, cOtro )

   MsgInfo( x )
   MsgInfo( y )
   MsgInfo( nOtro )
   MsgInfo( cOtro )

return "funciona"

#pragma BEGINDUMP

#include <hbapi.h>
#include <hbapiitm.h>
#include <hbvm.h>
#include <hbstack.h>

HB_FUNC( TEST )
{
   PHB_ITEM pCodeBlock = hb_param( 1, HB_IT_EVALITEM );
   PHB_ITEM pParam1 = hb_param( 2, HB_IT_ANY );
   PHB_ITEM pParam2 = hb_param( 3, HB_IT_ANY );

   hb_vmEvalBlockV( pCodeBlock, 2, pParam1, pParam2 );
}

#pragma ENDDUMP

[antolin]

Muchas gracias Antonio, va muy bien

[antolin]

Es que tengo mis propios browsers, y los estoy modificando para que tengan fondo transparente.
Van muy bien y rápidos, pero me gustaría acelerarlos con funciones en C++ para futuras mejoras.

Este es un ejemplo

[antolin]

Es que me gustan mucho las transparencias.

[Antonio Linares]

un gran trabajo!

Enhorabuena