Как отправить, а затем получить пакет от Client-Server в Ada - PullRequest
Новая
       21

Как отправить, а затем получить пакет от Client-Server в Ada

0 голосов
/ 05 июня 2018

Я хочу создать соединение сервер-клиент, где клиент отправляет пакет запроса на сервер, а затем возвращает значение обратно пользователю.Я могу заставить сервер читать входящий пакет от клиента, но когда он пишет обратно клиенту, клиент не получает пакет.

У меня есть размер строки в совпадениях клиента и сервера, чтобы гарантировать, что чтение не ожидает большего количества входящих пакетов.

Сервер 

Buffer : Ada.Streams.Stream_Element_Array (1 .. 10);
Offset : Ada.Streams.Stream_Element_Offset;
...
GNAT.Sockets.Create_Socket (Socket => Receiver);
GNAT.Sockets.Set_Socket_Option
    (Socket => Receiver,
    Option => (Name    => GNAT.Sockets.Reuse_Address, Enabled => True));
GNAT.Sockets.Bind_Socket
    (Socket  => Receiver,
        Address => (Family => GNAT.Sockets.Family_Inet,
        Addr   => GNAT.Sockets.Inet_Addr ("127.0.0.1"),
        Port   => 12321));
GNAT.Sockets.Listen_Socket (Socket => Receiver);
GNAT.Sockets.Accept_Socket
    (Server  => Receiver,
     Socket  => Connection,
     Address => Client);
Channel := GNAT.Sockets.Stream (Connection);
Ada.Streams.Read(Stream => Channel.all,
                  Item => Buffer,
                  Last => Offset);
for J in 1..Offset loop
    Ada.Text_IO.Put_Line(Character'Val(Integer (Buffer (J)))'Img);
end loop;
String'Write(GNAT.Sockets.Stream (Connection), "1234567890");
GNAT.Sockets.Close_Socket (Connection);

Клиент 

input : String(1..10);
output : String(1..10);
...
Initialize;
Create_Socket  (Socket => Client);
Connect_Socket (Socket   => Client,
Server   => (Family => Family_Inet,
    Addr   => Inet_Addr ("127.0.0.1"),
    Port   => 12321));
String'Write (Stream (Client), Input);
String'Read (Stream (Client), output); --hanging right here
Close_Socket (Client);

1 Ответ

0 голосов
/ 05 июня 2018

По какой-то причине клиент получает сообщение сейчас.Код выше работает как задумано

...