Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c