Поскажите как определить ip адреса компьютеров в сети и их имена?ов в

[SeЯgey]

Поскажите как определить ip адреса всех компьютеров в локальной сети и их имена?

[Квэнди]

Раз вы так акцентируете вопрос, то есть встречный вопрос: что вы понимаете под локальной сетью ?

[SeЯgey]

несколько компьютеров обьединенных в сеть между собой.
Другие подключения( внешние и хамачи меня не интерисуют).

[Квэнди]

Достаточно известный код в вложении.
Только по определениям всед остаточно размыто...

[Stilet]

Так подойдет?

unit Unit1;

interface

uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  EnumHandle: THandle;  Workgroup: string;
  WorkgroupRS: TNetResource;
  Buf: array [1..500] of TNetResource;
  BufSize: cardinal;
  Entries: cardinal;
  Res: Integer;
  Computer:string[255]; { array [1..500] of  string[25];}

  ComputerCount: Integer;

begin
  ComputerCount := 0;
  Workgroup := 'Тут твоя рабочая группа'+ #0;
  FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
  with WorkgroupRS do
  begin
    dwScope := 2;
    dwType := 3;
    dwDisplayType := 1;
    dwUsage := 2;
    lpRemoteName := @Workgroup[1];
  end;

  WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle);

  repeat
    Entries := 1;
    BufSize := SizeOf(Buf);

    Res := WNetEnumResource(EnumHandle, Entries, @Buf, BufSize);
    if (Res = NO_ERROR) and (Entries = 1) then
    begin
      Inc( ComputerCount );
      Computer{[ ComputerCount ]} := StrPas(Buf[1].lpRemoteName);
      ListBox1.Items.Add(Computer{[ ComputerCount ]});
    end;
  until
    (Entries <> 1) or (Res <> NO_ERROR);

  WNetCloseEnum( EnumHandle );
end;

end.

[SeЯgey]

Функция GetIPAddress выдает IP адрес по имени компьютера

Приложение:

помогите переделать , так чтобы если ip компьютера не определился не было ошибки, а вместо ip выводила -"Ip не определен!"

Uses 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;

[SeЯgey]

Никто не поможет?

[Stilet]

if p<>nil then Result := inet_ntoa(PInAddr(p.h_addr_list^)^)
else result:='Ip не определен!';

SeЯgey, нечего кросспостит, горчичник получить можно за настойчивые нарушения.

[SeЯgey]

Больше не буду, спасибо за помощь и предупреждение

[Lost'яра))]

Дико извиняюсь за то, что влезаю в чужую (и давношнюю) тему, однако столкнулся с похожей проблемой [и, дабы не дублировать подобные вопросы, обращаюсь сюда]

Задание: Создать программу на Делфи для определения IP-адреса компьютера в сети. Определить количество компьютеров, подключённых к сети на данный момент времени (Wi-Fi) и графически отобразить структуру сети.

IP определять я научился
С рисунком структуры что-нибудь придумаю, это не страшно

А вот количество компьютеров меня смущает
Сеть (по заданию) - это 1 сервер и от 1 до 30 компьютеров. Вот нужно с одного из них (не с сервера) определить количество подключённых в данный момент к сети компьютеров

Я так понимаю, что возможна такая схема: узнать адрес сервера, обратиться к нему с таким вопросом и вывести ответ на экран
Но: во-первых, я вообще не уверен, что это возможно;а во-вторых, даже если возможно, к своему стыду - абсолютно не представляю, как этого добиться =(

В приведённом выше коде не совсем понял, что делать с рабочей группой О_о

В общем, прошу помощи :-[