Форум - Ответы     (  К темам )
 ?  Aleksey: IP-адрес (27-03-2003 12:35:15)
Подскажите кто-нибудь как достать сетевой адрес компа и сервера сети.
 nike (27-03-2003 13:07:01)
Функция GetHostByName() - получить IP-адрес
 Aleksey (27-03-2003 13:56:24)
Спасибо за подсказку, но в моей документации по WIN32 API эта функция не описана. Если можно, то поподробнее о ней или ссылку на источник с ее описанием.
 Павел (27-03-2003 16:22:51)
//---------------------------------------------------------------------------
// Пример получения сетевого имени компа
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WORD wVersionRequested;
WSADATA wsaData;
int err;

wVersionRequested = MAKEWORD( 2, 0 );

err = WSAStartup( wVersionRequested, &wsaData );
if ( err != 0 ) {
/* Tell the user that we couldn't find a usable */
/* WinSock DLL. */
return;
}

/* Confirm that the WinSock DLL supports 2.0.*/
/* Note that if the DLL supports versions greater */
/* than 2.0 in addition to 2.0, it will still return */
/* 2.0 in wVersion since that is the version we */

/* requested. */

if ( LOBYTE( wsaData.wVersion ) != 2 ||
HIBYTE( wsaData.wVersion ) != 0 ) {
/* Tell the user that we couldn't find a usable */
/* WinSock DLL. */
WSACleanup( );
return;
}

/* The WinSock DLL is acceptable. Proceed. */

char buff[100];
int ret = gethostname(buff,100);
if(ret != 0){
err = WSAGetLastError();
AnsiString serr;
switch(err){
case WSAEFAULT : serr = "WSAEFAULT"; break;
case WSANOTINITIALISED : serr= "WSANOTINITIALISED"; break;
case WSAENETDOWN: serr = "WSAENETDOWN"; break;
case WSAEINPROGRESS: serr = "WSAEINPROGRESS"; break;
}
Label2->Caption = "Error: "+serr;
} else
Label2->Caption = buff;
}
//---------------------------------------------------------------------------
 Aleksey (30-03-2003 12:02:17)
Благодарю за помощь. Дальше, думаю, разберусь сам.


support@cbuilder.ru