delphi 在控制台应用程序中使用indy

program IndyConsoleApp;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer,

  IdTCPServer, IdGlobal;

var

  IdTCPServer1: TIdTCPServer;

procedure ShowStartServerdMessage;

begin

  WriteLn('START SERVER  @' + TimeToStr(now));

end;

procedure StopStartServerdMessage;

begin

  WriteLn('STOP SERVER  @' + TimeToStr(now));

end;

type

  TCPServerEvents = class

    class procedure OnExecute(AContext: TIdContext);

  end;

class procedure TCPServerEvents.OnExecute(AContext: TIdContext);

var

  LLine: String;

begin

  LLine := AContext.Connection.IOHandler.ReadLn();

  writeln(LLine);

  AContext.Connection.IOHandler.WriteLn('OK');

end;

begin

  try

    IdTCPServer1 := TIdTCPServer.Create;

    try

      with IdTCPServer1.Bindings.Add do

      begin

        IP   := '127.0.0.1';

        Port := 6000;

      end;

      IdTCPServer1.OnExecute := TCPServerEvents.OnExecute;

      IdTCPServer1.Active := True;

      try

        ShowStartServerdMessage;

        Readln;

      finally

        IdTCPServer1.Active := False;

        StopStartServerdMessage;

      end;

    finally

      IdTCPServer1.Free;

    end;

  except

    on E: Exception do

      WriteLn(E.ClassName, ': ', E.Message);

  end;

end.