Чтение данных с помощью TIdUDPServer
Я хотел бы прочитать данные с электронного устройства, которое отправляет данные на мой компьютер по протоколу UDP. Я запрограммировал сервер UDP в Delphi. Исключение происходит в классе EIdSocketError (Ошибка # 10049). Вот мой код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.Bindings.add.IP := '192.168.1.1'; //Electronic device ip
IdUDPServer1.Bindings.add.Port:= 49152; //Electronic device port
IdUDPServer1.OnUDPRead:= UDPRead;
IdUDPServer1.Active:=True;
end;
procedure TForm1.UDPRead (Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
bytes_received: integer;
begin
bytes_received:=AData.size;
end;
Что я делаю не так
Заранее спасиб