Xailer & OZ Software

Hola:
Hace tiempo que Compré este programa, lo he usado con mi anterior
herramienta de programación (Alaska Xbase++) con muy buenos resultados.
Se trata de una DLL. Dispone de varios ejemplos para su implantación,
entre ellos Borland C++ Builder ademas de Xbase++. Tengo los DLL's y los
LIB's. Para probar también he creado los LIB's con IMPLIB.EXE de BCC55.
No lo consigo.
Si yo pusiera aquí­ algún ejemplo, podrí­as ayudarme a utilizarlo con Xailer.
Gracias de antemano.
--
Saludos.
Miguel A. Torrellas
Telf.: 976642728
Movil: 610316131

Miguel,
> Hace tiempo que Compré este programa, lo he usado con mi anterior
> herramienta de programación (Alaska Xbase++) con muy buenos resultados.
>
> Se trata de una DLL. Dispone de varios ejemplos para su implantación,
> entre ellos Borland C++ Builder ademas de Xbase++. Tengo los DLL's y los
> LIB's. Para probar también he creado los LIB's con IMPLIB.EXE de BCC55. No
> lo consigo.
>
> Si yo pusiera aquí algún ejemplo, podrías ayudarme a utilizarlo con
> Xailer.
Vamos a intentarlo Si no es muy complicado quizás se podría hacer.
--
Un saludo,
José F. Giménez
http://www.xailer.com

//////////////////////////////////////////////////////////// //////////
//
// DLL.CH
//
// Copyright:
// Alaska Software, (c) 1998-2003. All rights reserved.
//
// Contents:
// Constants used for DLL calling conventions
// Command to load non Xbase++ DLLs during runtime and call
// DLL functions dynamically
//
//////////////////////////////////////////////////////////// //////////
// Dll.ch is not included
#ifndef _DLL_CH
// calling convention constants
#define DLL_SYSTEM 4
#define DLL_CDECL 8
#define DLL_STDCALL 32
#define DLL_XPPCALL 128
#ifdef __OS2__
#define DLL_OSAPI DLL_SYSTEM
#else
#define DLL_OSAPI DLL_STDCALL
#endif
// calling mode constants
#define DLL_CALLMODE_NORMAL 0x0000
#define DLL_CALLMODE_COPY 0x2000
// DllInfo() #defines
#define DLL_INFO_HANDLE 1
#define DLL_INFO_NAME 2
#define DLL_INFO_PATHNAME 3
#define DLL_INFO_LOADED 4
#define DLL_INFO_TYPE 5
#define DLL_INFO_LIST 6
#define DLL_INFO_PREFIX 7
#define DLL_INFO_UNLOADABLE 8
#define DLL_INFO_USAGELIST 9
#define DLL_INFO_FUNCLIST 10
#define DLL_INFO_CLASSFUNCLIST 11
#define DLL_INFO_IMPORTS 12
#define DLL_TYPE_UNKNOWN 0
#define DLL_TYPE_GENERAL 1
#define DLL_TYPE_XPP_STATIC 2
#define DLL_TYPE_XPP_DYNAMIC 3
#define DLL_TYPE_XPP_DYNAMIC_NOUNLOAD 4
#ifdef __XPP__
// DLLFUNCTION command
#command DLLFUNCTION <Func>([<x,...>]) ;
USING <sys:CDECL,OSAPI,STDCALL,SYSTEM> ;
FROM <(Dll)> ;
=> ;
FUNCTION <Func>([<x>]);;
LOCAL nDll:=DllLoad(<(Dll)>);;
LOCAL xRet:=DllCall(nDll,__Sys(<sys>),<(Func)>[,<x>]);;
DllUnLoad(nDll);;
RETURN xRet
#xtrans __Sys( CDECL ) => DLL_CDECL
#xtrans __Sys( OSAPI ) => DLL_OSAPI
#xtrans __Sys( STDCALL ) => DLL_STDCALL
#xtrans __Sys( SYSTEM ) => DLL_SYSTEM
#xcommand FUNCTION <Func>([<x1,...>] @ [<x2,...>]) ;
=> FUNCTION <Func>([<x1>][<x2>])
#endif // __XPP__
// constants for LoadResource() - resource type
#define RES_STRING 6
#define RES_VERSION 16
#define RES_RAWSTRING 1006
#define RES_VERSIONFIXED 1016
// constants for LoadResource() - version return
#define RES_VERSION_KEY 1
#define RES_VERSION_VALUE 2
#define RES_PRODVER_LS 1
#define RES_PRODVER_MS 2
#define RES_FILEVER_LS 3
#define RES_FILEVER_MS 4
#define RES_FILETIME_LS 5
#define RES_FILETIME_MS 6
// some predefined module handles
#define XPP_MOD_EXE 0
#define XPP_MOD_NLS 0xFFFFFFFF
#define XPP_MOD_RT1 0xFFFFFFFE
#define XPP_MOD_UI1 0xFFFFFFFD
#define XPP_MOD_UI2 0xFFFFFFFC
#define _DLL_CH
#endif
--

Miguel,
> Para empezar adjunto el módulo que proporciona el fabricante para
> implantarlo en Xbase ++. Con añadir este modulo al proyecto ya estarian
> disponibles las funciones en ALaska.
Por lo que veo, bastaría con hacer todos los "wrappers" necesarios. P.ej.:
> FUNCTION LlJobOpen(nLanguage)
> RETURN DllExecuteCall(tplLlJobOpen, nLanguage)
XA_FUNC( LLJOBOPEN )
{
hb_retnl( LlJobOpen( hb_parnl( 1 ) ) );
}
> FUNCTION LlJobOpenLCID(nLCID)
> RETURN DllExecuteCall(tplLlJobOpenLCID, nLCID)
XA_FUNC( LLJOBOPENLCID )
{
hb_retnl( LlJobOpenLCID( hb_parnl( 1 ) ) );
}
> PROCEDURE LlJobClose(hLlJob)
> DllExecuteCall(tplLlJobClose, hLlJob)
> RETURN
XA_FUNC( LLJOBCLOSE )
{
hb_retnl( LlJobClose( hb_parnl( 1 ) ) );
}
> PROCEDURE LlSetDebug(nOnOff)
> DllExecuteCall(tplLlSetDebug, nOnOff)
> RETURN
XA_FUNC( LLSETDEBUG )
{
LlSetDebug( hb_parl( 1 ) );
}
Y así para todas. No obstante, hay que saber exactamente las funciones que
son, sus parámetros y sus valores de retorno. Y también habrá que usar la
librería de importación.
--
Un saludo,
José F. Giménez
http://www.xailer.com

Jose, Miguel,
L&L usa un control OCX, aunque creo que es solo para poder incluir el
diseñador dentro de la aplicación.
Jose, es por este motivo por lo que te decí­a que en la empresa en la que
trabajo ahora necesitan OCX en Xailer y es "indispensable" para poder
dar el salto de Alaska a Xailer.
Saludos
Jose A. Suarez

José Alfonso,
> L&L usa un control OCX, aunque creo que es solo para poder incluir el
> diseñador dentro de la aplicación.
>
> Jose, es por este motivo por lo que te decía que en la empresa en la que
> trabajo ahora necesitan OCX en Xailer y es "indispensable" para poder dar
> el salto de Alaska a Xailer.
Ok. Los OCX estarán listos dentro de poco.
--
Un saludo,
José F. Giménez
http://www.xailer.com

Adjunto Proyecto, Salen los siguientes errores al compilar:
el fichero CM32L8.DLL no lo puedo adjuntar por tamaño si lo necesitas me
dices como te lo hago llegar.
No puedo incluir el ejemplo que trae para BCC por el mismo motivo de tamaño.
Compilando CMLL8.prg...
CMLL8.prg(14) Error E0001 Statement not allowed outside of procedure or
function
CMLL8.prg(14) Warning W0001 Ambiguous reference: 'LLJOBOPEN'
CMLL8.prg(15) Error E0020 Incomplete statement or unbalanced delimiters
CMLL8.prg(17) Error E0001 Statement not allowed outside of procedure or
function
CMLL8.prg(26) Error E0001 Statement not allowed outside of procedure or
function
CMLL8.prg(26) Warning W0001 Ambiguous reference: 'LLJOBCLOSE'
CMLL8.prg(27) Error E0020 Incomplete statement or unbalanced delimiters
CMLL8.prg(29) Error E0001 Statement not allowed outside of procedure or
function
CMLL8.prg(37) Error E0001 Statement not allowed outside of procedure or
function
CMLL8.prg(37) Warning W0001 Ambiguous reference: 'LLSETDEBUG'
CMLL8.prg(38) Error E0020 Incomplete statement or unbalanced delimiters
CMLL8.prg(40) Error E0001 Statement not allowed outside of procedure or
function
Enlazando prueba.exe...
Fatal: Unable to open file 'CMLL8.OBJ'
3 Warnings, 10 Errors
Saludos.
Miguel A. Torrellas
Telf.: 976642728
Movil: 610316131
Jose F. Gimenez escribió:
> Miguel,
>
>> Para empezar adjunto el módulo que proporciona el fabricante para
>> implantarlo en Xbase ++. Con añadir este modulo al proyecto ya estarian
>> disponibles las funciones en ALaska.
>
> Por lo que veo, bastarí­a con hacer todos los "wrappers" necesarios. P.ej.:
>
>> FUNCTION LlJobOpen(nLanguage)
>> RETURN DllExecuteCall(tplLlJobOpen, nLanguage)
>
> XA_FUNC( LLJOBOPEN )
> {
> hb_retnl( LlJobOpen( hb_parnl( 1 ) ) );
> }
>
>
>> FUNCTION LlJobOpenLCID(nLCID)
>> RETURN DllExecuteCall(tplLlJobOpenLCID, nLCID)
>
> XA_FUNC( LLJOBOPENLCID )
> {
> hb_retnl( LlJobOpenLCID( hb_parnl( 1 ) ) );
> }
>
>
>> PROCEDURE LlJobClose(hLlJob)
>> DllExecuteCall(tplLlJobClose, hLlJob)
>> RETURN
>
>
> XA_FUNC( LLJOBCLOSE )
> {
> hb_retnl( LlJobClose( hb_parnl( 1 ) ) );
> }
>
>
>> PROCEDURE LlSetDebug(nOnOff)
>> DllExecuteCall(tplLlSetDebug, nOnOff)
>> RETURN
>
>
> XA_FUNC( LLSETDEBUG )
> {
> LlSetDebug( hb_parl( 1 ) );
> }
>
> Y así­ para todas. No obstante, hay que saber exactamente las funciones que
> son, sus parámetros y sus valores de retorno. Y también habrá que usar la
> librerí­a de importación.
>
--

Si conseguimos implementar L&L. Xailer quedarí­a perfecto para mis
necesidades.
No Podemos olvidar que fuimos muchos los que adquirimos este Reports
Designer. Tenemos muchos Reports creados que podrí­amos utilizar y ademas
no despreciarí­amos una inversión. Tampoco hay que ponerse a estudiar y
aprender mas cosas.
Xailer seria mucho mas potente y deseado.
Saludos.
Miguel A. Torrellas
Telf.: 976642728
Movil: 610316131
José Alfonso Suárez Moreno escribió:
> Jose, Miguel,
>
> L&L usa un control OCX, aunque creo que es solo para poder incluir el
> diseñador dentro de la aplicación.
>
> Jose, es por este motivo por lo que te decí­a que en la empresa en la que
> trabajo ahora necesitan OCX en Xailer y es "indispensable" para poder
> dar el salto de Alaska a Xailer.
>
> Saludos
>
> Jose A. Suarez

Se puede descargar la demo en http://en.combit.net/
Saludos.
Miguel A. Torrellas
Telf.: 976642728
Movil: 610316131
José Alfonso Suárez Moreno escribió:
> Jose, Miguel,
>
> L&L usa un control OCX, aunque creo que es solo para poder incluir el
> diseñador dentro de la aplicación.
>
> Jose, es por este motivo por lo que te decí­a que en la empresa en la que
> trabajo ahora necesitan OCX en Xailer y es "indispensable" para poder
> dar el salto de Alaska a Xailer.
>
> Saludos
>
> Jose A. Suarez

Adjunto proyecto y al compilar salen estos warnings
Compilando Form1.prg...
Compilando DbfTest.rc...
Compilando Form2.prg...
Compilando DbfTest.prg...
Compilando Combit.prg...
Warning W8065 Combit.prg 17: Call to function 'LlJobClose' with no
prototype in function HB_FUN_LLJOBCLOSE
Warning W8065 Combit.prg 22: Call to function 'LlSetDebug' with no
prototype in function HB_FUN_LLSETDEBUG
Enlazando DbfTest.exe...
2 Warnings, 0 Errors
si se puede me echas un mano
Saludos.
Miguel A. Torrellas
Telf.: 976642728
Movil: 610316131
Jose F. Gimenez escribió:
>> FUNCTION LlJobOpen(nLanguage)
>> RETURN DllExecuteCall(tplLlJobOpen, nLanguage)
>
> XA_FUNC( LLJOBOPEN )
> {
> hb_retnl( LlJobOpen( hb_parnl( 1 ) ) );
> }
>
>
>> FUNCTION LlJobOpenLCID(nLCID)
>> RETURN DllExecuteCall(tplLlJobOpenLCID, nLCID)
>
> XA_FUNC( LLJOBOPENLCID )
> {
> hb_retnl( LlJobOpenLCID( hb_parnl( 1 ) ) );
> }
>
>
>> PROCEDURE LlJobClose(hLlJob)
>> DllExecuteCall(tplLlJobClose, hLlJob)
>> RETURN
>
>
> XA_FUNC( LLJOBCLOSE )
> {
> hb_retnl( LlJobClose( hb_parnl( 1 ) ) );
> }
>
>
>> PROCEDURE LlSetDebug(nOnOff)
>> DllExecuteCall(tplLlSetDebug, nOnOff)
>> RETURN
>
>
> XA_FUNC( LLSETDEBUG )
> {
> LlSetDebug( hb_parl( 1 ) );
> }
>
--

Miguel,
> Adjunto proyecto y al compilar salen estos warnings
>
> Compilando Form1.prg...
> Compilando DbfTest.rc...
> Compilando Form2.prg...
> Compilando DbfTest.prg...
> Compilando Combit.prg...
> Warning W8065 Combit.prg 17: Call to function 'LlJobClose' with no
> prototype in function HB_FUN_LLJOBCLOSE
> Warning W8065 Combit.prg 22: Call to function 'LlSetDebug' with no
> prototype in function HB_FUN_LLSETDEBUG
> Enlazando DbfTest.exe...
> 2 Warnings, 0 Errors
>
> si se puede me echas un mano
Intentaré revisarlo cuanto antes.
--
Un saludo,
José F. Giménez
http://www.xailer.com

Gracias por tu interes.
Saludos.
Miguel A. Torrellas
Telf.: 976642728
Movil: 610316131
Jose F. Gimenez escribió:
> Miguel,
>
>> Adjunto proyecto y al compilar salen estos warnings
>>
>> Compilando Form1.prg...
>> Compilando DbfTest.rc...
>> Compilando Form2.prg...
>> Compilando DbfTest.prg...
>> Compilando Combit.prg...
>> Warning W8065 Combit.prg 17: Call to function 'LlJobClose' with no
>> prototype in function HB_FUN_LLJOBCLOSE
>> Warning W8065 Combit.prg 22: Call to function 'LlSetDebug' with no
>> prototype in function HB_FUN_LLSETDEBUG
>> Enlazando DbfTest.exe...
>> 2 Warnings, 0 Errors
>>
>> si se puede me echas un mano
>
> Intentaré revisarlo cuanto antes.
>

Hola:
Jose F. Gimenez escribió:
> Vamos a intentarlo Si no es muy complicado quizás se podrí­a hacer.
>
Con la llegada de OCX en Xailer, hemos conseguido utilizar List & Label
con Xailer integra y totalmente.
Solamente destacar un problema, en el fichero .ch que se crea al
importar el control ActiveX, hay que sustituir #xTranslate pro #define,
da error al compilar.
Saludos. Miguel A. Torrellas