使用Ada编写简单的TCP服务器和客户端

本示例代码展示了如何使用Ada编写一个简单的TCP服务器和客户端，通过网络传输数据。服务器和客户端之间采用基于TCP协议的socket通信，客户端向服务器发送一段文本，服务器则将该文本返回给客户端展示在屏幕上。这个示例演示了一些基本的网络编程知识，涉及到socket连接的建立、发送和接收数据等操作。

with Ada.Sockets; use Ada.Sockets;

procedure Tcp_Client is
   Host : constant String := "127.0.0.1";  -- 服务器的IP地址
   Port : constant Integer := 5000;        -- 服务器监听的端口号

   Client : Socket_Type;  -- 客户端socket
begin
   Create_Socket (Client, AF_Inet, Sock_Stream);

   Connect_Socket (Client, Host, Port);

   Put_Line ("连接到服务器成功!");

   declare
      Buffer : String (1..100);  -- 用于存储读取到的数据
   begin
      Put ("请输入要发送的文本: ");
      Get_Line (Buffer);

      Send (Client, Buffer);

      Recv (Client, Buffer);

      Put_Line ("服务器返回的文本是: " & Buffer);
   end;

   Close_Socket (Client);
end Tcp_Client;

with Ada.Sockets; use Ada.Sockets;

procedure Tcp_Server is
   Port : constant Integer := 5000;

   function Echo (Socket : Socket_Type) return Boolean is
      Buffer : String (1..100);  -- 用于存储读取到的数据
   begin
      Recv (Socket, Buffer);

      Send (Socket, Buffer);

      return True;
   end Echo;

   procedure Handle_Client (Socket : Socket_Type) is
   begin
      loop  -- 一直处理client端发来的请求
         exit when not Echo (Socket);
      end loop;
   end Handle_Client;

   procedure Accept_Client (Server : Socket_Type) is
      Client : Socket_Type;
   begin
      Accept (Server, Client);

      Put_Line ("接受到一个客户端连接!");

      Handle_Client (Client);

      Close_Socket (Client);
   end Accept_Client;

   Server : Socket_Type;
begin
   Create_Socket (Server, AF_Inet, Sock_Stream);  -- 创建服务器socket

   Bind_Socket (Server, Port);  -- 监听指定端口的连接请求

   Loop  -- 一直监听client端连接请求
      Accept_Client (Server);
   End Loop;

   Close_Socket (Server);  -- 关闭socket
end Tcp_Server;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com