получить всех ip адреса по локальной сети

[alman12]

как можна получить всех адреса по локальной сети ? спасибо заранее

[FaTaL]

Пингануть.

[northener]

А если нужно узнать все возможные адреса в локальной сети, то это по маске.
Хотя об чём сей вопрос я не понимаю.
Алман двенадцатый в своём мире живёт до сих пор.

[alman12]

IdIcmpClient1.Host:= '127.0.0.1';
try
IdIcmpClient1.Ping();
except
showmessage('Not found');
end;

как ?

[FaTaL]

alman12, ну и делай это в цикле. В чём проблема то?

[alman12]

как в цикле ?

[Stilet]

Так: http://www.programmersforum.ru/showthread.php?t=256539
http://www.programmersforum.ru/showthread.php?p=839732

[FaTaL]

alman12, изучи сначала основы Delphi, а потом уже лезь программировать, раз не знаешь что такое цикл.

[alman12]

Сообщение от FaTaL

alman12, изучи сначала основы Delphi, а потом уже лезь программировать, раз не знаешь что такое цикл.

ты не знаешь что такое цикл

IdTCPClient1.connectTimeout := 3000;  
  for i := n to m do
    begin
      if IdTCPClient1.connected then IdTCPClient1.disconnect;
      IdTCPClient1.host := IP + IntToStr(i);   
      IdTCPClient1.port := 20;
      try
        IdTCPClient1.connect;
        if IdTCPClient1.connected then Memo1.lines.add(IdTCPClient1.host);
      except
        ListBox1.items.Add('Failed to connect to '+IP + IntToStr(i)+':20');
      end;

      if IdTCPClient1.connected then IdTCPClient1.disconnect;
      //IdTCPClient.host := IP + IntToStr(i); 
      IdTCPClient1.port := 80;
      try
        IdTCPClient1.connect;
        if IdTCPClient1.connected then Memo1.lines.add(IdTCPClient1.host);
      except
        ListBox1.items.Add('Failed to connect to '+IP + IntToStr(i)+':80');
      end;
    end;

так ?

[northener]

Нет не так.
Коннектиться можно только к программе-серверу. Но не к "просто компьютеру в сети".