VPF::Как узнать IP по имени - Форум программистов

Гость_Viruser

Дата 21.9.2004, 21:33 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

В сети есть несколько машин. У них имена k1, k2,k3 и т.д. Мне надо узнавать IP тих машин в процессе выполнения программы. Как это реализовать?

Cashey

Дата 21.9.2004, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60

Я в свое время спрашивал, тут все, что мне смогли ответить

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Rennigth

Дата 22.9.2004, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 1
Всего: 76

Вроде то что нужно... (даж не помню где взял)

Код



uses
  ShellApi,winsock;
const
  WINSOCK_VERSION = $0101;

....................
function GetIPAddress(name: string): string;
var
  WSAData: TWSAData;
  p: PHostEnt;
begin
  WSAStartup(WINSOCK_VERSION, WSAData);
  p := GetHostByName(PChar(name));
  Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
  WSACleanup;
end;

--------------------

(* Honesta mors turpi vita potior *)

RoMka

Дата 23.9.2004, 13:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.9.2004

Репутация: нет
Всего: нет

Такой вопрос - А как узнать IP машины, которая находится в другой рабочей группе?
Предыдущий пример работает, если твой комп и нужный тебе комп находятся в одной рабочей группе! Как быть???

Spiker13

Дата 28.4.2006, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 26.4.2006

Репутация: нет
Всего: нет

Ну, собственно вот так:

Код


uses ,Winsock;

Код


function HostToIP(Name: string; var Ip: string): Boolean; 
var
  wsdata : TWSAData; 
  hostName : array [0..255] of char; 
  hostEnt : PHostEnt; 
  addr : PChar; 
begin 
  WSAStartup ($0101, wsdata); 
  try 
    gethostname (hostName, sizeof (hostName)); 
    StrPCopy(hostName, Name); 
    hostEnt := gethostbyname (hostName); 
    if Assigned (hostEnt) then 
      if Assigned (hostEnt^.h_addr_list) then begin 
        addr := hostEnt^.h_addr_list^; 
        if Assigned (addr) then begin 
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]), 
          byte (addr [1]), byte (addr [2]), byte (addr [3])]); 
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;

А так, реализуется:

Код


procedure TForm1.Button1Click(Sender: TObject);
var IP: string;
begin
if HostToIp('<Имя компа>', IP) then Label1.Caption := IP;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »