Problem with FiveHCM.lib

[mtajkov]

I tried to compiling testgif.prg but:

Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"D:\FWH\lib" -LIBPATH:"D:\xHB2011\Lib" -LIBPATH:"D:\xHB2011\c_lib" -LIBPATH:"D:\xHB2011\c_lib\win"  "obj32\testgif.obj" "obj32\scintila.obj" "D:\xHB2011\Lib\mem32.lib" "D:\xHB2011\Lib\send32.lib" "FiveHCM.lib" "FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"testgif.exe"<<<



Creating object: testgif.EXP


Creating library: testgif.LIB


xLINK: error: Unresolved external symbol '_GetWindowLongPtr referenced from FiveHCM.lib(FWGIF.obj)'.


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




Type: C >>>Couldn't build: testgif.exe<<<

Type: C >>>TMAKEPROJECT<<<

Type: C >>>TMAKEPROJECT:REFRESH<<<

Type: N >>>      1409<<<

Regards,
Miloš

[Antonio Linares]

viewtopic.php?p=137355#p137355

[mtajkov]

This is the new code:

Code: Select all  Expand view

// Animated GIFs support for FWH
#include "FiveWin.ch"
#pragma BEGINDUMP
#ifndef _WIN64

LONG_PTR WINAPI GetWindowLongPtr( HWND hWnd, int nIndex )
{
   return GetWindowLong( hWnd, nindex );
}

#endif

#pragma ENDDUMP

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Animated GIFs"

   TGif():New( oWnd, "..\gifs\halo.gif", 10, 10 )
   
   ACTIVATE WINDOW oWnd

return nil

but:

Lines 30, Functions/Procedures 1

Generating C source output to 'obj32\testgif.c'...
Generating object output to 'obj32\testgif.obj'...
testgif.prg(9): warning: Missing type specifier.
testgif.prg(9): error: Syntax error; found 'WINAPI' expecting ';'.
testgif.prg(9): warning: Missing type specifier.
testgif.prg(9): error: Syntax error; found 'GetWindowLongPtr' expecting ';'.
testgif.prg(9): warning: Missing type specifier.
testgif.prg(9): error: Syntax error; found 'hWnd' expecting ')'.
testgif.prg(9): error: Syntax error; found ')' expecting ';'.
testgif.prg(9): error: Declared parameter 'nIndex' is missing.
testgif.prg(11): warning: Missing prototype for 'GetWindowLongPtr'.
testgif.prg(11): error: Syntax error; found 'GetWindowLong' expecting '{'.
testgif.prg(11): warning: Missing prototype for 'GetWindowLong'.
testgif.prg(11): error: Undeclared identifier 'hWnd'.
testgif.prg(11): error: Undeclared identifier 'nindex'.
testgif.prg(12): warning: Missing return value.


Type: C >>>Couldn't build: testgif.obj<<<
Type: C >>>TMAKEOBJECT<<<
Type: C >>>TMAKEOBJECT:REFRESH<<<
Type: N >>> 1409<<<

Do you know what the problem is?

Regards,
Miloš

[Antonio Linares]

#include <windows.h> is missing after the #pragma BEGINDUMP

[nnicanor]

In line

return GetWindowLong( hWnd, nindex );

you must replace nindex by nIndex

return GetWindowLong( hWnd, nIndex );


Regards

[mtajkov]

I did everything you said but now I have a new error:

Code: Select all  Expand view

// Animated GIFs support for FWH

#include "FiveWin.ch"

#pragma BEGINDUMP

#include "windows.h"

#ifndef _WIN64

LONG_PTR WINAPI GetWindowLongPtr( HWND hWnd, int nindex )
{
   return GetWindowLong( hWnd, nIndex );
}

#endif

#pragma ENDDUMP


function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Animated GIFs"

   TGif():New( oWnd, "..\gifs\halo.gif", 10, 10 )
   
   ACTIVATE WINDOW oWnd

return nil

Lines 33, Functions/Procedures 1
Generating C source output to 'obj32\testgif.c'...
Generating object output to 'obj32\testgif.obj'...
testgif.prg(13): error: Undeclared identifier 'nIndex'.

Type: C >>>Couldn't build: testgif.obj<<<
Type: C >>>TMAKEOBJECT<<<
Type: C >>>TMAKEOBJECT:REFRESH<<<
Type: N >>> 1409<<<

Regards,
Miloš

[Antonio Linares]

LONG_PTR WINAPI GetWindowLongPtr( HWND hWnd, int nIndex )

[mtajkov]

We went back to the beginning

Creating object: test.EXP
Creating library: test.LIB
xLINK: error: Unresolved external symbol '_GetWindowLongPtr referenced from FiveHCM.lib(FWGIF.obj)'.
xLINK: fatal error: 1 unresolved external(s).

for this code:

Code: Select all  Expand view

// Animated GIFs support for FWH
#include "FiveWin.ch"

#pragma BEGINDUMP

#include <windows.h>

#ifndef _WIN64

LONG_PTR WINAPI GetWindowLongPtr( HWND hWnd, int nIndex )
{
   return GetWindowLong( hWnd, nIndex );
}

#endif


#pragma ENDDUMP


function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Animated GIFs"

   TGif():New( oWnd, "..\gifs\halo.gif", 10, 10 )
   
   ACTIVATE WINDOW oWnd

return nil

Regards,
Miloš

[Antonio Linares]

Please remove the keyword WINAPI from the code

[mtajkov]

New code:

Code: Select all  Expand view

// Animated GIFs support for FWH

#include "FiveWin.ch"

#pragma BEGINDUMP

#include <windows.h>

#ifndef _WIN64

LONG_PTR GetWindowLongPtr( HWND hWnd, int nIndex )
{
   return GetWindowLong( hWnd, nIndex );
}

#endif

#pragma ENDDUMP


function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Animated GIFs"

   TGif():New( oWnd, "..\gifs\halo.gif", 10, 10 )
   
   ACTIVATE WINDOW oWnd

return nil

New error:

Lines 33, Functions/Procedures 1
Generating C source output to 'obj32\testgif.c'...
Generating object output to 'obj32\testgif.obj'...
testgif.prg(12): error: Redeclaration of 'GetWindowLongA' previously declared at D:\FWH\include\winuser.h(4331): found 'long int __cdecl function(struct HWND__ *, int)' expected 'long int __stdcall function(struct HWND__ *, int)'.

Type: C >>>Couldn't build: testgif.obj<<<
Type: C >>>TMAKEOBJECT<<<
Type: C >>>TMAKEOBJECT:REFRESH<<<
Type: N >>> 1409<<<

Regards,
Miloš

[nnicanor]

You must add flowing parameters to link

/FORCE:MULTIPLE /ignore:4006

Regards,

[mtajkov]

Antonio,

Sorry, but I'm not sure where to add parameters to link

/ FORCE: MULTIPLE / ignore: 4006

  because I use xBuildW.exe

Regards,
Miloš

[Antonio Linares]

Instead of the above, please try this:

#include <windows.h>

#ifndef _WIN64

#undef GetWindowLongPtr

LONG_PTR GetWindowLongPtr( HWND hWnd, int nIndex )

[mtajkov]

Now it's okay!
Thank you Antonio.

Regards,
Miloš

[mtajkov]

I want to show an animated gif (loading.gif) when the computer is busy (something like msgmeter). But if after

    TGIF (): New (oWnd, ".. \ gifs \ halo.gif", 10, 10)

I try:

   nErr: = oSql: exec ("SELECT ..................",. t.,, "Temp.dbf")

animation starts only after the execution of queries!?

Regards,
Miloš