วันอาทิตย์ที่ 30 พฤศจิกายน พ.ศ. 2557

Delphi XE7 การเขียนโปรแกรมอ่านบัตรประชาชน ภายใน 3 นาที

Delphi XE7 การเขียนโปรแกรมอ่านบัตรประชาชน ภายใน 3 นาที


https://www.youtube.com/watch?v=6h8SUOWItBY


http://www.infintuary.org/stpcsc.php



คอมโพเนนท์ อ่านข้อมูล จากบัตรประชาชนคนไทย
** เฉพาะบัตรที่เป็นสมาร์การ์ด ไม่สนใจเวอร์ชั่น **
สำหรับ เดลไฟ XE7 Update 1 ( เดลไฟอื่น ไม่ได้ทดสอบ )
พัฒนา โดย วรเพชร  เรืองพรวิสุทธิ์

ความสามารถ
* อ่านข้อมูล ได้ทุกฟิลด์ ในส่วนของข้อมูล ที่เปิดเผย *

http://www.mediafire.com/download/60p3jiy2kwkfay6/Component_%E0%B8%AD%E0%B9%88%E0%B8%B2%E0%B8%99%E0%B8%9A%E0%B8%B1%E0%B8%95%E0%B8%A3%E0%B8%9B%E0%B8%A3%E0%B8%B0%E0%B8%8A%E0%B8%B2%E0%B8%8A%E0%B8%99_10-12-2557_XE7.rar

วิธีใช้งานเบื้องต้น
============
https://www.youtube.com/watch?v=6h8SUOWItBY

1. วางคอมโพเนนท์ลงบนฟอร์ม ทั้ง 2 ตัว
2. สั่งคอมโพเนนท์ .open;
- เมื่อไดร์เวอร์พร้อม และ เครื่องพร้อม คอมโพเนนท์จะจัดการให้เอง

OnStatusChange  เมื่อสถานะเปลี่ยน
OnReadTextFinish  เมื่ออ่านข้อมูล ที่เป็นตัวอักษรเสร็จ
 ** เราสามารถกำหนด ได้ว่า จะอ่านรูปถ่ายหรือไม่
OnReadFinish  เมื่ออ่านข้อมูลตัวอักษร และ รูปภาพ เสร็จเรียบร้อย

Datas คือ Record

TSMCThaiData = record
    Person_CID      ,
    Person_Sex      ,
    Person_TitleTH  ,
    Person_FNameTH  ,
    Person_MiddleTH ,
    Person_LNameTH  ,
    Person_TitleEN  ,
    Person_FNameEN  ,
    Person_MiddleEN ,
    Person_LNameEN  : String;

    Person_Birth : TDateTime;
    Card_SDate : TDateTime;
    Card_EDate : TDateTime;
    Person_Religion  : String;
    Card_Barcode     : String;
    Card_Creator     : String;

    Address_1        : String;
    Address_2        : String;
    Address_3        : String;
    Address_4        : String;
    Address_5        : String;
    Address_6        : String;
    Address_7        : String;
    Address_8        : String;
    Address_9        : String;
    Addr_TambolName  : String;
    Addr_AmpurName   : String;
    Addr_ChangwatName: String;

    TextForDisplay   : TStringList;
    TextRawData      : String;
    Photo            : TImage;
    PhotoFileName    : String;
  end;

Datas.TextForDisplay   จะได้ข้อมูลตัวอักษรทั้งที่พร้อมจะแสดง
Datas.Person_CID จะได้เลขที่บัตรประชาชน
Datas.Photo.picture จะได้รูปภาพ
Datas.PhotoFileName     จะได้ตำแหน่งของไฟล์รูปภาพ

 (ถ้ากำหนดให้เซฟลงไฟล์)

ไม่มีความคิดเห็น:

แสดงความคิดเห็น