如何带参数调用DLL程序？

Question

我在使用带有参数的 Dll 过程发送时遇到问题，我不允许在我的测试项目中向 dll 方法的调用添加参数。

我试图调用这个 dll 方法：

procedure Transfer(sMessage: PChar); stdcall;
begin
    MainForm.ShowThis(sMessage);
end;

exports
Transfer;

TestProj 使用这个：

procedure TForm1.Button1Click(Sender: TObject);
var
DLLHandle : THandle;
begin
    DLLHandle := LoadLibrary ('C:\Program Files\Borland\Delphi5\Projects\Dll\MyLink.dll');
    if DLLHandle >= 32 then
        try
              @Trans := GetProcAddress (DLLHandle, 'Transfer');
              if @Trans <> nil then
                  Trans  //Would like to say something like: Trans('Hello')
              else
                Showmessage('Could not load method address');

        finally
            FreeLibrary(DLLHandle);
    end
    else
        Showmessage('Could not load the dll');
end;

如果我使用“Trans('Hello')”，我得到的编译错误是： [错误] Unit1.pas(51)：实际参数太多。

我允许在没有参数的情况下运行它，但随后我只在我的显示消息框中收到乱码，然后崩溃，因为我不发送任何消息。

所以问题是我如何将字符串作为参数发送到 dll 中？我做错了什么？

Answer 1

您不应在赋值左侧使用指针符号 (@)，Trans 变量应如下所示：

type
  TTransferPtr = procedure (sMessage: PChar); stdcall;

var
  Trans: TTransferPtr;

// Then use it like this:
Trans := TTransferPtr(GetProcAddress (DLLHandle, 'Transfer'));
if @Trans <> nil then
  Trans(PChar('Hello'));