gistfile1.pas

type TCarrier411 = class(TObject)
  private
    fMCNumber: String;      // MC # from DRD
    fSSUID:    String;      // Session id from c411
  public
    constructor Create(AMC: String);
    property MCNumber: String
      read fMCNumber;
    property SSUID: String
      read fSSUID write fSSUID;
    function Login(AUsername: String; APassword: String; UUIDDate: Tdate): String;
    function GetStatus: Boolean;
    function GetCompany: GetCompanyMap;
    function StartMonitor: Boolean;
    function StopMonitor: Boolean;
end;