ClientSocket y ServerSocket - как найти серверы

[leonw]

Добрый день! может кто подсказать, как найти все сервера в сети??? (ServerSocket). я пытался сделать через фор но так и ничего не получилось.

procedure TForm1.ipconf;
var i,ip1,ip2,ip3,ip4:integer;
ip:string;
begin
ip1:=192;
ip2:=168;
ip3:=0;
for i:=1 to 255 do
begin
ip4:=i;
ip:=inttostr(ip1)+'.'+inttostr(ip2)+'.'+inttostr(ip3)+'.'+inttostr(ip4);
form1.ClientSocket1.Address:=ip;
ClientSocket1.Port:=23;
ClientSocket1.Open;
end;
end;

по идеи когда клиент должен найти сервер то сервер шлет ответ.

ListBox1.Items.Add(Socket.ReceiveText);

Сервер.

procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ip1:=GetLocalIP;
Socket.SendText(ip1);
end;

[BARNEY]

я выхода из цикла не вижу, и где условие если он нашёл...

[leonw]

я незнаю куда ее воткнуть

 if  ClientSocket1.Socket.Connected=true then

[BARNEY]

// что то типо такого..синтаксис там подправишь

procedure TForm1.ipconf;
var i,ip1,ip2,ip3,ip4:integer;
ip:string;
begin
ip1:=192;
ip2:=168;
ip3:=0;
for i:=1 to 255 do
begin
ip4:=i;
ip:=inttostr(ip1)+'.'+inttostr(ip2)+'.'+inttostr(ip3)+'.'+inttostr(ip4);
form1.ClientSocket1.Address:=ip;
ClientSocket1.Port:=23;

try

ClientSocket1.Socket.Connect //может и ClientSocket1.Open 
break;
shommessage('подключились');
except
end;

end;
end;

[leonw]

нет тоже не помогло, а когда break ставлю он после ниго и прирывается все.

[BARNEY]

ну если до break дошел значит приконнектился... отправьте сообщение на сервер в

ClientSocket1.Socket.Connect //может и ClientSocket1.Open 
// сообщение на сервер 
break;

[leonw]

уже пробывал:

var x,i,ip1,ip2,ip3,ip4:integer;
ip:string;
begin
ip1:=192;
ip2:=168;
ip3:=0;
for i:=1 to 255 do
begin
ip4:=i;
ip:=inttostr(ip1)+'.'+inttostr(ip2)+'.'+inttostr(ip3)+'.'+inttostr(ip4);
form1.ClientSocket1.Address:=ip;
ClientSocket1.Port:=4001;
try
ClientSocket1.Open;
ClientSocket1.Socket.Connect(5000); //ìîæåò è ClientSocket1.Open
ClientSocket1.Socket.SendText('111111111');
break;
showmessage('коннект');
except
end;
 end; end;

сервер я разместил 192,168,0,85 и 192,168,0,128
с брейкам доходит до первой строчки и все т.е 192,168,0,1 далше не идет.
если брейк убираю то клиент пытаеться с конектиться но не конектиться.

[BARNEY]

procedure TForm1.Button2Click(Sender: TObject);
var
s:TStringStream;
ip:string;
i:Integer;
begin
   for I := 0 to 255 do
   begin
    IdTCPClient1.Host:='192.168.0.'+IntToStr(i);
    try
     IdTCPClient1.Connect;
    s:=TStringStream.Create; //Инициализация потока s
		s.WriteString(Edit1.Text);  //Запись сообщения в поток s
		s.Position:=0; //Установка позиция на начало потока s
		IdTCPClient1.IOHandler.Write(s, s.Size, true); //Передача сообщения
		s.Free; //Уничтожение потока s
     IdTCPClient1.Disconnect; //Отсоединение
     Break;
    except
    end;
   end;
end;

У меня код работает, проверил... единственно что я до 6 ip ждал около 30-40 сек.. а до 85 сколько будет..может вы не дожидаетесь?

если правильно понимаю ClientSocket1.Socket.Connect(5000); это ждать 5 сек т.е. чтобы пробежаться от 0 до 85 надо 7 минут.

[Gambler]

ну вообще то так не делают..... Что уж не по всему пространству интернет ищем? Просто нужен статичный IP. На него сажается сервер. Ну или можно где то повесить файл, в котором будет IP сервера. А еще совет (если уж делаешь поиск сервера внутри локалки) делай определение IP через UDP. Совсем просто и куда качественнее. Шлешь широковещательный пакет. Кто отозвался - тот и сервер. Можно по TCP подключаться.

[BARNEY]

Я бы ещё повесил что то типо выбора сервера или список доступных... вдруг отзовутся несколько