Hi to all.
I'm converting a old Clipper and Fw software with the last FWH and Xharbour commercial and I have some linking errors.

xLINK: error: Unresolved external symbol '??2@YAPAXI@Z referenced from Fivehcm.lib(ACTX.obj)'.
xLINK: error: Unresolved external symbol '??3@YAXPAX@Z referenced from Fivehcm.lib(ACTX.obj)'.
xLINK: error: Unresolved external symbol '_OleUIPasteSpecialA referenced from Fivehcm.lib(RICHEDIT.obj)'.
xLINK: error: Unresolved external symbol '_GetFileVersionInfoSizeA referenced from Fivehcm.lib(RICHEDIT.obj)'.
xLINK: error: Unresolved external symbol '_GetFileVersionInfoA referenced from Fivehcm.lib(RICHEDIT.obj)'.
xLINK: error: Unresolved external symbol '_VerQueryValueA referenced from Fivehcm.lib(RICHEDIT.obj)'.
xLINK: fatal error: 6 unresolved external(s).

What lib must I include ?
Thanks a lot.

Massimo.

Massimo,

Please review this topic:

viewtopic.php?p=87279#p87279

The solution is explained there, thanks

Massimo,

> c:\fwh\tsbrowse\c\TSBFUNCS.C(80): warning: Conversion from 'struct HBRUSH__ *' to 'unsigned int' is undefined.

Probably a ( HBRUSH ) hb_parnl( ... ) is missing

> c:\fwh\tsbrowse\c\TSBFUNCS.C(528): warning: Missing prototype for '_reta'.

Change it into hb_reta( ... )

If you post here scroll.c then we can provide you a better help

Hi Antonio.
Thanks a lot for you help.
Here is the scroll.c source

include <WinTen.h> // set proper path if needed

include <Windows.h>

include <ClipApi.h> // set proper path if needed

ifndef FLAT

ifndef HARBOUR

typedef struct
{
DWORD cbSize ;
DWORD fMask ;
long nMin ;
long nMax ;
DWORD nPage ;
long nPos ;
long nTrackPos ;
} SCROLLINFO ;
typedef SCROLLINFO FAR * LPSCROLLINFO ;

#define SIF_RANGE           1
#define SIF_PAGE            2
#define SIF_POS             4
#define SIF_DISABLENOSCROLL 8

#define SIF_TRACKPOS 16

endif

endif

//----------------------------------------------------------------------------//

static BOOL SetScrInfo( HWND hWnd, int nScrollBar, LPSCROLLINFO si, BOOL lRedraw)
{
#ifndef HARBOUR
typedef BOOL ( WINAPI * FN )( HWND, int, LPSCROLLINFO, BOOL ) ;

  FN p = ( FN ) GetProcAddress( GetModuleHandle( "USER" ), "SetScrollInfo" ) ;

  if( p )
     return ( p( ( HWND ) hWnd, nScrollBar, si, lRedraw ) ) ;
  else
     return ( FALSE ) ;

#else
return SetScrollInfo( hWnd, nScrollBar, si, lRedraw ) ;
#endif
}

//----------------------------------------------------------------------------//

ifdef HARBOUR

HB_FUN_SETSCROLLRANGE( PARAMS ) // ( hWnd, nFlags, nMin, nMax, lRepaint, lDisable, l32Bit )

else

CLIPPER SETSCROLLR( PARAMS ) // ANGE()

endif

{
SCROLLINFO si ;

si.cbSize = sizeof( si ) ;
si.fMask = SIF_RANGE ;
si.nMin = _parni( 3 ) ;
si.nMax = _parni( 4 ) ;

if (_parl(6))
si.fMask = SIF_RANGE + SIF_DISABLENOSCROLL ;

if (_parl(7))
_retl( SetScrInfo( ( HWND ) _parnl( 1 ), _parni( 2 ), &si, _parl( 5 ) ) ) ;
else // NT does not support SetScrollInfo() API function
_retni( SetScrollRange( ( HWND ) _parnl( 1 ), // its hWnd
_parni( 2 ), // Scroll Bar flags
_parni( 3 ), // Min
_parni( 4 ), // Max
_parl( 5 ) ) ) ; // ReDraw
}

//----------------------------------------------------------------------------//

ifdef HARBOUR

HB_FUN_SETSCROLLPOS( PARAMS ) // ( hWnd, nFlags, nPos, lRepaint, lDisable, l32Bit )

else

CLIPPER SETSCROLLP( PARAMS ) // OS

endif

{
SCROLLINFO si;

si.cbSize = sizeof( si );
si.fMask = SIF_POS;
si.nPos = _parni( 3 );

if (_parl(5))
si.fMask = SIF_POS + SIF_DISABLENOSCROLL ;

if ( _parl( 6 ) )
_retl( SetScrInfo( ( HWND ) _parnl( 1 ), _parni( 2 ), &si, _parl( 4 ) ) ) ;
else // NT does not support SetScrollInfo() API function
_retl( SetScrollPos( ( HWND ) _parnl( 1 ), // its hWnd
_parni( 2 ), // Scroll Bar flags
_parni( 3 ), // new Position
_parl( 4 ) ) ) ; // repaint
}

//----------------------------------------------------------------------------//

ifdef HARBOUR

HB_FUN_GETSCROLLRANGE( PARAMS ) // ( hWnd, nFlags )

else

CLIPPER GETSCROLLR( PARAMS ) // ANGE

endif

{
int iMin = 0, iMax = 0 ;

#ifdef FLAT
#ifndef HARBOUR
#define _storni( x, y, z ) STORNI( x, params, y, z )
#endif
#endif

GetScrollRange( ( HWND ) _parnl( 1 ), // its hWnd
_parni( 2 ), // Scroll bar flags
&iMin,
&iMax ) ;

_reta( 2 ) ; // { nMin, nMax }

_storni( iMin, -1, 1 ) ;
_storni( iMax, -1, 2 ) ;
}

//----------------------------------------------------------------------------//

ifdef HARBOUR

HB_FUN_GETSCROLLPOS( PARAMS ) // ( hWnd, nFlags )

else

CLIPPER GETSCROLLP( PARAMS ) // OS

endif

{
_retni( GetScrollPos( ( HWND ) _parnl( 1 ), // its hWnd
_parni( 2 ) ) ) ; // Scroll bar flags
}

//----------------------------------------------------------------------------//

ifdef HARBOUR

HB_FUN_SETSCROLLINFO( PARAMS ) // ( hWnd, nFlags, nSize, lRedraw, lShowDisabled )

else

CLIPPER SETSCROLLI( PARAMS ) // NFO()

endif

{
SCROLLINFO si;

si.cbSize = sizeof( si );
si.fMask = SIF_PAGE ;
si.nPage = _parni( 3 );

if ( _parl( 5 ) )
si.fMask += SIF_DISABLENOSCROLL ;

_retl( SetScrInfo( ( HWND ) _parnl( 1 ), _parni( 2 ), &si, _parl( 4 ) ) ) ;
}

//----------------------------------------------------------------------------//

Massimo Linossi wrote:Hi Antonio.
Thanks, now I can compile and link.
But I'm using an old Tsbrowse library

Massimo Linossi wrote:with some changes, and I must recompile it.

Massimo Linossi wrote:There are some errors during compilation. Is there something I can change ?

Manuel,

Many thanks

Hi Manuel.
It's a 4.0 version, a little bit old...
Sorry but all the changes aren't documented, and most of them are in the tsbrowse.prg file.
I can make them again, if you can send me the new library. So I can be another beta tester
for you. I've used you browse for a long time, in clipper version, and now that I'm converting
all the programs to xHarbour and the new FWH, it will be really nice to use you product.
Thanks for you help.

Massimo,

We can fix and compile your modified C file, no problem

Hi Antonio.
I haven't modified C file. I made a lot of changes in prg files.
But are old changes, and my memory is going away...
Is a best solution to make a complete change, and to pass to all
new libraries. For this reason I'm using now the last FWH and the last Xharbour.
I know that is a hard work, but with an hard work now I can have a nice solution
for the future.
Thanks a lot and have a nice evening.

Thanks Antonio, you're great
A big handshake.