| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Широковещательное сообщение с помощю INDY [D5, Win95/98]

romankul ©   (2003-12-16 13:18:00) 

Уважаемые мастера помогите плз. :)
Если у кого то пример Широковещательного сообщение с помощю INDY.
Если есть скиньте пожалуйста.

---

Rouse_   (2003-12-16 14:45:00) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPClient1.Port:=7000;
IdUDPClient1.BroadcastEnabled:=True;
IdUDPClient1.Active:=True;

IdUDPServer1.BroadcastEnabled:=True;
IdUDPServer1.DefaultPort:=7000;
IdUDPServer1.Active:=True;
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
Var
d : TStringStream;
data : String;
begin
d := TStringStream.Create("");
d.CopyFrom(AData, AData.Size);
data:= D.DataString;
d.Free;
Memo1.Lines.Add(Data);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send(EDit1.Text);
end;

Желаю успехов

---

romankul   (2003-12-16 14:10:00) [2]

Сколько ставить IdUDPClient1.ReceiveTimeout

---

romankul   (2003-12-16 14:05:00) [3]

В чем ошибка помогите

procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPClient1.Host:="192.168.100.255";
IdUDPClient1.Port:=7000;
IdUDPClient1.BroadcastEnabled:=True;
IdUDPClient1.Active:=True;

IdUDPServer1.BroadcastEnabled:=True;
IdUDPServer1.DefaultPort:=7000;
IdUDPServer1.Active:=True;
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
Var
d : TStringStream;
data : String;
begin
d := TStringStream.Create("");
d.CopyFrom(AData, AData.Size);
data:= D.DataString;
d.Free;
Memo1.Lines.Add(Data);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Broadcast(EDit1.Text,2048);
end;

---

Rouse_   (2003-12-16 13:55:00) [4]

IdUDPClient1.Broadcast()

Желаю успехов

---

Наверх