unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function SCardEstablishContext(dwScope:LongInt;pvReserved1:Pointer;pvReserved2:Pointer;phContext:Thandle):LongInt;stdcall;external'WinSCard.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ret:LongInt;
hSC:Thandle;
begin
ret := SCardEstablishContext(0,nil,nil,hSC);
if ret <> 0 then
Edit1.Text:='false'
else
Edit1.Text:='true';
end;
end.
報錯資訊
‘Access violation at address 0042F838 in module 'Project1.exe',read of address CD00FFEC ’
再有順便問一下想拿delphi做一個讀M1卡的程式，使用Smart card相關函式能實作嗎？
uj5u.com熱心網友回復：
挺急的，我是小白，還望大神指導uj5u.com熱心網友回復：
Handle沒有值直接用嗎？轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/44318.html
上一篇：如何計算年齡的xx歲xx月xx日