Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 10 / tcpclien

(* лМЙЕОФУЛЙК РТПГЕУУ *)
uses sockets,stdio,linux;

const
SIZE=sizeof(tinetsockaddr);
server:tinetsockaddr=(family:AF_INET; port:7000);

var
sockfd:longint;
c,rc:char;

begin
(* рТЕПВТБЪПЧБФШ Й УПИТБОЙФШ IP address УЕТЧЕТБ *)
server.addr := inet_addr ('127.0.0.1');

(* хУФБОПЧЙФШ БВПОЕОФУЛХА ФПЮЛХ УПЛЕФБ *)
sockfd := socket (AF_INET, SOCK_STREAM, 0);
if sockfd = -1 then
begin
perror ('пЫЙВЛБ ЧЩЪПЧБ socket');
halt (1);
end;

(* рПДЛМАЮЙФШ УПЛЕФ Л БДТЕУХ УЕТЧЕТБ *)
if not connect (sockfd, server, SIZE) then
begin
perror ('пЫЙВЛБ ЧЩЪПЧБ connect');
halt (1);
end;

(* пВНЕО ДБООЩНЙ У УЕТЧЕТПН *)
rc := #$a;
while true do
begin
if rc = #$a then
writeln ('чЧЕДЙФЕ УФТПЮОЩК УЙНЧПМ');

c:=char(getchar);
send (sockfd, c, 1, 0);

if recv (sockfd, rc, 1, 0) > 0 then
write (rc)
else
begin
writeln ('уЕТЧЕТ ОЕ ПФЧЕЮБЕФ');
fdclose (sockfd);
halt (1);
end;
end;
end.