Главная страница
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.47 MB
Время: 0.031 c
14-1095069018
Scalder
2004-09-13 13:50
2004.10.03
Общие вопросы по Delphi


1-1095242374
bon
2004-09-15 13:59
2004.10.03
вставка символа


8-1089442347
Andrew
2004-07-10 10:52
2004.10.03
Как нарисовать на канвасе Bitmap вращающуюся спираль?


1-1095244178
Ms.Dunkul
2004-09-15 14:29
2004.10.03
таскание формы 2


14-1095427943
peypivo
2004-09-17 17:32
2004.10.03
Что лучше 1с или Парус ?