client

unit cc_TCPClient;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, IdTCPClient, IdContext;

var
  cc_Client : TIdTCPClientCustom;

type
  cc_ClientEvent = class
    class procedure StartClient();
    class procedure OnConnected(AContext: TIdContext);

  end;


implementation

//Run When Connected
class procedure cc_ClientEvent.OnConnected(AContext: TIdContext);
begin
   //Send Client Hello/Connect
end;


//Start The Client Functions
class procedure cc_ClientEvent.StartClient();
begin

   cc_Client := TIdTCPClient.Create();

   cc_Client.Connect('localhost', 7000);

   //cc_Client.

  // cc_Client.OnConnected := @OnConnected;
//   cc_Client.;

    cc_Client.IOHandler.Write('C');
   if (cc_Client.Connected = true) Then
   begin
      cc_Client.IOHandler.Write('C');

   end
   else
   begin
     write('Error connecting...');
     readln();
   end;



end;



end.