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\sources\947BDAB9F96E0E5FCCB383124F923A6BF6F8D76B (NativeCall) line 287
  in method CALL-ME at C:\rakudo\share\perl6\sources\947BDAB9F96E0E5FCCB383124F923A6BF6F8D76B (NativeCall) line 576
  in block <unit> at test.p6 line 149

现在，该功能为definitly there。但是它有一个复杂的签名，我不确定我的脚本是否正确。那可能是原因吗？ NativeCall会查看签名吗？

这是我在代码中定义子项的方式（注释摘自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 { * };

如果需要，我可以发布其余的代码，但这是很多样板，因为我必须定义所有通常来自头文件的结构和内容。

Answer 1

实际函数名称为ReadConsoleInputA或ReadConsoleInputW，具体取决于您要输入ANSI还是Unicode（UTF-16）。 C头具有宏，这些宏根据预处理器符号自动将ReadConsoleInput转换为正确的函数。但是，当您像这样在运行时加载函数时，必须确切指定所需的函数。

NativeCall在Kernel32.dll中找不到函数

1 个答案: