Question about Streams and UDP sockets using GNAT.Sockets

["lekktu@gmail.com" <lekktu@gmail.com>]

Hi.

I'm using GNAT GPL 2006 (20060522-34) on Windows XP.

I'm trying to broadcast an UDP packet, with the following test code:

----------------------------------------------------------------------
with GNAT.Sockets; use GNAT.Sockets;
procedure Test is
   Local_Port  : constant Port_Type := 20769;
   Remote_Port : constant Port_Type := 20770;
   Address    : Sock_Addr_Type;
   Socket     : Socket_Type;
   Channel    : Stream_Access;
   Local_Host : String := "127.0.0.1";
begin
   Initialize;
   Create_Socket (Socket, Family_Inet, Socket_Datagram);
   Set_Socket_Option (Socket, Socket_Level, (Broadcast, True));
   Address.Addr := Inet_Addr (Local_Host);
   Address.Port := Local_Port;
   Bind_Socket (Socket, Address);
   Address.Addr := Broadcast_Inet_Addr;
   Address.Port := Remote_Port;
   Channel := Stream (Socket, Address);
   String'Write (Channel, "TEST");         -- sends "T", "E", "S", "T".
   Free (Channel);
   Close_Socket (Socket);
   Finalize;
end Test;
----------------------------------------------------------------------

The trouble I'm having is not about sockets, but the streams vs.
sockets interaction. The above code does not send one UDP packet, but
four, one for each byte of the test message. What I'm doing wrong?

Thanks,

             Juanma