FiveWin con xHarbour Comercial + GTWVW

[pcordonet]

Hola Antonio,

Tengo el programa rodando en xHarbour Commercial con la libreria grafica GTWVW, seria posible abrir ventanas de FiveWin dentro del programa ?

Muchas Gracias.
Pere Cordonet

[Antonio Linares]

Pere,

FWH no depende de ninguna librería GT, por lo que deberías poder usarlo conjuntamente con tu aplicación.

Lo único a tener en cuenta es que cuando se cierra la primera ventana creada en FWH, FWH entiende que quieres salir de la aplicación. EN todo caso, tendrias que crear una primera ventana con DEFINE WINDOW oWnd aunque no llegases a mostrarla con ACTIVATE WINDOW oWnd. Pruébalo

[pcordonet]

Muchas gracias, por responder.

Tengo un problema al momento de Linkar el programa:

Me sale este error.

xLINK: error: Unresolved external symbol '?hb_oleVariantToItem@@YAJPAU_HB_ITEM@@PAUtagVARIANT@@@Z referenced from Fivehcm.lib(ACTX.obj)'.

Buscando por el foro he visto que se podia solucionar con este post:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16792&p=87166&hilit=hb_oleVariantToItem#p87166

Pero después de linkar otra vez, sale este otro:

G:\Clients\GENXHB\FUNC_C\DFTsClient.C(626): error: Missing name for parameter 1 to function 'hb_oleVariantToItem'.
G:\Clients\GENXHB\FUNC_C\DFTsClient.C(626): error: Missing name for parameter 2 to function 'hb_oleVariantToItem'.

Después he probado de poner nombre en el primer y segundo parametro ejemplo a y b.

Code: Select all  Expand view

int hb_oleVariantToItem( void *a, void *b )
{
   return 0;
}
 

Otra vez sale este error:

xLINK: error: Unresolved external symbol '?hb_oleVariantToItem@@YAJPAU_HB_ITEM@@PAUtagVARIANT@@@Z referenced from Fivehcm.lib(ACTX.obj)'.

Puedo hacer otra cosa?

Muchas gracias.

[Antonio Linares]

Pere,

La función sería así:

Code: Select all  Expand view

HRESULT hb_oleVariantToItem( PHB_ITEM pi, VARIANT * pv )
{
   return S_OK;
}
 

[pcordonet]

Buenos dias Antonio,

He creado un archivo llamado FuncFive.C con el siguiente contenido:

Code: Select all  Expand view

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HRESULT hb_oleVariantToItem( PHB_ITEM pi, VARIANT * pv )
{
   return S_OK;
}

#pragma ENDDUMP
 

Lo he añadido en el proyecto y he recompliado todo el proyecto, me da el siguiente error:

Code: Select all  Expand view

Type: C >>>xcc.exe -Fo"I:\CLIENTS\COMERCIAL\STOCKS\OBJ\FuncFive.obj" -Ot   -I"G:\CLIENTS\GENXHB\LIBEXT\Include" -I"I:\xHB\include" -I"I:\xHB\c_include\Win" -I"I:\HWGUI\INCLUDE" -I"I:\xHB\include" -I"I:\xHB\c_include" -I"I:\xHB\c_include\win" -I"I:\xHB\c_include\msvc" "G:\Clients\GENXHB\FUNC_C\FuncFive.C"<<<

xLINK: error: Unresolved external symbol '?hb_oleVariantToItem@@YAJPAU_HB_ITEM@@PAUtagVARIANT@@@Z referenced from Fivehcm.lib(ACTX.obj)'.

xLINK: fatal error: 1 unresolved external(s).

 

A ver si sabes donde puede venir el error.
Muchas Gracias.
Pere.

[Antonio Linares]

Pere,

Ese código no lo puedes meter dentro de #pragma BEGINDUMP ... ENDDUMP pues la función se espera en modo C++.

Tendrías que crear un FuncFive.cpp y compilarlo, pero la limitación del compilador de PellesC, que es el que usa xharbour comercial, es que no soporta C++ (salvo que lo hayan cambiado, pero no nos consta).

Te sirve el compilador de C de Microsoft. El de Borland, no, pues son formatos incompatibles. Lo vamos a preparar aqui y te damos el OBJ.

[Antonio Linares]

Aqui los tienes:

http://www.mediafire.com/?zjgx1nmyyjy
http://www.mediafire.com/?zz2bol1ju1m

[pcordonet]

Muchas gracias por tu ayuda.

Ahora, el programa he logrado arrancarlo sin ningun error.

Al principio del programa, como me dijiste cree un objecto TWindow si mas parametros que las posicions y con la característica PIXEL.

Code: Select all  Expand view

oWndFW:= TWindow():New( 0, 0 , 600, 800,,,,,,,,,,,,,,,,, .T.)
 

Atención si hacer ACTIVATE WINDOW oWndFW ejecuto el resto de codigo, de momento va perfecto.

Cuando creo una funció para ver una ventada de FW con el siguiente codigo:

Code: Select all  Expand view

# include "FiveWin.ch"

Function FWAcumula()
Local oWnd
DEFINE WINDOW oWnd FROM 10,10 TO 600,800 PIXEL OF oWndFW
@ 10, 10 SAY "FIVEWIN" PIXEL
ACTIVATE WINDOW oWnd

Return nil
 

En la función entra, pero no aparece nada de nada, pasa por encima de todas las instrucciones.

Nota: la Variable oWndFW esta declarada como publica, asi se podra acceder desde qualquier punto de la aplicación.

Gracias por todo.

[pcordonet]

Hola Antonio,

Podria decirme por donde puedo mirarme algo ?

Que tipo de tests puedo hacer ?

Que variables hay que debugar?


Esperando noticias,Muchas Gracias.
Pere.

[Antonio Linares]

Pere,

Si oWndFW no esta creada con FWH entonces cambia esta línea:

DEFINE WINDOW oWnd FROM 10,10 TO 600,800 PIXEL // OF oWndFW

[pcordonet]

Hola Antonio

Una respuesta muy rápida.

He estado unos dias de vacaciones, me han ido muy bien.

Cuando cambio la línea que me has puesto se sale un error que pone:


Gracias.

[Antonio Linares]

Pere,

No te indica la lista de llamadas desde donde se genera el error ?

Lo que normalmente le decimos el "calls stack"

[pcordonet]

Buenos dias, Antonio.

No hay ninguna pila de llamadas ya que este error es un error irrecuperable desde xHarbour.

Voy a incluir en mi proyecto el archivo window.prg de fivewin, y intentaré localizar el punto.

Atención, estoy utilizando la versión: 10.2 de FiveWin.

Pila de llamadas :


Variables locales de la función _FWH:


A ver que me pudes decir..

Muchas Gracias otra vez.
Pere

[Antonio Linares]

Pere,

Puedes poner una imagen de como se ve tu aplicación justo antes de que se genere el error ? gracias

[pcordonet]

Aqui està