kztestr.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit KzTestR;

interface

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

type
  TfrmKzTestR = class(TForm)
    lblMsg: TLabel;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
  private
    { Private declarations }
    tsData :TStrings;
  public
    { Public declarations }
    sTxtFile :string;
    nCommPort :integer;
    function ReadData(tsMachNo:string; tnBaudRate:integer):Boolean;
  end;

var
  frmKzTestR: TfrmKzTestR;

implementation

uses KzTest;

{$R *.DFM}

function TfrmKzTestR.ReadData(tsMachNo:string; tnBaudRate:integer):Boolean;
var tnMach,tnCount :integer;
	ts :Array[0..1000] of char;
begin
  Result :=False;
  tnMach :=StrToInt(tsMachNo);
  lblMsg.Caption :='タ