//---------------------------------------------------------------------------

bool __fastcall GetReaderList()

{

unsigned long pcchReaders = 0;

TStringList *readers;

if(ret != SCARD_S_SUCCESS)

String msg = "Failed SCardEstablishContext! " GetErrorCodeDescription(ret);

return false;

ret = SCardListReaders(_ContextHandle, NULL, NULL, &pcchReaders);

// 有錯誤

Application->NormalizeTopMosts();

#ifdef _DELPHI_STRING_UNICODE

Application->MessageBox(msg.w_str(),

Application->MessageBox(

"WARRING", MB_OKCANCEL);

#endif

return false;

// 取得讀卡機資訊的字串長度

if (ret != SCARD_S_SUCCESS)

String msg = GetErrorCodeDescription(ret);

return false;

try

TStringList *readers = new TStringList();

// 取得系統讀卡機資訊的字串

if (ret == SCARD_S_SUCCESS)

LPTSTR readerName = mszReaders;

// 拆解字串

{

readerNumber ;

}

return true;

}

{

free(mszReaders);

}

AnsiString sErrString;

return sErrString;

}

//---------------------------------------------------------------------------

String __fastcall GetErrorCodeDescription(int nErrCode)

{

String sErrString;

if(sErrCode == "80100001")

else if(sErrCode == "0x80100002")

else if(sErrCode == "0x80100003")

sErrString = "Invalid Handle";

sErrString = "Invalid Parameter";

sErrString = "Invalid Target";

else if(sErrCode == "0x80100007")

else if(sErrCode == "0x80100008")

sErrString = "Insufficient Buffer";

else if(sErrCode == "0x8010000A")

else if(sErrCode == "0x8010000B")

else if(sErrCode == "0x8010000C")

else if(sErrCode == "0x8010000D")

sErrString = "Unknown Card";

sErrString = "Can't Dispose";

else if(sErrCode == "0x80100010")

sErrString = "Not Ready";

sErrString = "Invalid Value";

sErrString = "System Cancelled";

sErrString = "Comm Error";

sErrString = "Unknown Error";

sErrString = "Invalid ATR";

sErrString = "Not Transacted";

sErrString = "Reader Unavailable";

sErrString = "Shutdown";

sErrString = "PCI Too Small";

sErrString = "Reader Unsupported";

sErrString = "Duplicate Reader";

sErrString = "Card Unsupported";

sErrString = "No Service";

sErrString = "Service Stopped";

sErrString = "Unsupported Card";

sErrString = "Unresponsive Card";

sErrString = "Unpowered Card";

sErrString = "Reset Card";

sErrString = "Removed Card";

sErrString = "Unknown PC/SC Error Code - No Further Information Is Available.";

return sErrString;

}

juitsung 重新編輯於 2010-07-21 17:04:28， 註解 無‧
juitsung 重新編輯於 2010-07-21 17:04:45， 註解 無‧
juitsung 重新編輯於 2010-07-21 17:06:10， 註解 無‧
juitsung 重新編輯於 2010-07-21 17:08:02， 註解 無‧
juitsung 重新編輯於 2010-07-21 17:15:55， 註解 無‧