AS
Garik
ты на инди бродкаст отправь и поймай свой, а не чужой
+
Size: a a a
2020 April 13
G
а то вдруг ты не на том порту ловишь, может его через htons надо)
AS
Garik
а то вдруг ты не на том порту ловишь, может его через htons надо)
ну, он же инди юзает, там всё ок
S
Garik
ты на инди бродкаст отправь и поймай свой, а не чужой
Не ловит
G
а че порт другой?
S
Garik
а че порт другой?
у меня броадкаст на этом порту из соседнего идудпсервера идёт
G
и ThreadEvent мб в True поставить?
S
Garik
и ThreadEvent мб в True поставить?
прога не стартует тогда . Висит в процессах и не запускается
G
заюзал бы winsock и не парился)
S
Garik
заюзал бы winsock и не парился)
это как?
S
они умеют в удп?
DB
они у тебя и работают ) только что сверху инди довешена
G
это почти как у тебя сейчас только все ручками прописывается, инициализация, биндинг порта, опрос состояния, прием. более низкий уровень короче.
SB
object IdUDPServer: TIdUDPServer
BufferSize = 32768
Bindings = <>
DefaultPort = 5000
OnUDPRead = IdUDPServerUDPRead
ThreadedEvent = True
Left = 128
Top = 212
end
SB
procedure TMultiLineForm.IdUDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
BytesCount: Integer;
UDPPacket: TUDPPacketRec;
begin
try
BytesCount := AData.Size;
if BytesCount > 0 then
begin
SetLength(UDPPacket.Data, BytesCount);
AData.ReadBuffer(UDPPacket.Data[1], BytesCount);
UDPPacket.PeerIP := ABinding.PeerIP;
UDPPacket.PeerPort := ABinding.PeerPort;
UDPPacket.LocalIP := ABinding.IP;
UDPPacket.LocalPort := ABinding.Port;
//UDPPacket.Channel := '';
FUdpPacketQueueRx.Push(UDPPacket);
end;
except
//Inc(CommStats.RxErrors);
_LogError('IdUDPServerUDPRead(): ' + GetExceptionMessage());
end;
end;
SB
Это старый вариант, есть новый, без Indy. Но там гораздо больше кода.
S
Это старый вариант, есть новый, без Indy. Но там гораздо больше кода.
давай тоже, для общего развития
S
procedure TMultiLineForm.IdUDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
BytesCount: Integer;
UDPPacket: TUDPPacketRec;
begin
try
BytesCount := AData.Size;
if BytesCount > 0 then
begin
SetLength(UDPPacket.Data, BytesCount);
AData.ReadBuffer(UDPPacket.Data[1], BytesCount);
UDPPacket.PeerIP := ABinding.PeerIP;
UDPPacket.PeerPort := ABinding.PeerPort;
UDPPacket.LocalIP := ABinding.IP;
UDPPacket.LocalPort := ABinding.Port;
//UDPPacket.Channel := '';
FUdpPacketQueueRx.Push(UDPPacket);
end;
except
//Inc(CommStats.RxErrors);
_LogError('IdUDPServerUDPRead(): ' + GetExceptionMessage());
end;
end;
это, похоже старое инди. У меня не стрим приходит, а байты.
