getip() returen 0.0.0.0

[Patricio Avalos Aguirre]

Estimados

La funcion GetIp() return 0.0.0.0 cuando la direccion es estatica, hay alguna manera de repararlo

adjunto la funcion

Code: Select all  Expand view

HB_FUNC( GETIP ) // nSocket
{
   SOCKADDR_IN sa;
   int iLen = sizeof( sa );
   BYTE addr[ 20 ];
   #ifdef UNICODE
      LPWSTR pW1, pW2;
   #endif  

   memset( ( char * ) &sa, 0, sizeof( sa ) );
   getsockname( hb_parni( 1 ), ( SOCKADDR * ) &sa, &iLen );
   strcpy( ( char * ) addr, "error" );

   #ifndef UNICODE
      wsprintf( ( char * ) addr, "%i.%i.%i.%i",
                ( BYTE ) sa.sin_addr.s_net, ( BYTE ) sa.sin_addr.s_host,
                ( BYTE ) sa.sin_addr.s_lh, ( BYTE ) sa.sin_addr.s_impno );
   #else
      pW1 = AnsiToWide( ( char * ) addr );            
      pW2 = AnsiToWide( "%i.%i.%i.%i" );
      wsprintf( pW1, pW2,
                ( BYTE ) sa.sin_addr.s_net, ( BYTE ) sa.sin_addr.s_host,
                ( BYTE ) sa.sin_addr.s_lh, ( BYTE ) sa.sin_addr.s_impno );
      hb_xfree( pW1 );
      hb_xfree( pW2 );
   #endif        

   hb_retc( ( char * ) addr );
}

 

[Patricio Avalos Aguirre]

Estimados

lo he resuelto con la funcion

GetNetCardInfo()

[Antonio Linares]

gracias por compartirlo

[lubin]

Buen dia Patricio
Una consulta, De donde puedo bajar esa funcion GetNetCardInfo(), pues al compilar me sale error

Gracias

Lubin

[karinha]

Buen dia Patricio
Una consulta, De donde puedo bajar esa funcion GetNetCardInfo(), pues al compilar me sale error

Gracias

Lubin

C:\FWH..\SAMPLES\GETMAC.PRG

salu2.

[lubin]

Gracias Patricio

Pero lamentablemente creo que mi version no la incluye, no cuento con esa carpeta en Samples,

Alguna otra alternativa usando harbour

Lubin

[karinha]

viewtopic.php?f=3&t=21651

Salu2