FiveTech Software tech support forums

Posted: **Tue Sep 09, 2008 2:18 pm**

FWPPC 2008-08 Compile Error Help!!!

Fivewin for for Pocket PC - April 2007 Harbour development power
Compiling...
Harbour devel build 1.1-1 Intl.
Copyright 1999-2007, http://www.harbour-project.org/
Compiling 'tudpsocket.prg' and generating preprocessed output to 'tudpsocket.ppo'...
Generating C source output to 'tudpsocket.c'... Done.
tudpsocket.c
Creating library tudpsocket.lib and object tudpsocket.exp
tudpsocket.obj : error LNK2001: unresolved external symbol HB_FUN_FW_GT
tudpsocket.exe : fatal error LNK1120: 1 unresolved externals
* Application successfully built

Code: Select all


#pragma BEGINDUMP

#include "hbapi.h"
#include "hbapiitm.h"
#include "hbdefs.h"
#include "windows.h"

#include <WinSock2.h>

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

HB_FUNC( SENDUDP )
{
   struct sockaddr_in sa ;
   int wLen = hb_parclen( 2 );

   memset( &sa, 0, sizeof( sa ) );  // _bset

   sa.sin_family      = AF_INET;
   sa.sin_addr.s_addr = inet_addr( hb_parc( 3 ) );      // INADDR_BROADCAST ;
   sa.sin_port        = htons( hb_parni( 4 ) );

   hb_retni( sendto( hb_parni( 1 ), hb_parc( 2 ), wLen, 0,
                     ( struct sockaddr * ) &sa, sizeof( sa ) ) );
}

/*-----------------------------------------------------------------------------------*/

HB_FUNC( RECVUDP )
{
   struct sockaddr_in sa;
   LPBYTE buffer = (LPBYTE)hb_xgrab( 8192 );
   int nLen = sizeof( sa );
   int wLen;

   memset( &sa, 0, sizeof( sa ) );     // _bset

   sa.sin_family       = AF_INET;
   // sa.sin_addr.s_addr = inet_addr( hb_parc( 3 ) );
   sa.sin_addr.s_addr  = htonl( INADDR_ANY );

   wLen = recvfrom( hb_parni( 1 ), (char *)buffer, 8192, 0, ( struct sockaddr * ) &sa, &nLen );

   if( wLen < 10000 )
       hb_storclen( (char*)buffer, wLen, 2 );
   else
       hb_storclen( "", 0, 2 );

   hb_storc( inet_ntoa( sa.sin_addr ), 3 );
   hb_storni( htons( sa.sin_port ), 4 );
   hb_retni( wLen );
   hb_xfree( buffer );
}

/*-----------------------------------------------------------------------------------*/

HB_FUNC( REMOTEPORT ) // nSocket
{
   struct sockaddr_in sa;
   int iLen = sizeof( sa );

   memset( &sa, 0, sizeof( sa ) );
   getpeername( hb_parni( 1 ), ( struct sockaddr * ) &sa, &iLen );

   hb_retni( ntohs( sa.sin_port ) );
}

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

HB_FUNC( REMOTEIP )  // nSocket
{
   struct sockaddr_in sa;
   int iLen = sizeof( sa );

   memset( &sa, 0, sizeof( sa ) );
   getpeername( hb_parni( 1 ), ( struct sockaddr * ) &sa, &iLen );

   hb_retc( inet_ntoa( sa.sin_addr ) );
}

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

HB_FUNC( BINDTOADDR )           // nSocket, nPort, cAddr
{
   struct sockaddr_in sa; // sockaddr_in sa;

   memset( &sa, 0, sizeof( sa ) );

   sa.sin_family       = AF_INET;
   sa.sin_port         = htons( hb_parni( 2 ) );
   sa.sin_addr.s_addr  = inet_addr( hb_parc( 3 ) );

   hb_retl( bind( hb_parni( 1 ), ( struct sockaddr * ) &sa, sizeof( sa ) ) == 0 );
}

#pragma ENDDUMP

Posted: **Tue Sep 09, 2008 2:43 pm**

Are you using a modified errsysw.prg ?

Please review source\classes\errsysw.prg, at the bottom.

Posted: **Tue Sep 09, 2008 3:01 pm**

Thank you for answer Antonio.

Do I have to remove bottom source?

REQUEST HB_GT_GUI
procedure HB_GTSYS() ; return
procedure FW_GT ; return

oknbs

Posted: **Tue Sep 09, 2008 3:07 pm**

You have to add those lines to your modified errsysw.prg in case that you are using a modified one.

Posted: **Tue Sep 09, 2008 3:28 pm**

Thank you for answer Antonio.

I downloaded the FWPPC - Fivewin for Pocket PC in August 2008 and I encountered the error.
Maybe I think the file in fivetechsoft.com/software/fwppc/ isn't new version.

oknbs.