Smart Cart的CasEstablishContext函式傳送失敗 |
|
尚未結案
|
|
MVP2000
一般會員   發表：13 回覆：16 積分：5 註冊：2007-04-03 發送簡訊給我 |
使用CasEstablishContext為什麼我都會安裝失敗??
phContext 的說明 Receives a handle to the established resource manager context. This handle can now be supplied to other functions attempting to do work within this context.. [code cpp] //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //------------------------------ LONG eMsg; LONG rMsg; LONG iGrop; LONG result; DWORD ReaderNameLength; //讀取使用者名字長度 SCARDCONTEXT hContext; LPCTSTR szReaderName; LPCTSTR szGroupName; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { //CasAddReaderToGroup把讀取者加入到群組 iGrop = CasAddReaderToGroup(hContext, szReaderName, szGroupName ); //CasEstablishContext安裝文件函式 eMsg = CasEstablishContext(SCARD_SCOPE_SYSTEM, //使用者或系統 0, 0, &hContext); if (eMsg != SCARD_S_SUCCESS) //創建上下文是否成功 { Memo1->Lines->Add("安裝文件失敗"); return ; } Memo1->Lines->Add("安裝文件成功"); // Find out ReaderNameLength //mszReaders值如果等於NULL 則輸出使用者長度 在於ReaderNameLength result = CasListReaders(hContext, NULL, NULL, &ReaderNameLength); //CasReleaseContext釋放文件函式 rMsg = CasReleaseContext(hContext); } //--------------------------------------------------------------------------- [/code]
------
May I ask you something ? 編輯記錄
MVP2000 重新編輯於 2008-05-08 21:52:41， 註解 無‧
|
發表時間：2008-05-08 19:28:54
IP:61.231.xxx.xxx 訂閱
系統時間：2024-04-16 20:27:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |