[SPYtm]

Проверил, всё также работает.

Боюсь с иходниками напряжёнка

2OverFly: раз проверил, то мог бы и помочь человеку, а не трепаться попусту.


2SirToxa:

Код:

program consoleserver;

{$APPTYPE CONSOLE}

uses
  Windows,SysUtils,CrtSock;

const
  portN=4020;

var
    a: String;
    i,sas: integer;
    Restart: boolean;

    label Cycle;
    label Quit;


procedure Sendex(Buf: String);
begin
  CrtSock.Send(sas,Pointer(Buf),Length(Buf),0);
end;

Function Readex: String;
var
  Buf: array [0..1024] of char;
begin
  FillChar(Buf,1025,0);
  CrtSock.Recv(Sas,Buf,1024,0);
  Result:=Buf;
end;

begin

  Restart:=False;
  i:=CrtSock.StartServer(portN);

  sas:=0;
  while True do
  begin
    Sleep(200);
    SAS:=CrtSock.SockAvail(i);
    if sas<0 then sas:=CrtSock.WaitClient(i);
    if sas>0 then
    begin
      Cycle:

      Sleep(200);
      a:='';
      a:=Readex;

      WriteLn(a);
      if a='quit' then goto quit;

      goto Cycle;
    end;
  end;

  Quit:
  
end.