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

[Stilet]

Не захотел alman12 по моим ссылкам пройти
Какая жаль.

[alman12]

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

Не захотел alman12 по моим ссылкам пройти
Какая жаль.

я посмотрел ссылки не получается как в ссылках

[Stilet]

не получается как в ссылках

Потому что ты делаешь не как в ссылках )
Компоненты перепутал и т.д.

[alman12]

делаю как написано показывает толка свой ip

[Stilet]

Покажи как делаешь.

[alman12]

const n=1;
var i:Byte;
begin

        Self.IdIcmpClient1.Host:=edtHost.Text;
        // Memo1.Lines.Add(IntToStr(IdIcmpClient1.ReplyStatus.TimeToLive));

        Memo1.Lines.Add('Transfer with '
 +edtHost.Text+' ['+IdIcmpClient1.ReplyStatus.FromIpAddress+'] with '+IntToStr(IdIcmpClient1.ReplyStatus.BytesReceived)+' byte');
	      	begin
		      	Self.IdIcmpClient1.Host:=edtHost.Text;
			      Self.IdIcmpClient1.Ping;
			      if Self.IdIcmpClient1.ReplyStatus.ReplyStatusType <> rsEcho then
			      	begin
				      	Memo1.Lines.Add('Time Out');
			      	end;
			      if (Self.IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho) and (IdIcmpClient1.ReceiveTimeout>0) then
			      	begin
			      		Memo1.Lines.Add('Reply from '+IdIcmpClient1.ReplyStatus.FromIpAddress
 +': number byte = '+IntToStr(IdIcmpClient1.ReplyStatus.BytesReceived)+' time = '
 + IntToStr(IdIcmpClient1.ReplyStatus.MsRoundTripTime)+' TTL='+IntToStr(IdIcmpClient1.ReplyStatus.TimeToLive));
			      	end;
	      	end;

[Stilet]

Хм... Ну чего же ты не развиваешь дальше код? Лентяй...
смотри:

for i:=1 to 254 do begin
 With IdIcmpClient1,Memo1.Lines do begin
  Host:=edtHost.Text+'.'+IntToStr(i);
  try Ping;
  if ReplyStatus.ReplyStatusType <> rsEcho then Append(Host+' is unreachible') else
   Append(Host+' recieved '+IntToStr(ReplyStatus.BytesReceived)+' bytes');
  except Append(Host+' is unreachible') end 
 end;
end;

В Эдит вводи до последней цифры: 158.52.26 и будет тебе пинг по сети 158.52.26.1 - 158.52.26.254

P.S. Это в качестве идеи. С потолка.

[alman12]

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

Хм... Ну чего же ты не развиваешь дальше код? Лентяй...
смотри:

for i:=1 to 254 do begin
 With IdIcmpClient1,Memo1.Lines do begin
  Host:=edtHost.Text+'.'+IntToStr(i);
  try Ping;
  if ReplyStatus.ReplyStatusType <> rsEcho then Append(Host+' is unreachible') else
   Append(Host+' recieved '+IntToStr(ReplyStatus.BytesReceived)+' bytes');
  except Append(Host+' is unreachible') end 
 end;
end;

В Эдит вводи до последней цифры: 158.52.26 и будет тебе пинг по сети 158.52.26.1 - 158.52.26.254

P.S. Это в качестве идеи. С потолка.

socet error выдает , но спасибо тебе за помощь

[Stilet]

Ну так запусти его не из под Делфи, чтоб Try отрабатывал как полагается.

[alman12]

спасибо брат