Форум о вендинге и платежных терминалах

Код: Выделить всё

TCashCodeBillValidatorCCNET = class(TObject)
    constructor Create();
    destructor Destroy(); override;
  private
    FComFile  : THandle;  // Указатель на com порт
    FProcessMesage:TProcessMessage;
    FPolingBill:TPollingBill;
    FCanPollingLoop:Boolean; // Признак цикла опроса
    FNamberComPort:Byte;
    FComConnected:Boolean;
    FCommand:Array[0..255] of Byte; //Команда
    FLengthCommand:Byte;
    FAnswer:Array[0..255] of Byte;  //Ответ
    FLengthAnswer:Byte;
    FData:Array[0..255] of Byte;    //Данные ответа
    FLengthData:Byte;
    procedure ProcessMessage(CodeMess:integer;Mess:string);
    procedure PolingBill(Nominal:word;var CanLoop:boolean);
    //Выполнение сформированной команды
    procedure ProcessComand();
    // Формирование команды
    procedure SendPacket(Command:Byte;Data:Array of Byte);
    //Разбор команды
    procedure ParseAnswer();
    // Очистка команды
    procedure ClearCommand();
    // Очистка ответа
    procedure ClearAnswer();
    // Очистка данных
    procedure ClearData();
  public
    //Инициализация com порта
    function OpenComPort:Boolean;
    // Закрываем ком порт
    procedure CloseComPort();

    // Основные команды валидатора
    function Reset():Boolean; // Сброс купюро-приемника
    function Identification(var Name,Namber:string):Boolean;   //Номер и название купюроприемника
    function GetStatus(var Nominal,Security:TNominal):Boolean; //Получение списка принимаемых купюр
    function EnableBillTypes(Nominal:TNominal):Boolean;        //Установка прнимаемых купюр
    function SetSecurity(Nominal:TNominal):Boolean;            //Установка повышенного контроля для определенных купюр
    function Stack():Boolean;                                  //Принимаем купюру ESCROW режим
    function Return():Boolean;                                 //Возврат купюры   ESCROW режим
    function SendASC():Boolean;                                //Подтверждаем получение
    function SendNSC():Boolean;                                //Не подтверждааем получение
    function Poll():boolean;                                   //Опрос устройства
    function PollingLoop(Sum:word;TimeLoop:LongWord):Word;

    // Свойство для установки номера ком порта
    property NamberComPort:Byte read FNamberComPort write FNamberComPort;
    // Событие при любых сообщениях
    property OnProcessMessage:TProcessMessage read FProcessMesage write FProcessMesage;
    // Признак установки соединения с ком портом
    property ComConnected:Boolean read FComConnected;
    // Событие возникающее при приеме купюры, через переменную CanLoop можем прервать работу
    property OnPolingBill:TPollingBill read FPolingBill write FPolingBill;
    // Свойство проверяющее/устанавливающее цикл опроса
    property CanPollingLoop:Boolean read FCanPollingLoop write FCanPollingLoop;
  end;

Код: Выделить всё

?unit Unit1;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  ActnList, ToolWin,UCashCode, Spin, SysUtils;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    cash:TCashCodeBillValidatorCCNET;
    procedure MessagessFormCC(CodeMess:integer;mess:string);
    procedure PolingBillCC(Nominal:word;var CanLoop:boolean);
    { Private declarations }
  public
    FSum:Word;
    procedure RefreshSum();
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   cash:=TCashCodeBillValidatorCCNET.Create;
   cash.OnProcessMessage:=MessagessFormCC;
   cash.OnPolingBill:=PolingBillCC;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        cash.NamberComPort:=1;
        if cash.OpenComPort then Memo1.Lines.Add('COM port opened');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Sum:Word;
  Nominal:TNominal;
begin
  FSum:=0;
  RefreshSum();
  cash.Reset;

  // Установим принимаемые купюры
  Nominal.B10   :=   true;
  Nominal.B50   :=   true;
  Nominal.B100  :=   true;
  Nominal.B500  :=   true;
  Nominal.B1000 :=   true;
  Nominal.B5000 :=   true;

  cash.EnableBillTypes(Nominal);

  Sum:=cash.PollingLoop(10,200);
  Memo1.Lines.Add('Всего приняли : '+IntToStr(Sum));

  cash.Reset;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
        Name,Namber:string;
begin
  if cash.Identification(Name,Namber)
  then Memo1.Lines.Add('Номер : '+Namber+', Название : '+Name);
end;

procedure TForm1.MessagessFormCC(CodeMess: integer; mess: string);
begin
  if (CodeMess>100) and (CodeMess<=199)
  then Memo1.Lines.Add('Ошибка : '+inttostr(CodeMess)+' : '+mess)
  else Memo1.Lines.Add(inttostr(CodeMess)+' : '+mess);
  Application.ProcessMessages; // чтоб не залипала форма
end;

procedure TForm1.PolingBillCC(Nominal: word; var CanLoop: boolean);
begin
  FSum:=FSum+Nominal;
  Memo1.Lines.Add('Приняли '+intToStr(Nominal)+' рублей');
  RefreshSum();
  Application.ProcessMessages; // чтоб не залипала форма
end;
procedure TForm1.RefreshSum;
begin
  Memo1.Lines.Add(IntToStr(FSum));
end;

end.

Код: Выделить всё

function TCashCodeBillValidatorCCNET.PollingLoop(Sum: word;TimeLoop: LongWord): Word;
begin
...
      Sleep(100); // тут поменяй на 500
    end;

    if SecondsBetween(Now(),StartTime)> TimeLoop then
    begin
      FCanPollingLoop:=false;
      ProcessMessage(249,'Завершаем работу по таймауту приема купюры');
    end;
  end;
end;

Код: Выделить всё

procedure TFMain.PolingBillCC(Nominal: word; var CanLoop: boolean);
begin
//сдесь определяй условие по которому пора заканчивать клянчить деньги и если оно выполняется то CanLoop:=false;
end;

CashCodeBillValidatorCCNET.OnPolingBill:=PolingBillCC;

Код: Выделить всё

//коды ошибок диаазон от 100 до 199
//100 - ошибка ком порта
//101 - ошибка сброса устройства
//102 - ошибки идентификации
//103 - ошибки получения статуса
//104 - ошибки установки списка принимаемых купюр
//105 - ошибки установки секретности
//106 - ошибки приема купюры
//107 - ошибки возвртата купюры
//108 - ошибки ASC
//109 - ошибки NSC
//110 - Ошибки опроса устройства

//Коды информавционных сообщений диапазон от 200 до 299
//201 - опрос
//202 - NSC
//203 - ASC
//204 - сброс
//205 - возврат
//206 - установка принмаемых купюр
//207 - особый режим приема
//208 - укладка купюры
//209 - идентификация
//210 - статус устройства
//211 - отправка ASC
//212 - отправка NSC
//213 - Включение питания после команд
//214 - Инициализация
//215 - Ожидание приема купюры
//216 - Акцепт
//217 - Недоступен, ожидаю инициализации
//218 - Полная кассета
//219 - Кассета отсутствует
//220 - Замяло купюру
//221 - Замяло касету
//222 - КАРАУЛ !!!! ЖУЛИКИ !!!
//223 - Сбой оборудования
//224 - Stack_motor_falure
//225 - Transport_speed_motor_falure
//226 - Transport-motor_falure
//227 - Aligning_motor_falure
//228 - Initial_cassete_falure
//229 - Optical_canal_falure
//230 - Magnetical_canal_falure
//231 - Capacitance_canal_falure
//232 - Отказ от приема
//233 - Insertion_error
//234 - Dielectric_error
//235 - Previously_inserted_bill_remains_in_head
//236 - Compensation__factor_error
//237 - Bill_transport_error
//238 - Identification_error
//239 - Verification_error
//240 - Optic_sensor_error
//241 - Return_by_inhibit_error
//242 - Capacistance_error
//243 - Operation_error
//244 - Length_error
//245 - Депонет
//246 - Укладка
//247 - Набрали нужную сумму
//248 - Возврат купюры
//249 - Завершаем работу по таймауту приема купюры