delphi 国腾GTICR100 二代身份证的读取

================================以下是DLL定义文件==============================

unit Comm_GoldTel_Dll;

///国腾GTICR100

interface

uses Controls,sysutils,Quickrpt,QDialogs,Classes;

const NameLen                  = 30;
const SexLen                  = 5;
const NationLen                = 10;
const DateLen                  = 8;
const AddrLen                  = 70;
const IdLen                      = 18;
const DepartmentLen          = 30;
const ReserveLen            = 36;

type
  TPeopleBaseInfo = record
    PeoName:           array [0..NameLen]          of char;
    PeoSex:            array [0..SexLen]           of char;
    PeoFolk:           array [0..NationLen]        of char;
    PeoBirthday:       array [0..DateLen]          of char;
    PeoAddress:        array [0..AddrLen]          of char;
    PeoIDNumber:       array [0..IdLen]            of char;
    PeoDepartment:     array [0..DepartmentLen]    of char;
    PeoStartDate:      array [0..DateLen]          of char;
    PeoEndDate:        array [0..DateLen]          of char;
    PeoReserve:        array [0..ReserveLen]       of char;
    paddaddress1:      array [0..AddrLen]          of char;
    m_szphoto:         array [0..1023]             of char;
  end;