Perl Win32::API() call() 函数

Question

亲爱的， 我试图在我的 dll 的 call() 函数的返回中获取 char 指针或字符串的值。 我的 dll 有一个函数 RandomDec(long , int*) 并返回一个字符串。那么我将使用 Win32::API() 调用什么。我已经尝试过了，但没有成功。请帮忙

use Win32::API;  
my @lpBuffer = " " x 20;   
my $pp= \@lpBuffer;  
my $xy=0;  
my $ff= \$xy;  
my $fun2 = new Win32::API('my.dll','RandomDec','NP','**P**')or die $^E;  
$pp = $fun2->Call(4,$ff);  

如何使用 $pp ？

Answer 1

您的代码中有多个错误。

1. my @lpBuffer = " " x 20; my $pp= \@lpBuffer;

=>my $pp = " " x 20;

您将数组与字符串混合在一起，并且 c ptr 不需要 perl ref。 与 int* 类似。

1. N 代表不长的数字。 L 将是未签名的，您需要签名，所以 l。

使用 Win32::API； 我的 $pp = " " x 20; # 分配一个字符串 我的 $xy = 0; # 分配一个整数 我的 $fun2 = new Win32::API('my.dll','RandomDec','lP','P') 或死 $^E; $pp = $fun2->调用(4,$xy);

我没有检查 Win32::API 是否可以对 char* 进行左值赋值。通常不会，所以 $pp 将是调用后指向某个字符串的外部指针，而 prev. $pp 的 PV 插槽将丢失，并且无法从 perl 访问。 使用 FFI 和 WinAPI，您通常也返回 int，而不是字符串。 仅通过副作用的字符串，作为函数 arg。