Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

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

Автор: Гость_Viruser 21.9.2004, 21:33

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

Автор: Cashey 21.9.2004, 21:52

Я в свое время спрашивал, http://forum.vingrad.ru/index.php?showtopic=10218&hl все, что мне смогли ответить

Автор: Rennigth 22.9.2004, 12:49

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

Код



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;

Автор: RoMka 23.9.2004, 13:18

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

Автор: Spiker13 28.4.2006, 21:10

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

Код


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;