Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как получить IP адреса своего компьютера

1.0K
14 марта 2002 года
andrei
2 / / 20.04.2000
Как на Builder-e получить локальные IP адреса и их маски подсети не только 1-й сетевой корты но и всех остальных????????
1.2K
14 марта 2002 года
LDan
12 / / 20.05.2000
Если своего, то
void MachineIP(char *result)
{
WSADATA WSAData;

WSAStartup(MAKEWORD(1,1), &WSAData);

char dot[6];
int iResult;
int i = 0;
u_long *ppIpNO;
u_long *pIpNO;
HOSTENT FAR *lphostent;
u_long ipHO;
unsigned char binIp[4];
int iterations = 0;


char szHostName[100];
*result = 0;

iResult = gethostname(szHostName, sizeof(szHostName));
// printf("%d %s",iResult,szHostName);
if ((iResult != 0) || (lstrcmp(szHostName, "")==0))
return;


lphostent = gethostbyname(szHostName);
if (lphostent == NULL)
return;

do
{
iterations++;
ppIpNO = (u_long *)lphostent->h_addr_list;
if (ppIpNO+i == NULL)
return;
pIpNO = ((u_long *)*(ppIpNO+i));
if (pIpNO == NULL)
return;


ipHO = ntohl(*pIpNO);

binIp[0] = (BYTE)((ipHO & 0xff000000) >> 24);
itoa(binIp[0], dot, 10);
strcat(result,dot);
binIp[1] = (BYTE)((ipHO & 0x00ff0000) >> 16);
itoa(binIp[1], dot, 10);
strcat(result, "."); strcat(result, dot);
binIp[2] = (BYTE)((ipHO & 0x0000ff00) >> 8);
itoa(binIp[2], dot, 10);
strcat(result, "."); strcat(result, dot);
binIp[3] = (BYTE)(ipHO & 0x000000ff);
itoa(binIp[3], dot, 10);
strcat(result,"."); strcat(result, dot);
strcat(result,"rn");
i++;
} while ((pIpNO != NULL) &amp;&amp; (iterations < 6));
WSACleanup();
PostQuitMessage(0);
return;
}


[ Это Сообщение было отредактировано LDan в 2002-03-14 0858 ]
442
26 августа 2002 года
HexoGenus
121 / / 20.03.2000
Как получить в буилдере все IP адреса компа???
Вы предложили очень крутой вариант...
Если хватит мозгов потом попробую разобрать :-))))
А пока более простой вариант просмотреть в реестре веточку
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\
Там есть все что надо и даже больше :-))))))
С уважением и почитанием к вашим знаниям (кроме шуток)
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог