最近写一个涉及到打印IC的软件。写一些东西以免以后忘记；

最新推荐文章于 2021-03-16 06:48:08 发布
最新推荐文章于 2021-03-16 06:48:08 发布
阅读量962 收藏 1
点赞数
分类专栏： 编程技术 其它 DELPHI编程
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/aroc_lo/article/details/8798463
版权
DELPHI编程 同时被 3 个专栏收录
375 篇文章 7 订阅
订阅专栏
编程技术
151 篇文章 1 订阅
订阅专栏
其它
33 篇文章 0 订阅
订阅专栏

1、 读写S50 IC卡注意事项

S50 IC卡共分为 16个扇区，每个扇区有4个块；

其中 每个扇区的 1、2、3 是可写的，每块可写16个字符。

第一扇区的1、2、3块为保留（或许）区块。第4块不可动


所以，真正写入数据，是从第2个扇区开始，，每个扇区只写前3块；当然，第4块也不是不可能，但是，为防止写废卡。请跳过他；

完整源代码：

unit RY_ReadWriteICCard;

interface

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

type
  Tfrm_ReadWriteICCard = class(TForm)
    Panel1: TPanel;
    LB_Msg1: TLabel;
    btn_WriteCard: TButton;
    lst_1: TListBox;
    ED_1: TEdit;
    ED_2: TEdit;
    Btn_ReadCard: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_WriteCardClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Btn_ReadCardClick(Sender: TObject);
  private
    { Private declarations }
    icdev: longint;
    snr:longint;
    {nkey,}wdata,sendblock:pchar;
    st,sector,block,loadmode:smallint;
    status:Array[0..18]of Char;
    databuff:Array[0..15]of Char;
    ack:Array[0..255]of Char;

    RY_Info  :TStringList;

    procedure SendMessageToLBMsg(const MSG:string;AAbort:Boolean =true;Cl:TColor = clRed);
    procedure Load_ZZRK_Info;
  public
    { Public declarations }
    RY_BH :string;
  end;

const
  nkey ='ffffffffffff';
  MKBH :string = 'RY0180';
var
  frm_ReadWriteICCard: Tfrm_ReadWriteICCard;

implementation

uses rfexamp, DataModule, global;

{$R *.dfm}

Function Trans(Msg: string): string;
  var
    TempPchar: Pchar;
    i: integer;
    Str: string;
  begin
    TempPchar := Pchar(Msg); //将字符串 Char数组化
    i := 0;
    Str := '';
    while i < length(TempPchar) do begin
      Str :=  TempPchar[i] + TempPchar[i+1]+ Str ;
      i := i + 2;
    end;
    result := Str;
  end;

procedure Tfrm_ReadWriteICCard.Btn_ReadCardClick(Sender: TObject);
var
    i:Integer;
    s,tmp : string;
    L:TStringList;
begin
  DM.PubF_CheckPermissions(MKBH + '20');

      snr:=0;
     sector:=0;
     block:=4;
     loadmode:=0;

//     nkey:='ffffffffffff';

  L:=TStringList.Create;
  try
     st:=rf_card(icdev,1,@snr);
     if st<>0 then
        lst_1.items.add('card snr error')
     else
        lst_1.items.add('card snr Ok:'+Trans(format('%x',[snr])));

     block := 4;
     sector:= 0;
     s := '';
     tmp :='';
     for i := 0 to 62 do begin
       if i mod 4 =0 then begin
         sector:= sector + 1;
         st:=rf_load_key_hex(icdev,loadmode,sector, nkey);
         if st<>0 then
            lst_1.items.add('load key error ')
         else
            lst_1.items.add('load key Ok');

         st:=rf_authentication(icdev,loadmode,sector);
         if st<>0 then
            lst_1.items.add('authentication error')
         else
            lst_1.items.add('authentication Ok');
      end;

      if (block mod 4 =3 ) then begin
         lst_1.items.add('跳过第4块 ');
      end else begin
       st:=rf_read(icdev,block,@databuff);
       if st<>0 then
          lst_1.items.add('read  error')
       else  begin
          lst_1.items.add('read Ok:'+databuff);
          tmp := databuff;
       end;
       s := s + tmp;
       if Trim(tmp)>'' then
       if tmp[Length(tmp)]='*' then Break;
      end;
       block := block + 1;
     end;

     s := Copy(s,1,Length(s)-1);
     ED_2.Text := s ;


     st:=rf_halt(icdev);
     if st<>0 then
        lst_1.items.add('halt error')
     else
        lst_1.items.add('halt Ok');

     st:=rf_reset(icdev,10);
     if st<>0 then
         lst_1.items.add('reset error')
     else
          lst_1.items.add('reset OK');

     lst_1.items.add('-----------------------------------');

     L.Delimiter :='|';
     L.DelimitedText := Decc(s);
     for i  := 0 to L.Count - 1 do
       lst_1.Items.Add(L.Strings[i]);

  finally
      FreeAndNil(L);
  end;

end;

procedure Tfrm_ReadWriteICCard.btn_WriteCardClick(Sender: TObject);

var
    value:longint;
    i:Integer;
    s,tmp : string;
    L:TStringList;
begin
   DM.PubF_CheckPermissions(MKBH + '10');

     snr:=0;
     sector:=0;
     block:=4;
     loadmode:=0;

//     nkey:='ffffffffffff';

  L:=TStringList.Create;
  try
     st:=rf_card(icdev,1,@snr);
     if st<>0 then
        lst_1.items.add('card snr error')
     else
        lst_1.items.add('card snr Ok:'+Trans(format('%x',[snr])));

     s :='';
     for I := 0 to RY_Info.Count - 1 do
       s :=s + RY_Info.Strings[i]+'|';
     s := Encc(s) +'*';

     ED_1.Text := s;
     L.Clear;
     for i := 0 to (Length(s) div 16) do begin
       if (i mod 3=0) and (i <>0) then L.Add('');
       L.Add(Copy(s,I*16+1,16));
     end;

     ShowMessage(L.Text);

    lst_1.items.add('-------------开始写------------------ ') ;

    for i := 0 to L.Count  - 1 do  begin

      if i mod 4 =0 then begin
         sector:= sector + 1;
         st:=rf_load_key_hex(icdev,loadmode,sector, nkey);
         if st<>0 then
            lst_1.items.add('load key error ')
         else
            lst_1.items.add('load key Ok');

         st:=rf_authentication(icdev,loadmode,sector);
         if st<>0 then
            lst_1.items.add('authentication error')
         else
            lst_1.items.add('authentication Ok');
      end; 

      tmp := L.Strings[i];
      if Trim(tmp)<>'' then  begin
         wdata := PChar(tmp);
         st:=rf_write(icdev,block,wdata);
         if st<>0 then
            lst_1.items.add('write  error -- '+wdata )
         else
            lst_1.items.add('write Ok -- '+ wdata +'  次：'+ IntToStr(i+1));
      end ;
//      else
//        lst_1.items.add('跳过第4块 ');

       block := block + 1;
    end;



    st:=rf_halt(icdev);
     if st<>0 then
        lst_1.items.add('halt error')
     else
        lst_1.items.add('halt Ok');

     st:=rf_reset(icdev,60);
     if st<>0 then
         lst_1.items.add('reset error')
     else
          lst_1.items.add('reset OK');

    lst_1.Items.Add('*************************************');

    finally
      FreeAndNil(L);
    end;

end;

procedure Tfrm_ReadWriteICCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  st:=rf_exit(icdev);
end;

procedure Tfrm_ReadWriteICCard.FormCreate(Sender: TObject);
begin
  btn_WriteCard.Enabled :=false;
  Btn_ReadCard.Enabled :=false;
  ED_2.Clear;
  ED_1.Clear;
end;

procedure Tfrm_ReadWriteICCard.FormShow(Sender: TObject);
begin

  Load_ZZRK_Info;
  lst_1.Items := RY_Info;
  icdev:=rf_init(0,115200);              //串口1 波特率115200
  if icdev<=0 then SendMessageToLBMsg('初化始设置失败');
  st:=rf_get_status(icdev,@status);
  if st<>0 then SendMessageToLBMsg('初化始设置失败');
  SendMessageToLBMsg('Hard Ver: '+ status,False,clGreen);


  st:=rf_load_key_hex(icdev,loadmode,sector, nkey);
  if st<>0 then SendMessageToLBMsg('载入KEY错误');
  btn_WriteCard.Enabled :=True;
  Btn_ReadCard.Enabled :=True;
end;

procedure Tfrm_ReadWriteICCard.Load_ZZRK_Info;
begin
  if not Assigned(RY_Info) then
    RY_Info :=TStringList.Create;
  RY_Info.Clear;
  with dm.qry1 do begin
    Close;
    SQL.Text :='select * from RY_ZZRKDJ where BDBH='''+RY_BH+'''';
    Open;
    if not IsEmpty then begin
      RY_Info.Add('RYBH='+fieldbyname('BDBH').AsString);
      RY_Info.Add('XM='+fieldbyname('XM').AsString);
      RY_Info.Add('SFZHM='+fieldbyname('SFZHM').AsString);
      RY_Info.Add('XB='+fieldbyname('XB').AsString);
      RY_Info.Add('MZ='+fieldbyname('MZ').AsString);
      RY_Info.Add('CYM='+fieldbyname('XM').AsString);
      RY_Info.Add('HJDXZ='+fieldbyname('HJDXZ').AsString);
      RY_Info.Add('LBDRQ='+formatdatetime('yyyy-mm-dd',fieldbyname('LBDRQ').AsDateTime));
    end else
    ShowErrorMsg('没有找到相关人员',false);
    Close;
  end;
end;

procedure Tfrm_ReadWriteICCard.SendMessageToLBMsg(const MSG: string;
  AAbort: Boolean;Cl:TColor );
begin
  LB_Msg1.Caption := MSG ;
  LB_Msg1.Font.Color := Cl;
  if AAbort  then Abort;  
end;

end.



2、对图片的缩放

打印IC的界面，可能原始保存的图片太大，需要缩小到指定大小；

（将image1 的图片缩放到 Image2中）

Img_2.Canvas.StretchDraw(Img_2.ClientRect,Img_1.Picture.Graphic);



3、对图片的270度的旋转；

专门的IC卡面打印机，都是纵向打印的，显示将图片旋转

var x,y : Integer;
    TmpBitMap : TBitmap;
begin
  img_3.Picture.Assign(img_2.Picture);
  TmpBitMap := TBitmap.Create;
  try
    TmpBitMap.Assign(Img_3.Picture.Graphic);
    with Img_3 do begin
      Picture.Bitmap.Height := TmpBitMap.Width;
      Picture.Bitmap.Width := TmpBitMap.Height;
      for x:=0 to Width do
        for y:=0 to Height do
          Canvas.Pixels[TmpBitMap.Height-x,y] := TmpBitMap.Canvas.Pixels[y,x];
      Height := TmpBitMap.Width;
      Width := TmpBitMap.Height;
    end;
  finally
    TmpBitMap.Free;
  end;


aroc_lo
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ACR122 CUID-IC读写软件，亲测可用
04-16
ACR122 CUID-IC读写软件，亲测可用
ic卡读写器:非接触式IC卡的读写程序怎么写？
zhouyu5241的专栏
12-05 8741
        关IC卡没有任何关系,主要是读卡器的问题,看你的是串口,还是USB啊,如果是USB的应该就有相应的动态库,如果说是串口就按相关的协议进行串口读写即可.          有windows32位动态库，不知道是干什么用，在哪里用的。发出来大家帮帮看看怎么用。 ic卡读写器参考：[http://www.aub.org.cn/] RF   系列非接触式   IC   卡6 2.2  
C# Winform 多线程监听IC卡读卡器
happy20009的博客
06-21 4210
 本文原创，转载请注明出处！    我们使用IC读卡器时，一般可分为手动读卡和自动监听读卡两种方式。    其中手动读卡根据IC设备厂商提供的Demo修改一下便可实现，相对简单，本文不做过多介绍。    而自动监听读卡，看起来效果要好的多，用户使用起来也要方便一下。其实现的逻辑大家应该都知道，就是通过开一个多线程来轮训IC卡读卡的结果，下面就详细讲一下具体开发过程。（注：本文的读卡器型号为URF-...
M1卡
John的博客
07-24 1547
介绍 所谓的M1芯片，是指飞利浦下属子公司恩智浦出品的芯片缩写，全称为NXP Mifare1系列，常用的有S50及S70两种型号。常见的有卡式和钥匙扣式。 S50: 容量为1K字节EEPROM，分16 个扇区，每个扇区分为4块，以块存取单位，每块16个字节 S70: 容量为4K字节EEPROM，前2K分32个扇区，每个扇区分为4块; 后2块分为8 个扇区，每个扇区分为4块，以块存取单位，每块16个字节 参数 容量为8K位EEPROM(Electrically Erasable Programmable
IC写卡号软件,写印刷卡号卡面编号
04-17
IC写卡号软件，写IC会员卡卡号，写印刷卡号，可以写卡面编号，写扇区自定义卡号 批量写卡，卡号自动+1，操作简单，方便
ICOM IC-3600FI写频软件.rar
01-16
ICOM IC-3600FI写频软件.rar
Vc6.rar_VC Mwic_32.d_ic卡读写软件
09-20
OKE100系列全功能IC卡读写机功能演示软件WINDOWS版
IC卡读写软件V1.9.rar
12-26
龙杰Acr122U读写器读写软件，支持ACR122U读写器，可以在Windows所有系统运行，可以读写卡、修改卡内数据、更改卡密码，操作方便简单易用。免费升级，现在最新版V1.9版
RF系列非接触IC卡读写设备使用指南.pdf
07-22
RF系列非接触IC卡读写设备说明书，RF系列非接触IC卡读写器是一种标准型非接触式射频IC卡读写设备，其性能稳定，使用方便。它通过RS232/485/USB接口实现与PC机的连接。可读写符合MIFARE 及MIFARE PRO标准的射频MEMORY卡和CPU卡。
RF-35开发包
01-06
RF-35开发包,支持C++ C# Andorid,Java,Linux Win CE等等环境二次开发
JAVA编程卡的充值消费,RFID——充值消费系统
weixin_35810162的博客
03-16 1161
文章目录前言一、编译环境二、实现充值消费系统1.创建工程2.添加mwf32相关API文档3.常用函数介绍4.搭建界面5.设置变量6.编写程序总结前言射频识别(RFID)是 Radio Frequency Identification 的缩写。其原理为阅读器与标签之间进行非接触式的数据通信，达到识别目标的目的。RFID 的应用非常广泛，典型应用有动物晶片、汽车晶片防盗器、门禁管制、停车场管制、生产线...
明华 mwrf32 相关Api文档
weixin_30781107的博客
05-30 660
[DllImport("mwrf32.dll", EntryPoint = "rf_init", SetLastError = true, CharSet = CharSet.Ansi, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern Int16 r...
用verilog写一个ic设计
最新发布
06-11
好的，下面是一个简单的 Verilog 代码示例，用于设计一个 4-位加法器： ``` module adder(input [3:0] a, b, output [3:0] sum); assign sum = a + b; endmodule ``` 在这个示例中，我们定义了一个模块 `adder`...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值