Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Широковещательное сообщение с помощю INDY   Найти похожие ветки 

 
romankul   (2003-12-16 13:18) [0]

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


 
Rouse_ ©   (2003-12-16 13:55) [1]

IdUDPClient1.Broadcast()

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


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

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

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;


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

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


 
Rouse_ ©   (2003-12-16 14:45) [4]

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;


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



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-80094
Android
2004-02-03 07:49
2004.02.25
Vendorid and Deviceid


3-79556
Zilog
2004-01-29 13:59
2004.02.25
Query. Просмотр результатов...


1-79829
Сергей Петров
2004-02-10 09:08
2004.02.25
Программа, написанная на Delphi 7 и использующая midas.dll при за


1-79733
Крутыш
2004-01-23 13:44
2004.02.25
Изменение размеров формы при активации.


1-79858
_Студент_
2004-02-10 16:37
2004.02.25
Packed record - работа с файлами.