NativeCall 在 Kernel32.dll 中找不到函数

Question

我正在尝试将 this code 移植到 Perl6。虽然我可以调用 GetStdHandle、GetConsoleMode 和 SetConsoleMode，但当我尝试调用 ReadConsoleInput:

时我的脚本中断了

Cannot locate symbol 'ReadConsoleInput' in native library 'Kernel32.dll'
  in method setup at C:\rakudo\share\perl6\sources7BDAB9F96E0E5FCCB383124F923A6BF6F8D76B (NativeCall) line 287
  in method CALL-ME at C:\rakudo\share\perl6\sources7BDAB9F96E0E5FCCB383124F923A6BF6F8D76B (NativeCall) line 576
  in block <unit> at test.p6 line 149

现在，该函数是 definitly there。虽然它有一个复杂的签名，但我不确定我的脚本是否正确。这可能是原因吗？ NativeCall看签名吗？

这就是我在代码中定义 sub 的方式（注释来自 MS 文档）

#BOOL WINAPI ReadConsoleInput( _In_ HANDLE hConsoleInput, _Out_ PINPUT_RECORD lpBuffer, _In_ DWORD nLength, _Out_ LPDWORD lpNumberOfEventsRead );
sub ReadConsoleInput(Pointer[void], INPUT_RECORD is rw, uint32, uint32 is rw) is native('Kernel32') returns Bool { * };

如果需要，我可以 post 剩下的代码，但它是很多样板文件，因为我必须定义所有结构和内容，并且通常来自头文件。

Answer 1

真正的函数名是ReadConsoleInputA或ReadConsoleInputW，这取决于你想要ANSI还是Unicode（UTF-16）输入。 C 头文件有宏，可以根据预处理器符号自动将 ReadConsoleInput 转换为正确的函数。但是当你像这样在运行时间加载函数时，你必须准确指定你想要的函数。

NativeCall 在 Kernel32.dll 中找不到函数

NativeCall can't find a function in Kernel32.dll

windows

winapi

raku

nativecall