Serversocket и ClientSocket

[myxosran]

помогите найти все айпи на которых запущен ServerSocket.........

код

for zzz:=0 to 255 do
  begin
    ConnectAdress:='192.168.1.'+IntToStr(zzz);
    ClientSocket1.Address:=ConnectAdress;
      Try
        ClientSocket1.Active:=true;
      finally
        if ClientSocket1.Socket.Connected=True then
          ListBox1.Items.Append(ConnectAdress)
        else
          ClientSocket1.Active:=false;
      end;
  end;
  ShowMessage('Ok');

[veniside]

broadcast вам в помощь

[myxosran]

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

broadcast вам в помощь

непонял......

[lux16]

Широковещательные пакеты
http://www.delphisources.ru/pages/fa...p_package.html