ser

unit cc_TCPServer;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, IdCustomTCPServer, IdContext;

var
  cc_ServerEngine: TIdCustomTCPServer;


type
  CC_ServerEvent = class
    class procedure StartServer(iPort: integer);
    class procedure CC_OnServerConnect(AContext: TIdContext);


  end;

threadvar
  cContext: TIdContext;

implementation

//Runs The Code When A Client Connects To Server
class procedure CC_ServerEvent.CC_OnServerConnect(AContext: TIdContext);
var
  ReadChar : char;
begin

   ReadChar := AContext.Connection.IOHandler.ReadChar();



   if (ReadChar = 'C') Then
   Begin
     AContext.Connection.IOHandler.Write('Got C!');
   end;

   AContext.Connection.IOHandler.Write('connect');
   AContext.Connection.IOHandler.ReadChar();
end;


//Starts The TCP Server
class procedure CC_ServerEvent.StartServer(iPort: integer);
begin
   cc_ServerEngine := TIdCustomTCPServer.Create();
   //Set Default Port
   cc_ServerEngine.DefaultPort := iPort;
   //CallBack Function/Procedure To Routine On Connect
   cc_ServerEngine.OnConnect:= @CC_OnServerConnect;
   cc_ServerEngine.Active:= True;
end;


end.