1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

uses
  PCSCConnector;

var
  MyConnector: TPCSCConnector;
begin
  MyConnector := TPCSCConnector.Create;
  try
    MyConnector. ...
  finally
    MyConnector.Free;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PCSCConnector;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.					

1:

  TSim = class(TPCSCConnector)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:

Erstmal uses (...) PCSCConnector;

Dann das Ding benutzen, also erstmal relevante Events mit Pozeduren
versorgen:
  (...)
  TSim = class(TPCSCConnector)   //ich hab' da noch ein paar Sachen
  dazuvererbt, sonst kann man das auch direkt benutzen
  (...)

  Sim := TSim.Create;
  Sim.Debugging          := miWriteTrace.Checked; //für Logausgaben
  Sim.OnCardInserted     := CardInserted; //Karte eingeführt
  Sim.OnCardActive       := CardActive;   //Karte ist aktiv
  Sim.OnCardRemoved      := CardRemoved;  //Karte wurde entfernt
  Sim.OnCardInvalid      := CardInvalid;  //Karte ist ungültig
  Sim.OnReaderWaiting    := CardReaderWaiting; //Leser ist bereit
  Sim.OnReaderListChange := CardReaderListChange; //die Liste der Leser hat sich verändert, braucht man normalerweise nicht
  Sim.OnError            := CardError; //ein Fehler ist aufgetreten
  Sim.OnNodeFound        := CardNodeFound; //das ist Layer3, das wirst Du nicht brauchen
  Sim.OnProgress         := CardProgress; //für längere Lesevorgänge
  Sim.OnLogMessage       := CardLogMessage; //fürs Logging
  Sim.OnCHVNeeded        := CardNeedChv; //wenn die Karte eine PIN braucht

  Dann das hier:
  
  Sim.Init;


  Die Events sind hier:

procedure TfmSimSpy2.CardReaderWaiting(Sender: TObject);
begin
  SetStatusbarRightText('Insert a valid SIM');
end;

procedure TfmSimSpy2.CardInserted(Sender: TObject);
begin
  Sim.Connect;
end;

procedure TfmSimSpy2.CardActive(Sender: TObject);
begin

// Hier gehts jetzt eigentlich los, jetzt kann die Karte verwendet
werden.

end;

procedure TfmSimSpy2.CardInvalid(Sender: TObject);
begin
  SetStatusbarRightText('This card is not supported');
end;

procedure TfmSimSpy2.CardError(Sender: TObject; ErrSource: TErrSource; ErrCode: cardinal);
begin
  Log.Debug('CardError' + ErrSourceToText(ErrSource),'Error','Error Code is ' + Sim.DecodeSCardReturnCode(ErrCode));
end;

procedure TfmSimSpy2.CardRemoved(Sender: TObject);
begin
  Sim.ClearAllFiles;
end;

procedure TfmSimSpy2.CardReaderListChange(Sender: TObject);
var
  i        : integer;
  MenuItem : TMenuitem;
begin
  Sim.Close;
  for i := 0 to mnCardreader.Count-1 do
    mnCardreader.Items[i].Free;
  for i := 0 to Sim.NumReaders-1 do
    begin
    MenuItem           := TMenuitem.Create(mmMenu);
    MenuItem.Caption   := Sim.ReaderList[i];
    MenuItem.OnClick   := CardReaderSelected;
    MenuItem.RadioItem := true;
    if i = 0 then MenuItem.Checked := true
             else MenuItem.Checked := false;
    MenuItem.Tag       := i;
    mnCardreader.Add(MenuItem);
    end;
  Sim.UseReaderNum := 0;  //das hier ist wichtig
  Sim.Open;               //anschliessend das hier
end;

procedure TfmSimSpy2.CardNeedChv(Sender: TObject; NeedChv: TNeededPIN);
var
  ChvValue : string;
begin
  with TfmChvRequest.Create(Self) do
    try
      AskForChv(NeedChv,ChvValue);
    finally
      Free;
    end;
  sbStatusBar.Panels[1].Text := VerifyChv(NeedChv,ChvValue);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  Sim := TSim.Create;
  Sim.Debugging          := miWriteTrace.Checked; //für Logausgaben
  Sim.OnCardInserted     := CardInserted; //Karte eingeführt
  Sim.OnCardActive       := CardActive;   //Karte ist aktiv
  Sim.OnCardRemoved      := CardRemoved;  //Karte wurde entfernt
  Sim.OnCardInvalid      := CardInvalid;  //Karte ist ungültig
  Sim.OnReaderWaiting    := CardReaderWaiting; //Leser ist bereit
  Sim.OnReaderListChange := CardReaderListChange; //die Liste der Leser hat sich verändert, braucht man normalerweise nicht
  Sim.OnError            := CardError; //ein Fehler ist aufgetreten
  Sim.OnNodeFound        := CardNodeFound; //das ist Layer3, das wirst Du nicht brauchen
  Sim.OnProgress         := CardProgress; //für längere Lesevorgänge
  Sim.OnLogMessage       := CardLogMessage; //fürs Logging
  Sim.OnCHVNeeded        := CardNeedChv; //wenn die Karte eine PIN braucht
  Sim.Init;					

1:
2:
3:
4:
5:

procedure TForm1.pcscCardActive(Sender: TObject);
begin
memo1.Lines.Add('OnCardActive');
ShowData;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ShowData;
begin
label3.caption := IntToHex(pcscconnector.ReaderState,8);
label4.caption := pcscconnector.AttrICCType;
label5.caption := pcscconnector.AttrVendorName;
label6.caption := pcscconnector.AttrVendorSerial;
label14.caption := IntToHex(pcscconnector.AttrProtocol,8);
end;					

1:

TPCSCConnector.UseReaderNum := 0;					

1:
2:
3:
4:
5:

procedure TForm1.bt_InitClick(Sender: TObject);
begin
pcsc.Init;
pcsc.UseReaderNum := 0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function TPCSCConnector.Connect: boolean;
begin
  if FConnected then Disconnect;
  if FUseReaderNum > NOREADERSELECTED then
    if ConnectSelectedReader then FConnected := true
                             else FConnected := false;
  Result := FConnected;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:

unit PCSCDemoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PCSCConnector, GsmHelper, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    mmEvents: TMemo;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    procedure CardActive(Sender: TObject);
    procedure CardInvalid(Sender: TObject);
    procedure CardReaderWaiting(Sender: TObject);
    procedure CardError(Sender: TObject; ErrSource: TErrSource; ErrCode: cardinal);
    procedure CardRemoved(Sender: TObject);
    procedure CardReaderListChange(Sender: TObject);
    procedure CardInserted(Sender: TObject);
    procedure CardProgress(Sender: TObject; Accessed: string; RecNo: integer);
    procedure CardLogMessage(Sender: TObject; Location,Status,Data: string);
    procedure CardNeedChv(Sender: TObject; NeedChv: TNeededPIN);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  PCSCLink : TPCSCConnector;

const

  DFmaster      = $3F00;
//  DFmaster      = $FF10;
  EFiccid       = $2FE2;

implementation

{$R *.dfm}


const

HexChars    = '0123456789abcdefABCDEF';

function Hex2Bin(input: string): string;
var
hex, output: string;
loop       : integer;
begin
     for loop := 1 to Length(input) do if Pos(input[loop], hexchars) > 0 then hex := hex + AnsiUpperCase(input[loop]);
     loop := 1;
     if Length(hex) > 0 then
        repeat
        output := output + Chr(StrToInt('$'+Copy(hex,loop,2)));
        loop := loop + 2;
        until loop > Length(hex);
     Result := output;
end;

function Bin2HexExt(const input:string; const spaces, upcase: boolean): string;
var
   loop      : integer;
   hexresult : string;
begin
     hexresult := '';
     for loop := 1 to Length(input) do
        begin
        hexresult := hexresult + IntToHex(Ord(input[loop]),2);
        if spaces then hexresult := hexresult + ' ';
        end;
     if upcase then result := AnsiUpperCase(hexresult)
               else result := AnsiLowerCase(hexresult);
end;


function ErrSourceToText(const From: TErrSource): string;
begin
  case From of
    esInit      : Result := 'Init';
    esConnect   : Result := 'Connect';
    esGetStatus : Result := 'GetStatus';
    esTransmit  : Result := 'Transmit';
    else          Result := 'Unkown';
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PCSCLink.Close;
  PCSCLink.Init;
end;

procedure TForm1.CardReaderWaiting(Sender: TObject);
begin
  mmEvents.Lines.Add('OnReaderWaiting');
end;

procedure TForm1.CardInserted(Sender: TObject);
begin
  mmEvents.Lines.Add('OnCardInserted');
  mmEvents.Lines.Add('  executing Connect : ' + BoolToStr(PCSCLink.Connect,True));
end;

procedure TForm1.CardActive(Sender: TObject);
begin

  mmEvents.Lines.Add('OnCardActive');
end;

procedure TForm1.CardInvalid(Sender: TObject);
begin
  mmEvents.Lines.Add('OnCardInvalid');
end;

procedure TForm1.CardError(Sender: TObject; ErrSource: TErrSource; ErrCode: cardinal);
begin
  mmEvents.Lines.Add('OnCardError');
  mmEvents.Lines.Add('    ' + ErrSourceToText(ErrSource));
  mmEvents.Lines.Add('    ' + PCSCLink.DecodeSCardReturnCode(ErrCode));
end;

procedure TForm1.CardRemoved(Sender: TObject);
begin
  mmEvents.Lines.Add('OnCardRemoved');
end;

procedure TForm1.CardReaderListChange(Sender: TObject);
var
  i        : integer;
begin
  mmEvents.Lines.Add('OnCardReaderListChange');
  PCSCLink.Close;
  for i := 0 to PCSCLink.NumReaders - 1 do
    begin
    mmEvents.Lines.Add('    Reader' + IntToStr(i) + ' : ' + PCSCLink.ReaderList[i]);
    end;
  PCSCLink.UseReaderNum := 0;
  PCSCLink.Open;
end;

procedure TForm1.CardProgress(Sender: TObject; Accessed: string; RecNo: integer);
begin
  mmEvents.Lines.Add('OnCardProgress');
  Application.ProcessMessages;
end;

procedure TForm1.CardLogMessage(Sender: TObject; Location,Status,Data: string);
begin
  mmEvents.Lines.Add('OnCardLogMessage');
  mmEvents.Lines.Add('    ' + Location);
  mmEvents.Lines.Add('    ' + Status);
  mmEvents.Lines.Add('    ' + Data);
end;

procedure TForm1.CardNeedChv(Sender: TObject; NeedChv: TNeededPIN);
var
  ChvValue : string;
begin
  case NeedChv of
    npPIN1 : ChvValue := 'PIN1';
    npPIN2 : ChvValue := 'PIN2';
    npPUK1 : ChvValue := 'PUK1';
    npPUK2 : ChvValue := 'PUK2';
    npUPIN : ChvValue := 'UPIN';
    end;
  mmEvents.Lines.Add('OnCardNeedCHV : ' + ChvValue);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PCSCLink                    := TPCSCConnector.Create;

  PCSCLink.Debugging          := true;
  PCSCLink.OnCardInserted     := CardInserted;
  PCSCLink.OnCardActive       := CardActive;
  PCSCLink.OnCardRemoved      := CardRemoved;
  PCSCLink.OnCardInvalid      := CardInvalid;
  PCSCLink.OnReaderWaiting    := CardReaderWaiting;
  PCSCLink.OnReaderListChange := CardReaderListChange;
  PCSCLink.OnError            := CardError;
  PCSCLink.OnProgress         := CardProgress;
  PCSCLink.OnLogMessage       := CardLogMessage;
  PCSCLink.OnCHVNeeded        := CardNeedChv;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  StatusBytes : string;
  StatusWord  : word;
  Data: string;
begin
  StatusWord := PCSCLink.CardChangeDir(WordToBytes(DFmaster),StatusBytes);
  mmEvents.Lines.Add('Called CardChangeDir to DFmaster');
  mmEvents.Lines.Add('    ' + PCSCLink.DecodeResponseCode(StatusWord));

  StatusWord := PCSCLink.CardReadFile(WordToBytes(EFiccid),StatusBytes,Data);
  mmEvents.Lines.Add('Called CardReadFile EFiccid');
  mmEvents.Lines.Add('    ' + PCSCLink.DecodeResponseCode(StatusWord));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PCSCLink.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

//SendPduToCard

mmevents.Lines.add(Bin2HexExt(pcsclink.SendPDUToCard(Hex2Bin(edit1.text)), true, true));

//> SendPduToCard
//> SendCommandToCard

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  // pcsclink.SendPDUToCard(Hex2Bin(edit1.text));

//  pcsclink.Disconnect;

//  BoolToStr(PCSCLink.Connect,True);

  PCSCLink.Close;
  PCSCLink.Init;
pcsclink.UseReaderNum:=1;
 // pcsclink.Open;
  pcsclink.Connect;

mmevents.Lines.add(Bin2HexExt(pcsclink.SendPDUToCard(Hex2Bin(' 00 A4 04 00 10 6E 6F 6B 69 61 2E 73 63 2E 73 75 70 65 72 64 70')), true, true));

end;

procedure TForm1.Button5Click(Sender: TObject);
 var
  StatusBytes : string;
  StatusWord  : word;
  Data: string;
begin
mmevents.Lines.add(Bin2HexExt(pcsclink.SendPDUToCard(Hex2Bin('90 12 00 00 25006841137B3A439D083EA660C7B3DF9AD70880010C028D0158BF130FFBD0A80F1A5DED159')), true, true));

 // SENDING 24 BYTE FROM PHONE TO CALCULATE PER SX4 TO SMARTCARD
 // 90 12 00 0025006841137B3A439D083EA660C7B3DF9AD70880010C028D0158BF130FFBD0A80F1A5DED159

//  mmEvents.Lines.Add('GET RESPONSE: ' + PCSCLink.DecodeResponseCode(StatusWord));
// mmEvents.Lines.Add('GET RESPONSE: ' + PCSCLink.DecodeSCardReturnCode(StatusWord));


end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

    Reader2 : FT SCR2000 1
OnCardLogMessage
    SendPduToCard
    StartSend
    SELECT FILE    00A40400106E6F6B69612E73632E73757065726470
OnCardLogMessage
    SendPduToCard
    Result
    Normal ending of the command
90 00 
OnCardLogMessage
    SendPduToCard
    StartSend
    UNKNOWN COMMAND9012000025006841137B3A439D083EA660C7B3DF9AD70880010C028D0158BF130FFBD0A80F1A5DED1509
OnCardLogMessage
    SendPduToCard
    Result
    24 bytes of data available via GET RESPONSE
61 18					

1:

mmevents.lines.add(pcsclink.SendCommandToCard('9012000025006841137B3A439D083EA660C7B3DF9AD70880010C028D0158BF130FFBD0A80F1A5DED159', Data, status));