Wie API mit PUCHAR aufrufen?

Question

Ich versuche, eine API unter Delphi zu verwenden. Hier ist die API-Dokumentation

OKERR ENTRY SCardCLMifareStdAuthent 
    (IN SCARDHANDLE ulHandleCard,IN ULONG ulMifareBlockNr, 
    IN UCHAR ucMifareAuthMode,IN UCHAR ucMifareAccessType,IN UCHAR ucMifareKeyNr, 
    IN PUCHAR pucMifareKey,IN ULONG ulMifareKeyLen); 

Während pucMifareKey: A pointer to the six byte Mifare key. Der Code, den ich bisher versucht habe;

function Auth():Integer; 
type 
    TSCardCLMifareStdAuthent = function(SCARDHANDLE: cardinal; ulMifareBlockNr: ULONG; 
    ucMifareAuthMode, ucMifareAccessType, ucMifareKeyNr: byte; pucMifareKey: puchar; 
    ulMifareKeyLen: cardinal):LONG; 
var 
    SCardCLMifareStdAuthent: TSCardCLMifareStdAuthent; 
    hDLL: Integer; 
    CardHandle: cardinal; 
    i: integer; 
    Key: array of UCHAR; 
begin 
    Result:=1; 
    //CardHandle is defined here 
    SetLength(Key, 6); 
    for i := low(key) to high(key) do 
    Key[i] := $FF; 
    hDLL := LoadLibrary('scardsyn.dll'); 
    @SCardCLMifareStdAuthent := GetProcAddress(hDLL, 'SCardCLMifareStdAuthent'); 
    if @SCardCLMifareStdAuthent <> nil then 
    Result:=SCardCLMifareStdAuthent(CardHandle, $00, 96, 0, 0, ^Key, 6); 
    FreeLibrary(hDLL); 
end; 

Der Fehler ich erhalte ist Incompatible types: 'Byte' and 'Char' an der Linie von Result:=SCardCL.... aufgrund^Key-Zeiger. Irgendwelche Ideen?

Answer 1

ich die DLL in Frage weiß nicht, zu sein, aber für eine Delphi vor 2009 I würde Folgendes tun:

function Auth: integer; 
type 
    TSCardCLMifareStdAuthent = function(SCARDHANDLE: cardinal; 
    ulMifareBlockNr: ULONG; ucMifareAuthMode, ucMifareAccessType, 
    ucMifareKeyNr: byte; pucMifareKey: PAnsiChar; 
    ulMifareKeyLen: Cardinal): longint; 
var 
    SCardCLMifareStdAuthent: TSCardCLMifareStdAuthent; 
    hDLL: Integer; 
    CardHandle: Cardinal; 
    Key: string; 
begin 
    Result := 1; 
    //CardHandle is defined here... 
    Key := StringOfChar(Chr($FF), 6); 
    hDLL := LoadLibrary('scardsyn.dll'); 
    if hDLL <> 0 then begin 
    @SCardCLMifareStdAuthent := GetProcAddress(hDLL, 'SCardCLMifareStdAuthent'); 
    if @SCardCLMifareStdAuthent <> nil then begin 
     Result := SCardCLMifareStdAuthent(CardHandle, $00, 96, 0, 0, 
     PChar(Key), Length(Key)); 
    end; 
    FreeLibrary(hDLL); 
    end; 
end; 

Die Zugriffsverletzung erhalten Sie wahrscheinlich von der C-Zeichenfolge nicht 0-terminiert. Mit einer Saite und Casting zu PChar wird es einfacher.

Answer 2

Sie würden nicht in Delphi 2009 sein? Wenn dies der Fall ist, wird "char" als 2 Bytes definiert. Versuchen Sie stattdessen "AnsiChar".

Answer 3

type 
    TSCardCLMifareStdAuthent = function(SCARDHANDLE: cardinal; ulMifareBlockNr: ULONG; 
    ucMifareAuthMode, ucMifareAccessType, ucMifareKeyNr: byte; pucMifareKey: puchar; 
    ulMifareKeyLen: cardinal):LONG; 

Ich denke, Sie sollten 'byte' mit 'UCHAR' ersetzen:

ucMifareAuthMode, ucMifareAccessType, ucMifareKeyNr: byte; 

Es ist eine schlechte Praxis 'byte' als 'char' zu behandeln.

Answer 4

Versuchen Sie folgendes:

1. Einführung neuer Typ für Array von UCHAR.
2. Neue lokale Variable vom Zeigertyp einführen.
3. diese Variable gesetzt Zeiger auf Ihrem Key Array

4. Verwenden Sie diesen Zeiger in Funktionsaufruf

   type 
       TArrayOfUchar = array of UCHAR; 
   
   var 
       ... 
       Key : TArrayOfUchar; 
       PKey : ^TArrayOfUchar; 
   begin 
       ... 
       PKey = @Key; 
       if @SCardCLMifareStdAuthent <> nil then 
       Result:=SCardCLMifareStdAuthent(CardHandle, $00, 96, 0, 0, PKey, 6); 
   

Answer 5

Sie haben angegeben, dass der Schlüssel ein 6-Byte-Array (uchar) ist. Sie deklarieren ein dynamisches Array zum Weitergeben. Warum deklarieren Sie nicht einfach ein Array?

var 
    {...} 
    MyKey: array[0..5] of UCHAR; 
begin 
    {...} 
    Result:=SCardCLMifareStdAuthent(CardHandle, $00, 96, 0, 0, @MyKey, 6);