unit uWinsCard;

interface

implementation

uses Winapi.Windows;

const
  WinSCardDll = 'WinSCard.dll';

{$MINENUMSIZE 4}

const
 SCARD_SCOPE_SYSTEM   = $0002;
 SCARD_SHARE_SHARED   = $0002;

SCARD_PROTOCOL_T0     = $0001;
SCARD_PROTOCOL_T1     = $0002;
SCARD_PROTOCOL_RAW    = $0004;

type
 SCARDCONTEXT = Integer;
 LPSCARDCONTEXT = ^SCARDCONTEXT;

 SCARDHANDLE  = Integer;
 LPSCARDHANDLE = ^SCARDHANDLE;

 LPCBYTE = Pointer;

type
 TSCARD_IO_REQUEST = packed record
   dwProtocol: DWORD;    // SCARD_PROTOCOL_T0, SCARD_PROTOCOL_T1 or SCARD_PROTOCOL_RAW
   cbPciLength: DWORD;   // Length of this structure
end;

function SCardEstablishContext(dwScope: DWORD;
                               pvReserved1: LPCVOID;
                               pvReserved2: LPCVOID;
                               phContext: LPSCARDCONTEXT): Integer; stdcall; external WinSCardDll;

function SCardConnect(hContext: SCARDCONTEXT;
                      szReader: LPCSTR;
                      dwShareMode: DWORD;
                      dwPreferredProtocols: DWORD;
                      phCard: LPSCARDHANDLE;
                      pdwActiveProtocol: LPDWORD): Integer; stdcall; external WinSCardDll;

function SCardTransmit(hCard: SCARDHANDLE;
                       pioSendPci: Pointer;
                       pbSendBuffer: LPCBYTE;
                       cbSendLength: DWORD;
                       pioRecvPci: Pointer; //LPBYTE
                       pbRecvBuffer: LPBYTE;
                       pcbRecvLength: LPDWORD): Integer; stdcall; external WinSCardDll;

procedure GetResponseAPDU;
 var
  rv: Integer;
  hContext: SCARDCONTEXT;
  hCard: SCARDHANDLE;
  dwActiveProtocol, dwSendLength, dwRecvLength: DWORD;
  pbRecvBuffer: array[0..9] of byte;
 const
  pbSendBuffer: array of byte = ( $C0, $A4, $00, $00, $02, $3F, $00 );
begin
    rv := SCardEstablishContext(SCARD_SCOPE_SYSTEM, nil, nil, @hContext);
    rv := SCardConnect(hContext, 'Reader X', SCARD_SHARE_SHARED,
             SCARD_PROTOCOL_T0, @hCard, @dwActiveProtocol);
    dwSendLength := SizeOf(pbSendBuffer);
    dwRecvLength := SizeOf(pbRecvBuffer);
    rv := SCardTransmit(hCard, SCARD_PCI_T0, pbSendBuffer, dwSendLength,
             nil, pbRecvBuffer, @dwRecvLength);
end;


end.