开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
BarCodeScaner.pas
资源名称：ComPort.rar　[点击查看]
上传用户：hbtlgg88
上传日期：2021-04-09
资源大小：855k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

C++ Builder

BarCodeScaner.pas：源码内容
  1. unit BarCodeScaner;
  2. {$I CPort.inc}
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   CPort;
  10. type
  11.   TBarCodeEvent = procedure (var BarCode: String) of Object;
  13.   TBarCodeScaner = class(TCustomComPort)
  14.   private
  15.     FOnBarCode: TBarCodeEvent;
  16.     FTempStr: String;
  17.     FTermChar: Char;
  18.   protected
  19.     procedure DoAfterOpen; override;
  20.     procedure DoError(Errors: TComErrors); override;
  21.     procedure DoRxChar(Count: Integer); override;
  22.   public
  23.     constructor Create(AOwner: TComponent); override;
  24.   published
  25.     property Connected;
  26.     property BaudRate;
  27.     property Port;
  28.     property Parity;
  29.     property StopBits;
  30.     property DataBits;
  31.     property DiscardNull;
  32.     property EventChar;
  33.     property Events;
  34.     property Buffer;
  35.     property FlowControl;
  36.     property Timeouts;
  37.     property SyncMethod;
  38. {    property OnAfterOpen;
  39.     property OnAfterClose;
  40.     property OnBeforeOpen;
  41.     property OnBeforeClose;
  42.     property OnRxChar;
  43.     property OnRxBuf;
  44.     property OnTxEmpty;
  45.     property OnBreak;
  46.     property OnRing;
  47.     property OnCTSChange;
  48.     property OnDSRChange;
  49.     property OnRLSDChange;
  50.     property OnRxFlag;
  51.     property OnError;
  52.     property OnRx80Full;}
  53.     property TermChar: Char read FTermChar write FTermChar default #0;
  54.     property OnBarCode: TBarCodeEvent read FOnBarCode write FOnBarCode;
  55.   end;
  57. procedure Register;
  59. implementation
  61. uses CPortReg, DsgnIntf;
  63. procedure Register;
  64. begin
  65.   RegisterComponents('CPortLib', [TBarCodeScaner]);
  66.   RegisterComponentEditor(TBarCodeScaner, TComPortEditor);
  67. end;
  69. constructor TBarCodeScaner.Create(AOwner: TComponent);
  70. begin
  71.   inherited Create(AOwner);
  72.   FTermChar := #0;
  73. end;
  75. procedure TBarCodeScaner.DoAfterOpen;
  76. begin
  77.   inherited DoAfterOpen;
  78.   FTempStr := '';
  79. end;
  81. procedure TBarCodeScaner.DoRxChar(Count: Integer);
  82. var
  83.   Str: String;
  84.   CurPos : Integer;
  85. begin
  86.   inherited DoRxChar(Count);
  87.   if not Assigned(FOnBarCode) then Exit;
  88.   ReadStr(Str, Count);
  89.   CurPos := Pos( FTermChar ,Str);
  90.   if CurPos = 0 then begin
  91.     FTempStr := FTempStr + Str;
  92.   end
  93.   else begin
  94.     FTempStr := FTempStr + Copy( Str, 1, CurPos-1);
  95.     FOnBarCode(FTempStr);
  96.     FTempStr := '';
  97.   end;
  98. end;
  100. procedure TBarCodeScaner.DoError(Errors: TComErrors);
  101. begin
  102. //  Application.ProcessMessages;
  103.   if Errors = [] then Exit;
  104.   inherited DoError(Errors);
  105.   if ceFrame in Errors then
  106.      Application.MessageBox('The hardware detected a framing error.', '硒栳赅', MB_ICONERROR+MB_OK);
  107.   if ceOverrun in Errors then
  108.      Application.MessageBox('A charachter buffer overrun has occured.'+#13+'The next charachter is lost.', '硒栳赅', MB_ICONERROR+MB_OK);
  109.   if ceRxParity in Errors  then
  110.      Application.MessageBox('The hardware detected a parity error.', '硒栳赅', MB_ICONERROR+MB_OK);
  111.   if ceBreak in Errors  then
  112.      Application.MessageBox('The hardware detected a break condition.', '硒栳赅', MB_ICONERROR+MB_OK);
  113.   if ceIO in Errors  then
  114.      Application.MessageBox('An I/O error occured during communication with the device.', '硒栳赅', MB_ICONERROR+MB_OK);
  115.   if ceMode in Errors  then
  116.      Application.MessageBox('The requested mode is not supported.', '硒栳赅', MB_ICONERROR+MB_OK);
  117.   if ceRxOver in Errors  then
  118.      Application.MessageBox('An input buffer overflow has occured.', '硒栳赅', MB_ICONERROR+MB_OK);
  119.   if ceTxFull in Errors  then
  120.      Application.MessageBox('The output buffer is full.', '硒栳赅', MB_ICONERROR+MB_OK);
  121. end;
  123. end.