program TCPSample; {$APPTYPE CONSOLE} uses SysUtils, Scktcomp, Windows; Var TCPClient:TClientSocket; S:String; begin {Создание TCP клиента} TCPClient:=TClientSocket.Create(Nil); TCPClient.ClientType:=ctBlocking; TCPClient.Host:='localhost'; TCPClient.Port:=1068; {Установка соединения с сервером Digitals} Try TCPClient.Open; Except Writeln('Connection error'); Sleep(3000); Exit; End; {Получение ответа сервера} S:=TCPClient.Socket.ReceiveText; While S='' do S:=TCPClient.Socket.ReceiveText; Writeln(S); {Посылка команды и получение ответа} TCPClient.Socket.SendText('FileNew'); S:=TCPClient.Socket.ReceiveText; While S='' do S:=TCPClient.Socket.ReceiveText; Writeln(S); Writeln('Press '); Readln; TCPClient.Close; TCPClient.Free; end.