VB.NETでPaSoRi(RC-S380)の操作 SCardGetStatusChangeでエラーが発生する。

Question

お世話になります。
Pasoriの操作で困っています。
下記問題、どうすれば回避できるでしょうか。

前提となる環境

• Visual Studio 2015
• Visual Basic
• .NETFramework 4.6
• PaSoRi(RC-S380)
• 使用するライブラリ：WinSCard.dll

やりたいこと

一定間隔のループ処理の中で、カードがpasoriにかざされたら
そのIDを取得し、IDをキーとしていろいろ処理をしたい。

問題の箇所

SCardGetStatusChangeでエラーが発生する。

エラーの内容

マネージ デバッグ アシスタント 'PInvokeStackImbalance' が 'xxxxx.exe' で問題を検出しました。
追加情報:PInvoke 関数 'xxxxx.WinSCard+WinSCardWrapper::SCardGetStatusChange' がスタックを不安定にしています。
PInvoke シグネチャがアンマネージ ターゲット シグネチャに一致していないことが原因として考えられます。
呼び出し規約、および PInvoke シグネチャのパラメーターがターゲットのアンマネージ シグネチャに一致していることを確認してください。

エラー発生時のコード

■呼び出し元

Dim URtn As UInteger = WinSCardWrapper.SCardGetStatusChange(Me.hContext, -1, readerState, 1)

■定義側

        <DllImport("winscard.dll")>
        Public Shared Function SCardGetStatusChange(ByVal hContext As IntPtr,
                                                    ByVal dwTimeout As Integer,
                                                    ByVal rgReaderStates As SCARD_READERSTATE,
                                                    ByVal cReaders As Integer) As UInteger
        End Function

やってみたが解決しなかったこと

<DllImport("winscard.dll")>

　↓ 下のようにCallingConventionのパラメータを追加

<DllImport("winscard.dll", CallingConvention:=CallingConvention.StdCall)>

その他

• CallingConventionの値をどの値にしてもエラーが発生してしまいます。
• ちなみにFastCallを指定した時は下記エラーが発生してしまいます。

System.TypeLoadException: 無効なアンマネージ呼び出し規約です。
stdcall、cdecl または thiscall のいずれかでなければなりません。

以上よろしくお願い致します。

Comments

[y_waiwai]

winscard.dllのSCardGetStatusChange関数の定義はどうなってるんでしょうか

[Arsnova]

ご連絡いただきありがとうございます。
winscard.dllはMicrosoftから提供されていて利用者側は中身を見れない認識です。
実際定義部分のSCardGetStatusChangeを[右クリック]→[定義に移動]をクリックしても
遷移しません。
認識間違いありましたらご指摘いただけると幸いです。

Answer 1

「SCardGetStatusChangeW function」
https://docs.microsoft.com/en-us/windows/win32/api/winscard/nf-winscard-scardgetstatuschangew

rgReaderStates は SCARD_READERSTATE 構造体の配列のアドレスを渡すので

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
    Public Structure SCARD_READERSTATE
        <MarshalAs(UnmanagedType.LPTStr)>
        Public szReader As String
        Public pvUserData As IntPtr
        Public dwCurrentState As Integer
        Public dwEventState As Integer
        Public cbAtr As Integer
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=36)>
        Public rgbAtr As Byte()

        Public Sub New(ByVal reader As String)
            szReader = reader
            rgbAtr = New Byte(35) {}
        End Sub
    End Structure

    <DllImport("winscard.dll", CharSet:=CharSet.Unicode)>
    Public Shared Function SCardGetStatusChange(
                        ByVal hContext As IntPtr,
                        ByVal dwTimeout As Integer,
                        ByVal rgReaderStates As SCARD_READERSTATE(),
                        ByVal cReaders As Integer) As UInteger
    End Function

使うときがちょっと面倒ですね。

        Dim lst As New List(Of SCARD_READERSTATE)
        lst.Add(New SCARD_READERSTATE(reader1))
        lst.Add(New SCARD_READERSTATE(reader2))
        Dim arrays As SCARD_READERSTATE() = lst.ToArray()
        Dim result As UInteger = SCardGetStatusChange(hContext, dwTimeout, arrays, lst.Count)

こんな感じになるかと。

Comments

[Arsnova]

ご回答ありがとうございます！
ご相談させていただいていたエラーは解消されました。

１．SCardGetStatusChangeの第3引数に渡したSCARD_READERSTATEの値が
　　変わらない(dwEventStateでカードがタッチされたか判定したいが)ので、
　　定義をみたらByValになっていたので、ByRefに変えました。

２．SCardGetStatusChangeを実行したところ、戻り値が「2148532233」で
　　意味としては「UNKNOWN READER」が定数として表現されています。
　　ちなみに、
　　URtn = WinSCardWrapper.SCardGetStatusChange(Me.hContext, -1, arrays, lst.Count)
　　の実行時のarraysの中身は以下の通りです。
　　・cbAtr：0
　　・cbAtr：0
　　・dwCurrentState：0
　　・dwEventState：0
　　・pvUserData：sizeは4
　　　 m_valueは&H00000000
　　・rgbAtr：すべての要素0です。
　　・szReader："Sony FeliCa Port/PaSoRi 3.0 0"

なにか解決策ありますでしょうか。
私の誤り等ございましたらご指摘ください。

よろしくお願いいたします。

[KOZ6.0]

ByRef に変えてはだめだと思います。
値が変わらないというのは、lst を見ています？arrays ?

[KOZ6.0]

リーダー名は正しいですか？

SCardListReadersW
https://docs.microsoft.com/ja-jp/windows/win32/api/winscard/nf-winscard-scardlistreadersw

でリーダー名が取れるようです。

使い方は SCardLocateCardsW に書いてあるようです。
https://docs.microsoft.com/ja-jp/windows/win32/api/winscard/nf-winscard-scardlocatecardsw

私にできるのは、宣言を直すくらいです。
使ったことがないので使い方を聞かれてもわかりません。

[KOZ6.0]

C# のサンプルがありました。
https://tomosoft.jp/design/?p=5543
がんばって VB に直してください。

[YAmaGNZ]

多分、こちら（https://qiita.com/tfukumori/items/2cdf1eeddd9138c8835f）を参考にされたんじゃないかと思います。

[Arsnova]

ありがとうございます。
YAmaGNZさんのおっしゃるサイトを参考にしています。このサイトでは、リーダー名がべた書きですが、
コードを修正して、SCardListReadersWを使ってリーダー名「Sony FeliCa Port/PaSoRi 3.0 0」が取得できているので正しいと思います。

修正する基準はKOZ6.0さんが上記でリンクを貼られたサイトを見ています。

C#のサイトをもっとよく見てみたいと思います。

[KOZ6.0]

LPCSTR szReader だから
<MarshalAs(UnmanagedType.LPTStr)> は外すか UnmanagedType.LPStr にしたほうが良いかもしれません。
サンプルは宣言してないですし。