
12.10.2005, 19:24
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме: 1941233
Репутация:
2726
|
|
Вот ф-ия опеределия своего айпи в интернете
Код:
char *SelfIP( void )
{
char *temp = (char*)malloc( 256 );
struct in_addr in;
DWORD ip = 0;
LPHOSTENT he;
if (!gethostname( temp, 256 ))
{
if (he = gethostbyname( temp ))
ip = ((LPIN_ADDR)he->h_addr)->s_addr;
}
memcpy( &in.s_addr, he->h_addr, he->h_length );
return inet_ntoa( in );
}
теперь переведи это на паскаль и получишь код для Delphi
Последний раз редактировалось KEZ; 12.10.2005 в 19:27..
|
|
|