In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Versi

Foro público de Xailer en español
Responder
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Versi

Mensaje por jose.luis »

Hola,
He recompilado completamente la aplicación con la nueva versión. Me aparece
estos 'warnings' y errores que con la versión de Marzo no salían:
Compilando Blat.prg...
C:Programacion_DiskProgramacionxailer2xHarbourBinharbo ur.exe Blat.prg
/n /b -p /w1 /D__DEBUG__
/iC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude
/oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlat.c
Compilando BlatMail.prg...
C:Programacion_DiskProgramacionxailer2xHarbourBinharbo ur.exe
BlatMail.prg /n /b -p /w1 /D__DEBUG__
/iC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude
/oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlatMail.c
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6484)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'Blat.prg' and generating preprocessed output to 'Blat.ppo'...
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6484)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'BlatMail.prg' and generating preprocessed output to
'BlatMail.ppo'...
Lines 104, Functions/Procedures 4
Generating C source output to
'C:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerOb jBlat.c'...
Done.
C:Programacion_DiskProgramacionxailer2bcc55Binbcc32 -tWM -c -v- -5 -6
-OS -O2 -X -D__XHARBOUR__ -D__DEBUG__ -DHB_API_MACROS -DHB_STACK_MACROS -IC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude;C:Programacion_DiskProgramacionxailer2bcc 55Include
-oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlat.dbj
Blat.c
Lines 212, Functions/Procedures 8
Generating C source output to
'C:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerOb jBlatMail.c'...
Done.
C:Programacion_DiskProgramacionxailer2bcc55Binbcc32 -tWM -c -v- -5 -6
-OS -O2 -X -D__XHARBOUR__ -D__DEBUG__ -DHB_API_MACROS -DHB_STACK_MACROS -IC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude;C:Programacion_DiskProgramacionxailer2bcc 55Include
-oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlatMail.dbj
BlatMail.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
Blat.c:
Warning W8070 Blat.prg 161: Function should return a value in function
XA_FUNC_STATIC
Warning W8057 Blat.prg 161: Parameter 'XBLAT_INITIALIZE' is never used in
function XA_FUNC_STATIC
Error E2238 Blat.prg 166: Multiple declaration for 'XA_FUNC_STATIC'
Error E2344 Blat.prg 140: Earlier declaration of 'XA_FUNC_STATIC'
Warning W8070 Blat.prg 175: Function should return a value in function
XA_FUNC_STATIC
Warning W8057 Blat.prg 175: Parameter 'XBLAT_UNINITIALIZE' is never used in
function XA_FUNC_STATIC
*** 2 errors in Compile ***
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
BlatMail.c:
Warning W8057 BlatMail.prg 250: Parameter 'XBLATMAIL_LOADFUNCS' is never
used in function XA_FUNC_STATIC
Error E2238 BlatMail.prg 255: Multiple declaration for 'XA_FUNC_STATIC'
Error E2344 BlatMail.prg 225: Earlier declaration of 'XA_FUNC_STATIC'
Warning W8057 BlatMail.prg 269: Parameter 'XBLATMAIL_SENDMAIL' is never used
in function XA_FUNC_STATIC
*** 2 errors in Compile ***
2 Files, 6 Warnings, 4 Errors
Tiempo de compilación: 1.36s Tiempo de enlazado: 0.00s Tiempo total:
1.36s
Y el código es éste (está en un PRG, no en .C aparte)
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
#include <hbapi.h>
//---------------------------------------------------------- --------------------
XA_FUNC_STATIC( XBLAT_INITIALIZE )
{
PHB_ITEM Self = hb_stackSelfItem();
HINSTANCE hBlat;
HINSTANCE hLib = (HINSTANCE) XA_ObjGetNL( Self, "hLib" );
BOOL bSuccess = FALSE;
if( hLib < (HINSTANCE) 32 )
{
hBlat = LoadLibrary( XA_ObjGetC( Self, "cBlatFolder" ) );
if( hBlat == NULL )
{
XA_ObjSendNL( Self, "_nLastError", -100 );
XA_ObjSendNL( Self, "OnError", -100 ); // No inicializado
}
else
XA_ObjSendNL( Self, "_hLib", (LONG) hBlat );
}
hb_retl( bSuccess );
}
//---------------------------------------------------------- --------------------
XA_FUNC_STATIC( XBLAT_UNINITIALIZE )
{
PHB_ITEM Self = hb_stackSelfItem();
HINSTANCE hLib = (HINSTANCE) XA_ObjGetNL( Self, "hLib" );
if( hLib >= (HINSTANCE) 32 )
{
FreeLibrary( hLib );
XA_ObjSendNL( Self, "_hLib", 0 );
}
}
#pragma ENDDUMP
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9460
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Versi

Mensaje por ignacio »

José Luis,
Cambia XA_FUNC_STATIC por HB_FUNC_STATIC.
Para más información consulta el foro en inglés PRO de hace unos días.
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"José Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
news:[email=4a3a9f0b@svctag-j7w3v3j....]4a3a9f0b@svctag-j7w3v3j....[/email]
> Hola,
>
> He recompilado completamente la aplicación con la nueva versión. Me
> aparece estos 'warnings' y errores que con la versión de Marzo no salían:
>
> Compilando Blat.prg...
>
> C:Programacion_DiskProgramacionxailer2xHarbourBinharbo ur.exe
> Blat.prg /n /b -p /w1 /D__DEBUG__
> /iC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude
> /oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlat.c
>
> Compilando BlatMail.prg...
>
> C:Programacion_DiskProgramacionxailer2xHarbourBinharbo ur.exe
> BlatMail.prg /n /b -p /w1 /D__DEBUG__
> /iC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude
> /oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlatMail.c
>
> xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6484)
> Copyright 1999-2009, http://www.xharbour.org
> http://www.harbour-project.org/
> Compiling 'Blat.prg' and generating preprocessed output to 'Blat.ppo'...
> xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6484)
> Copyright 1999-2009, http://www.xharbour.org
> http://www.harbour-project.org/
> Compiling 'BlatMail.prg' and generating preprocessed output to
> 'BlatMail.ppo'...
> Lines 104, Functions/Procedures 4
> Generating C source output to
> 'C:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerOb jBlat.c'...
> Done.
>
> C:Programacion_DiskProgramacionxailer2bcc55Binbcc32 -tWM -c -v- -5 -6
> -OS -O2 -X -D__XHARBOUR__ -D__DEBUG__ -DHB_API_MACROS -DHB_STACK_MACROS
> -IC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude;C:Programacion_DiskProgramacionxailer2bcc 55Include
> -oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlat.dbj
> Blat.c
>
> Lines 212, Functions/Procedures 8
> Generating C source output to
> 'C:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerOb jBlatMail.c'...
> Done.
>
> C:Programacion_DiskProgramacionxailer2bcc55Binbcc32 -tWM -c -v- -5 -6
> -OS -O2 -X -D__XHARBOUR__ -D__DEBUG__ -DHB_API_MACROS -DHB_STACK_MACROS
> -IC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerI nclude;P:programacionfr;C:Programacion_DiskProgramacion xailer2Include;C:Programacion_DiskProgramacionxailer2xH arbourInclude;C:Programacion_DiskProgramacionxailer2bcc 55Include
> -oC:Programacion_DiskProgramacionJOSA_EUROSjosa_xailerO bjBlatMail.dbjBlatMail.c >> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland> Blat.c:> Warning W8070 Blat.prg 161: Function should return a value in functionXA_FUNC_STATIC> Warning W8057 Blat.prg 161: Parameter 'XBLAT_INITIALIZE' is never used infunction XA_FUNC_STATIC> Error E2238 Blat.prg 166: Multiple declaration for 'XA_FUNC_STATIC'> Error E2344 Blat.prg 140: Earlier declaration of 'XA_FUNC_STATIC'> Warning W8070 Blat.prg 175: Function should return a value in functionXA_FUNC_STATIC> Warning W8057 Blat.prg 175: Parameter 'XBLAT_UNINITIALIZE' is never usedin function XA_FUNC_STATIC> *** 2 errors in Compile ***> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland> BlatMail.c:> Warning W8057 BlatMail.prg 250: Parameter 'XBLATMAIL_LOADFUNCS' is neverused in function XA_FUNC_STATIC> Error E2238 BlatMail.prg 255: Multiple declaration for 'XA_FUNC_STATIC'> Error E2344 BlatMail.prg 225: Earlier declaration of 'XA_FUNC_STATIC'> Warning W8057 BlatMail.prg 269: Parameter 'XBLATMAIL_SENDMAIL' is neverused in function XA_FUNC_STATIC> *** 2 errors in Compile ***> 2 Files, 6 Warnings, 4 Errors> Tiempo de compilación: 1.36s Tiempo de enlazado: 0.00s Tiempo total:1.36s>>> Y el código es éste (está en un PRG, no en .C aparte)>>> #pragma BEGINDUMP>> #include <windows.h>> #include <xailer.h>> #include <hbapi.h>>> //---------------------------------------------------------- -------------------- >> XA_FUNC_STATIC( XBLAT_INITIALIZE )> {> PHB_ITEM Self = hb_stackSelfItem();> HINSTANCE hBlat;> HINSTANCE hLib = (HINSTANCE) XA_ObjGetNL( Self, "hLib" );> BOOL bSuccess = FALSE;>> if( hLib < (HINSTANCE) 32 )> {> hBlat = LoadLibrary( XA_ObjGetC( Self, "cBlatFolder" ) );>> if( hBlat == NULL )> {> XA_ObjSendNL( Self, "_nLastError", -100 );> XA_ObjSendNL( Self, "OnError", -100 ); // No inicializado> }> else> XA_ObjSendNL( Self, "_hLib", (LONG) hBlat );> }>> hb_retl( bSuccess );> }>> //---------------------------------------------------------- -------------------- >> XA_FUNC_STATIC( XBLAT_UNINITIALIZE )> {> PHB_ITEM Self = hb_stackSelfItem();> HINSTANCE hLib = (HINSTANCE) XA_ObjGetNL( Self, "hLib" );>> if( hLib >= (HINSTANCE) 32 )> {> FreeLibrary( hLib );> XA_ObjSendNL( Self, "_hLib", 0 );> }> }>> #pragma ENDDUMP>>>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Responder

Volver a “Xailer Spanish”