Как клиенту найти сервер.

← →
SB.John (2002-03-06 09:12) [0]

Прошу прощения, если такой вопрорс уже был (найти не удалось). Есть приложение клиент/сервер. Только вот заранее неизвестен адрес на котором запущен сервак. Как клиенту его найти. Порт известен. Что-то слышал про широковещательные запросы, но чень смутно. Не хотелось бы перебирать все ip-адреса. Сеть большая, сложная и местами жутко тормозная. Спасибо

← →
Slava (2002-03-06 09:20) [1]

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
S: TStringStream;
begin
S := TStringStream.Create("");
S.CopyFrom(AData, AData.Size);
ShowMessage(S.DataString);
S.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Broadcast("Привет",7);
end;

← →
Slava (2002-03-06 09:27) [2]

> IdUDPClient1.Broadcast("Привет",7);

7 - это DefaultPort у IdUDPServer1

и BroadcastEnabled у обоих компонент должно быть True

TIdUDPClient и TIdUDPServer - компоненты из Indy

← →
SB.John (2002-03-06 11:28) [3]

Спасибо. Так сразу не все понятно, н дкмаю разберусь

Как клиенту найти сервер. Найти похожие ветки