在Lua中使用alien调用返回字符串的Win32函数

2008-11-7 15:26:8
收藏：0
阅读：607
评论：1

我正在尝试使用 alien 调用 Win32 函数。我尝试了这段代码，但它崩溃了，我不明白为什么。

require( "alien" )

local f = alien.Kernel32.ExpandEnvironmentStringsA
f:types( "int", "string", "pointer", "int" )
local buffer = alien.buffer( 512 )
f( "%USERPROFILE%", 0, 512 )

原文链接 https://stackoverflow.com/questions/272425

点赞
stackoverflow用户15459
stackoverflow用户15459

这是一个好问题，对我来说，这是一个测试 Alien 的机会...

如果你不介意的话，我抓住机会解释一下如何使用 Alien，这样像我这样（不太了解 require）的人就可以开始了...

你给出了 LuaForge 页面的链接，我去那里看到需要 LuaRock 以获取它。:-(

我应该有一天安装后者，但我选择暂时跳过。所以我去了仓库，下载了 alien-0.4.1-1.win32-x86.rock。

我发现它是一个普通的 Zip 文件，可以像往常一样解压。

在与 require 纠缠了一会儿后，我最终通过在 Lua 脚本中设置路径进行了快速测试。我应该在我的环境中创建 LUA_PATH 和 LUA_CPATH，稍后我会这样做。

因此，我从解压的文件夹中取出了 alien.lua、core.dll 和 struct.dll，并将它们放在一个名为 Alien 的目录下的共享库存储库中。

然后我在我的脚本开头添加了以下行（请注意，这是一个糟糕的 hack 警告！）：

package.path = 'C:/PrgCmdLine/Tecgraf/lib/?.lua;' .. package.path
package.cpath = 'C:/PrgCmdLine/Tecgraf/lib/?.dll;' .. package.path
require[[Alien/alien]]

然后，我使用一个简单的无担保函数进行了尝试，它会立即显示结果：MessageBox。

local mb = alien.User32.MessageBoxA
mb:types{ 'long', 'long', 'string', 'string', 'long' }
print(mb(0, "Hello World!", "Cliché", 64))

是的，我得到了消息框！但在点击 OK 后，我得到了 Lua 崩溃，可能和你一样。 经过对 Alien 文档的快速扫描，我发现了（未命名的）罪魁祸首：我们需要为 Windows API 使用 stdcall 调用约定：

mb:types{ ret = 'long', abi = 'stdcall', 'long', 'string', 'string', 'long' }

所以让你的调用变得平凡：

local eev = alien.Kernel32.ExpandEnvironmentStringsA
eev:types{ ret = "long", abi = 'stdcall', "string", "pointer", "long" }
local buffer = alien.buffer(512)
eev("%USERPROFILE%", buffer, 512)
print(tostring(buffer))

请注意，我将缓冲区参数放入了 eev 调用中...

2008-11-12 16:25:36

作者:

stackoverflow用户14443

stackoverflow用户14443
推荐文章