FiveTech Support Forums

Señores, al alguien sabe de este problema.

Al utilizar la instrucción hb_itemDoC el aplicativo deja de funcionar y debo forzar su cierre o también se me bloquea el equipo y debo apagarlo.

La idea es ejecutar una función o procedimiento de harbour desde un bloque #pragma BEGINDUMP

No se, si es, la defición de la función o falta alguna librería al compilar.

Desde ya se agradece cualquier ayuda.

#pragma BEGINDUMP
static void seleccion_menu( GtkWidget *widget, gpointer pdata )
{
int i;
PHB_ITEM pArg1 = hb_itemNew( NULL );
PHB_ITEM pArg2 = hb_itemNew( NULL );
PHB_ITEM pArg3 = hb_itemNew( NULL );
PHB_ITEM itemReturn = hb_itemNew( NULL );

for( i = 0; i < iNumOpciones; i++ )
{
if (tOpc[i].gWidget == widget) {
break;
}
}

hb_itemPutNL( pArg1, (int) tOpc[i].iPos_Horizontal );
hb_itemPutNL( pArg2, (int) tOpc[i].iPos_Vertical );
hb_itemPutNL( pArg3, (int) tOpc[i].iPos_Sub_Vertical );

hb_itemDoC( "fMenu_Opciones", 3, pArg1, pArg2, pArg3, 0 );

gtk_menu_shell_select_first(menubar, TRUE);
gtk_menu_shell_select_item(GTK_MENU_SHELL(menubar), GTK_MENU_ITEM(tOpc[i].gHorizontal) );
if (tOpc[i].gSub_Menu == 0) {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc[i].gVertical), GTK_MENU_ITEM(widget) );
} else {
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc[i].gVertical), GTK_MENU_ITEM(tOpc[i].gSub_Menu) );
gtk_menu_shell_select_item(GTK_MENU_SHELL(tOpc[i].gSub_Vertical), GTK_MENU_ITEM(widget) );
}
hb_itemRelease( pArg1 );
hb_itemRelease( pArg2 );
hb_itemRelease( pArg3 );
}
:
:
:
#pragma ENDDUMP

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=14863&hilit=dll&start=120

https://searchcode.com/codesearch/view/4496364/

http://fivewin.com.br/index.php?/topic/22086-cria%C3%A7%C3%A3o-de-dll-com-c%C3%B3digo-xbase-para-uso-com-harbour/

Jorge,

Te he enviado un email