如何使用Pascal编写TCP服务器和客户端

本示例代码演示如何使用Pascal编写一个TCP服务器和客户端，客户端可以向服务器端发送消息，并收到相应的回复。实现方式是使用Sockets单元来创建TCP连接，通过socket套接字发送和接收消息。

{服务器端代码}
program TCPServer;
uses
  sockets;

var
  sock: TSocket;
  serverAddr: TInetSockAddr;
  addrLen: Integer;
  buff: array [0..511] of char;
  count: Integer;
  s: string;

begin
  sock := fpSocket(AF_INET, SOCK_STREAM, 0);
  serverAddr.sin_family := AF_INET;
  serverAddr.sin_port := htons(12345);
  serverAddr.sin_addr.s_addr := INADDR_ANY;

  fpBind(sock, @serverAddr, SizeOf(serverAddr));
  fpListen(sock, 5);

  repeat
    addrLen := SizeOf(serverAddr);
    count := fpAccept(sock, @serverAddr, @addrLen);

    WriteLn('客户端已连接');

    repeat
      count := fpRecv(count, @buff, SizeOf(buff), 0);
      s := buff;
      WriteLn('客户端发送的消息：', s);
      fpSend(count, @buff, count, 0);
    until s = 'disconnect';

    fpClose(count);
  until False;

  fpClose(sock);

end.

{客户端代码}
program TCPClient;
uses
  sockets;

var
  sock: TSocket;
  serverAddr: TInetSockAddr;
  addrLen: Integer;
  buff: array [0..511] of char;
  count: Integer;
  s: string;

begin
  sock := fpSocket(AF_INET, SOCK_STREAM, 0);
  serverAddr.sin_family := AF_INET;
  serverAddr.sin_port := htons(12345);
  serverAddr.sin_addr.s_addr := INADDR_ANY;
  fpConnect(sock, @serverAddr, SizeOf(serverAddr));

  repeat
    Write('请输入消息：');
    ReadLn(s);
    fpSend(sock, PChar(s), length(s), 0);
    count := fpRecv(sock, @buff, SizeOf(buff), 0);
    s := buff;
    WriteLn('服务器端回复：', s);
  until s = 'disconnect';

  fpClose(sock);

end.

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