Форум: "Сети";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
ВнизШироковещательное сообщение с помощю 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c