Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

Как мне узнать IP-адрес компьютера в сети, зная его имя?   Найти похожие ветки 

 
Глеб ©   (2004-06-29 05:27) [0]

Как мне узнать IP-адрес компьютера в сети, зная его имя?


 
hyper_omsk   (2004-06-29 06:19) [1]

на закладке indy clients
IdIcmpClient1.Ping();
ListBox1.Items.Add(IdIcmpClient1.ReplyStatus.FromIpAddress);


 
Evgeny V ©   (2004-06-29 07:06) [2]

gethostbyname


 
Said ©   (2004-06-29 08:05) [3]

function GetIPAddress(NetworkName: String): String;
var
Error: DWORD;
HostEntry: PHostEnt;
Data: WSAData;
Address: In_Addr;
begin
Delete(NetworkName, 1, 2);
Error:=WSAStartup(MakeWord(1, 1), Data);//начинаем работу с сокетами
if Error = 0 then
begin
  HostEntry:=gethostbyname(PChar(NetworkName)); //хост по имени
  Error:=GetLastError();
  if Error = 0 then
  begin
    Address:=PInAddr(HostEntry^.h_addr_list^)^;
    Result:=inet_ntoa(Address); //Конвертирует адрес в стандартный формат интернет
  end
  else
   Result:="Unknown";
end
else
  Result:="Error";
WSACleanup();
end;


 
Глеб ©   (2004-07-25 09:32) [4]

что-то ничего из этого не работает



Страницы: 1 вся ветка

Текущий архив: 2004.10.03;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.026 c
1-1094920581
Stas_on
2004-09-11 20:36
2004.10.03
Как сохранять в файл массив из классов(или объекта), а точнее ег


9-1086455781
Igoryok
2004-06-05 21:16
2004.10.03
Я возмущён скатал NVidia SDK 200 метров - не пашет вырубается


1-1095059792
anonymous
2004-09-13 11:16
2004.10.03
Разбиение файла на части


14-1094389442
начинающий
2004-09-05 17:04
2004.10.03
Delphi vs. C++


14-1095128166
КаПиБаРа
2004-09-14 06:16
2004.10.03
Вопрос по железу :)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский