Xailer & OZ Software

Publicado: **Jue Jun 18, 2009 10:09 pm**

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

Publicado: **Lun Jun 22, 2009 12:23 pm**

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>>>

Xailer & OZ Software

Versi

Versi

Versi