kzsuncor.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 50 行

unit KzSuncoR;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SPComm, ExtCtrls, ComCtrls;

type
  TfrmKzSuncoR = class(TForm)
    Comm1: TComm;
    lblMsg: TLabel;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
  private
    { Private declarations }
    tsData :TStrings;
    tsLast,sMachNo,sDate :string;
    nRecCount :integer;
  public
    { Public declarations }
    sTxtFile :string;
    function ReadData(tsMachNo:string; tnBaudRate:integer):Boolean;
  end;

var
  frmKzSuncoR: TfrmKzSuncoR;

implementation

uses KzSunco;

{$R *.DFM}

function TfrmKzSuncoR.ReadData(tsMachNo:string; tnBaudRate:integer):Boolean;
var tnMach :integer;
	ts1,ts2 :PChar;
begin
  Result :=False;
  sMachNo :=tsMachNo;
  sDate :='';
  nRecCount :=0;

  tnMach :=StrToInt(sMachNo);
  ts1 :=PChar(''+char(tnMach));
  ts2 :=PChar('TR' +char(tnMach +166));

  lblMsg.Caption :='タ