unit ami_monitor_thread;
{< Main thread class used to initiate a connection with and listen to AMI
   issued by the Asterisk Manager Interface.}

{$mode objfpc}{$H+}

interface

uses
  Classes,
  sysutils,
  blcksock
  ;

type

  {: Threaded class that monitors AMI for incoming events.}
  TAMIMonitor = class(TThread)
  private
    FSock: TTCPBlockSocket;
  public
    procedure   Execute;  override;
//    constructor Create( CreateSuspended: Boolean; AEventCache: TObject);
  end;

implementation

{ TAMIMonitor }

procedure TAMIMonitor.Execute;
begin

end;

end.