跳到内容

    • U
    ufr_example_lazarus_fast_card_read
    提交322年ed398 通过 developer33
    选项

    添加了ReaderOpenEx，更新了表单，添加了库子模块，更新了二进制

    父 147年c934d
    显示 与201年增加和30删除
    .gitmodules 0→100644
    (子模块“ufr-lib”)
    路径= ufr-lib
    Url = https://git.d-logic.net/nfc-rfid-reader-sdk/ufr-lib.git
    FastRead_ufr.exe
    此文件类型没有预览
    FastRead_ufr.lpi
    <？xml version="1.0" encoding="UTF-8"?>
    <设置>
    < ProjectOptions >
    <版本值=”9”/>
    <版本值=”11”/>
    < PathDelim值=“\”/>
    一般> <
    < SessionStorage值=“InProjectDir”/>
    … … @@ -17,20 +17,19 @@
    < VersionInfo >
    < UseVersionInfo值=“真正的”/>
    < MajorVersionNr值=“2”/>
    < StringTable公司名称=“D-Logic”FileDescription =“在这里简单”ProductVersion =""/>
    < StringTable公司名称=“D-Logic”FileDescription =“在这里简单”/>
    < / VersionInfo >
    < BuildModes数=“1”>
    < Item1Name =“默认”默认=“真正的”/>
    < / BuildModes >
    < PublishOptions >
    <版本值=“2”/>
    < IncludeFileFilter值=“*。(不是|页|公司lem | | lpr | lrs | lpi | lpk |上海| xml)”/>
    < ExcludeFileFilter值=“*。(bak | ppu | |阿);* ~;备份”/>
    < / PublishOptions >
    < RunParams >
    当地> <
    < FormatVersion值=“1”/>
    当地> < /
    < FormatVersion值=“2”/>
    <模式数=“1”>
    < Mode0Name =“默认”/>
    > < /模式
    < / RunParams >
    < RequiredPackages数=“2”>
    < Item1 >
    … …
    FastRead_ufr.res
    此文件类型没有预览
    main.lfm
    对象MainForm: TMainForm
    左= 478
    身高=538
    顶级=118
    左= 479
    身高=654
    顶级=68
    宽度= 681
    BorderIcons = [biSystemMenu, bimminimize]
    BorderStyle = bsSingle
    标题= '快速卡读取- uFR系列-线性原始读取示例'
    ClientHeight =538
    ClientHeight =654
    ClientWidth = 681
    字体。CharSet = ANSI_CHARSET
    字体。身高= -13
    … … @@ -17,12 +17,12 @@对象MainForm: TMainForm
    OnActivate = FormActivate
    OnClose = FormClose
    OnCreate = FormCreate
    LCLVersion = '1.6.0.4＇
    LCLVersion = '2.0.2.0＇
    对象Memo1: TMemo
    离开了=10
    离开了=8
    身高= 282
    顶级=134
    宽度= 656
    顶级=256
    宽度= 664
    字体。CharSet = ANSI_CHARSET
    字体。身高= -12
    字体。Name = 'Courier New'
    … … @@ -59,7 +59,7 @@对象MainForm: TMainForm
    左= 8
    身高= 81
    Top = 8
    宽度= 104
    宽度= 112
    标题= "打开阅读器"
    OnClick = btnOpenClick
    TabOrder = 2
    … … @@ -75,10 +75,10 @@ object MainForm: TMainForm
    TabOrder = 3
    结束
    对象mLog: TMemo
    离开了=10
    离开了=8
    身高= 104
    顶级=423
    宽度= 656
    顶级=544
    宽度= 664
    字体。CharSet = ANSI_CHARSET
    字体。颜色= clNavy
    字体。身高= -11
    … … @@ -101,16 +101,16 @@对象MainForm: TMainForm
    对象GroupBox1: TGroupBox
    左= 8
    身高= 41
    顶级=88
    宽度=539
    顶级=20.8
    宽度=661
    ClientHeight = 20
    ClientWidth =535
    ClientWidth =657
    TabOrder = 6
    对象cbTxt: TCheckBox
    左= 375
    身高=23
    身高=19
    顶部= 1
    宽度= 143
    宽度= 139
    标题= '另存为文本文件'
    字体。CharSet = ANSI_CHARSET
    字体。身高= -11
    … … @@ -122,9 +122,9 @@对象MainForm: TMainForm
    结束
    对象cbRaw: TCheckBox
    左= 142
    身高=23
    身高=19
    顶部= 1
    宽度= 185
    宽度= 181
    标题= '另存为原始数据(.mfd)'
    字体。CharSet = ANSI_CHARSET
    字体。身高= -11
    … … @@ -168,4 +168,88 @@对象MainForm: TMainForm
    TabOrder = 0
    TabStop = False
    结束
    object groupAdvanced: TGroupBox
    左= 8
    身高= 65
    Top = 136
    宽度= 664
    标题= "高级选项"
    ClientHeight = 44
    ClientWidth = 660
    Enabled = False
    TabOrder = 7
    object lblReaderType: TLabel
    左= 8
    身高= 16
    Top = 16
    宽度= 96
    标题= '阅读器类型:'
    ParentColor = False
    结束
    object txtReaderType: TEdit
    左= 112
    身高= 24
    Top = 13
    宽度= 24
    align = taCenter
    TabOrder = 0
    结束
    object lblPortName: TLabel
    左= 144
    身高= 16
    Top = 16
    宽度= 80
    标题= '端口名称:'
    ParentColor = False
    结束
    object txtPortName: TEdit
    左= 232
    身高= 24
    Top = 13
    宽度= 128
    align = taCenter
    TabOrder = 1
    结束
    object lblPortInterface: TLabel
    左= 368
    身高= 16
    Top = 16
    宽度= 120
    标题= '端口接口:'
    ParentColor = False
    结束
    object txtPortInterface: TEdit
    左= 496
    身高= 24
    Top = 13
    宽度= 24
    align = taCenter
    TabOrder = 2
    结束
    对象lblArg: TLabel
    左= 528
    身高= 16
    Top = 16
    宽度= 32
    标题= 'Arg:'
    ParentColor = False
    结束
    对象txtArg: TEdit
    左= 568
    身高= 24
    Top = 13
    宽度= 88
    align = taCenter
    TabOrder = 3
    结束
    结束
    对象checkAdvanced: TCheckBox
    左= 14
    身高= 20
    顶部= 104
    宽度= 180
    标题=“使用高级选项”
    OnClick = checkAdvancedClick
    TabOrder = 8
    结束
    结束
    main.pas
    … … @@ -22,8 +22,18 @@使用
    btnRead：TButton；
    cbRaw：TCheckBox；
    cbTxt：TCheckBox；
    checkAdvanced：TCheckBox；
    txtReaderType：TEdit；
    txtPortName：TEdit；
    txtPortInterface：TEdit；
    txtArg：TEdit；
    GroupBox1：TGroupBox；
    groupAdvanced：TGroupBox；
    Label1：TLabel；
    lblReaderType：TLabel；
    lblPortName：TLabel；
    lblPortInterface：TLabel；
    lblArg：TLabel；
    Memo1：TMemo；
    mInfo：TMemo；
    mLog：TMemo；
    … … @@ -31,6 +41,7 @@使用
    过程btnOpenClick（发送方：TObject）；
    过程BtnInfoClick（发送方：TObject）；
    过程btnReadClick（发送方：TObject）；
    过程checkAdvancedClick（发送方：TObject）；
    过程FormActivate（发送方：TObject）；
    过程FormClose（发送方：TObject；varCloseAction：TCloseAction）；
    过程FormCreate（发送方：TObject）；
    … … @@ -141,6 +152,17 @@开始
    btnInfo．SetFocus；
    结束；
    过程TMainForm．checkAdvancedClick（发送方：TObject）；
    开始
    如果checkAdvanced．检查=真正的
    然后开始
    groupAdvanced．启用：=真正的；
    结束
    其他的开始
    groupAdvanced．启用：=假；
    结束；
    结束；
    过程TMainForm．FormActivate（发送方：TObject）；
    开始
    btnOpen．SetFocus；
    … … @@ -264,16 +286,72 @@ end;
    过程TMainForm．开放；
    var
    ConnResult：LongInt；
    reader_type，
    port_name，
    port_interface，
    参数：字符串；
    reader_type_int，
    port_interface_int：Longint；
    开始
    如果不Reader_Conn
    然后
    开始
    ConnResult：=ReaderOpen（）;
    如果checkAdvanced．检查
    然后
    开始
    reader_type：=txtReaderType．文本；
    port_name：=txtPortName．文本；
    port_interface：=txtPortInterface．文本；
    参数：=txtArg．文本；
    试一试
    reader_type_int：=StrToInt（reader_type）；
    除了
    在E：EConvertError做
    开始
    ShowMessage（“参数不正确:阅读器类型”）；
    txtReaderType．SetFocus（）;
    结束；
    结束；
    试一试
    如果port_interface=“U”
    然后
    开始
    port_interface_int：=85；
    结束
    其他的如果port_interface=“T”
    然后
    开始
    port_interface_int：=84；
    结束
    其他的
    开始
    port_interface_int：=StrToInt（port_interface）；
    结束；
    除了
    在E：EConvertError做开始
    ShowMessage（“参数不正确:端口接口”）；
    txtPortInterface．SetFocus（）;
    结束；
    结束；
    ConnResult：=ReaderOpenEx（reader_type_int，PChar（port_name)，port_interface_int，PChar（参数）);
    结束
    其他的
    开始
    ConnResult：=ReaderOpen（）;
    结束；
    如果ConnResult=DL_OK
    然后
    开始
    Reader_Conn：=真正的；
    mLog．行．附加（DevInfo）；
    ReaderUISignal（1，1）；
    结束
    其他的
    开始
    … …
    uFCoder-x86.dll
    此文件类型没有预览
    ufcoder.pas
    … … @@ -7,15 +7,15 @@ const
    {$ IFDEF Windows}
    {$调用stdcall}
    / / setDllDirectory (' . . \ lib \ ');
    libdll=“uFCoder-x86.dll”；
    libdll=“你fr-lib / windows / x86 / uFCoder-x86.dll”；
    {$其他}
    {$ IFDEF Linux}
    {$调用cdecl}
    {$ IFDEF CPU64}
    libdll=“libuFCoder-x86_64.so”；
    libdll=＇ufr-lib / linux / x86_64 /libuFCoder-x86_64.so”；
    {$其他}
    {$ IFDEF CPU32}
    libdll=“libuFCoder-x86.so”；
    libdll=＇ufr-lib / linux / x86 /libuFCoder-x86.so”；
    {$ ENDIF}
    {$ ENDIF}
    {$ ENDIF}
    … … @@ -111,6 +111,8 @@类型
    函数ReaderOpen：DL_STATUSstdcall；
    函数ReaderOpenEx（reader_type：Longint；port_name：pchar；port_interface：Longint；参数：pchar)：DL_STATUS；stdcall；外部libdll；
    函数ReaderReset：DL_STATUSstdcall；
    函数ReaderClose：DL_STATUSstdcall；
    … … @@ -702,6 +704,10 @@函数GetDllVersionStr(): PChar stdcall;外部libdll;
    函数ReaderUISignal（light_signal_mode：字节；beep_signal_mode：字节)：DL_STATUS；stdcall；外部libdll；
    函数GetCardId（varlpucCardType：字节；varlpulCardSerial：LongInt)：DL_STATUS；stdcall；外部libdll；
    //函数ReaderOpenEx(reader_type: Word;port_name: pchar;port_interface:词;参数:pchar):DL_STATUS;
    函数GetCardIdEx（lpuSak：PByte；
    aucUid：PByte；
    lpucUidSize：PByte)：DL_STATUS；stdcall；外部libdll；
    … …
    ufr-lib＠08年ca24f4
    子项目提交08ca24f415ede55777222787a5c3a7f0eb795f55
      减价支持
      0%或
      你要添加0人讨论。小心行事。
      先完成编辑此消息!
      请注册或发表评论
      Baidu
      map