PUCHARでAPIを呼び出す方法は？

Question

私はDelphiでAPIを使用しようとしています。 A pointer to the six byte Mifare key：ここpucMifareKey一方、APIドキュメント

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

です。 私がこれまで試みてきたコード。

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; 

私は取得していますエラーがResult:=SCardCL....キー^によるポインタのラインでIncompatible types: 'Byte' and 'Char'です。何か案は？

Answer 1

関数呼び出しのthisポインタのポインタであることを、この変数を設定しますが、デルファイのための2009 Iを事前次のようになります。

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; 

アクセス違反は、おそらくC文字列が0で終了しているために発生します。文字列を使用してPCharにキャストすると、簡単になります。

Answer 2

あなたはデルファイ2009にいないでしょうか？その場合、「char」は2バイトとして定義されます。代わりに "AnsiChar"を試してください。

Answer 3

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

私はあなたが「UCHAR」で「バイト」を置き換えるべきだと思う：

ucMifareAuthMode, ucMifareAccessType, ucMifareKeyNr: byte; 

「文字」と「バイト」を治療する悪い習慣です。

Answer 4

はこれを試してみてください：

1. はUCHARの配列のための新しいタイプを紹介します。
2. ポインタ型の新しいローカル変数を導入しました。
3. は、あなたのキー配列に

4. 使用私は問題のDLLを知らない

   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

キーは6バイト（uchar）の配列であると述べました。動的配列を渡すことを宣言していますが、単に配列を宣言するだけではないのですか？

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