Hi,
nochmals Danke!
Ein ähnliches Problem habe mit der Statusabfrage eines Kartenlesegerätes "SCardGetAttrib" aus der "WinSCard.pas".
Hier der Visual-Basic Aufruf:
[visualbasic]
ATRLen = 64
OkErr = SCardGetAttrib(hCard, SCARD_ATTR_ATR_STRING, ATR(LBound(ATR)), ATRLen)
[/visualbasic]
Ich habe es wie folgt übersetzt!
Delphi-Quellcode:
var
OkErr : ULONG;
dwActiveProtocol : PDWord;
UID, ReaderName : String ;
UID_Reader:array[0..12]of CHAR;
UIDLen : ULong ;
ATR_Reader:array[0..64]of CHAR;
ATRLen : LongInt ;
begin
....
ATRLen := 64 ;
OkErr := SCardGetAttrib(hCard, SCARD_ATTR_ATR_STRING, ATR_Reader, ATRLen) ;
....
Oh sorry, dies ist doch kein Problem, es funktioniert!!!!