1
C++クライアントからUDPデータグラムを受信する必要があります。クライアントは正しく動作し、このコードをコンパイルするIPにデータグラムを送信します。データグラムのサイズは800Bytesです。データグラムを送信すると、読み取りプロセスがブロックされます。私はこのコードを次の例のように作成しました:https://en.wikibooks.org/wiki/Ada_Programming/Libraries/GNAT.Sockets_examples、これは私のホスト上で完璧に動作します。何か案が?ストリーム読み取りブロックUDP UDP GNAT
procedure RECEIVE_DATA (
DEST_UDP_PORT : In WORD_TYPE;
SRC_UDP_PORT : In WORD_TYPE;
WAIT_TIME : In DURATION;
MESSAGE_ADDRESS : Out System.Address;
WAIT_RESULT : Out Boolean
) is
task Receive is
entry Start;
end Receive;
task body Receive is
Address : Sock_Addr_Type;
Socket : Socket_Type;
Channel : Stream_Access;
Receive_Timeout : constant Duration := WAIT_TIME;
Offset : Ada.Streams.Stream_Element_Count;
Data : Ada.Streams.Stream_Element_Array (1 .. 800);
begin
accept Start;
Initialize;
WAIT_RESULT := False;
Create_Socket (Socket, Family_Inet, Socket_Datagram);
Set_Socket_Option (Socket => Socket,
Option => (Gnat.Sockets.Receive_Timeout, Timeout => Receive_Timeout));
Address.Addr := Inet_Addr(DEST_UDP_IP);
Address.Port := Port_Type(DEST_UDP_PORT);
Bind_Socket (Socket, Address);
Address.Addr := Inet_Addr(SRC_UDP_IP);
Address.Port := Port_Type(SRC_UDP_PORT);
Channel := Stream (Socket, Address);
loop
Ada.Streams.Read (Channel.All, Data, Offset);
exit when Offset = 0;
end loop;
Free (Channel);
Close_Socket (Socket);
WAIT_RESULT := True;
MESSAGE_ADDRESS := Data'Address;
exception when E : others =>
Ada.Text_IO.Put_Line
(Exception_Name (E) & ": " & Exception_Message (E));
WAIT_RESULT := False;
Free (Channel);
Close_Socket (Socket);
end Receive;
begin
Initialize (Process_Blocking_IO => False);
Receive.Start;
Finalize;
end RECEIVE_DATA;
GNAT.Sockets.Receive_Socketはただ読んでプロセスが好きブロックされます。 –
単純なUDPクライアント/サーバの例です: –
はい。バークレーのソケット用語では、 "Stream" = TCPと "Datagram" = UDPです。 –