Показать сообщение отдельно

  #4  
Старый 12.10.2005, 19:24
KEZ
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..
 
Ответить с цитированием