全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2015
推到 Plurk!
推到 Facebook!

Smart Cart的CasEstablishContext函式傳送失敗

尚未結案
MVP2000
一般會員


發表:13
回覆:16
積分:5
註冊:2007-04-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-05-08 19:28:54 IP:61.231.xxx.xxx 訂閱
使用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, 註解 無‧
系統時間:2017-10-19 8:10:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!