如何在delphi-prism中导入DLL？

Question

我正在尝试在我的 delphi-prism 程序中导入 dll，但以前从未这样做过。所以，在网上找到了一些答案后，我整理了一些东西如下但不起作用。

  MyUtils = public static class
  private
    [DllImport("winmm.dll", CharSet := CharSet.Auto)]
    method timeBeginPeriod(period:Integer):Integer; external;
  protected
  public
    constructor;
  end;

这是我的使用方法：

var tt := new MyUtils;
tt.timeBeginPeriod(1);

当我运行我的程序时，我不断收到以下错误。

• “MyUtils”不提供可访问的构造函数。
• “System.Object”在表达式中不包含“timeBeginPeriod”的定义 “tt.timeBeginPeriod。”

我做错了什么？ delphi-prism中如何导入dll？

我关注了这个 stackoverflow 问题 - Delphi Prism getting Unknown Identifier "DllImport" error

Answer 1

你很亲密。

你不需要构造函数，所以你可以删除它：

MyUtils = public static class
private
  [DllImport("winmm.dll", CharSet := CharSet.Auto)]
  method timeBeginPeriod(period:Integer):Integer; external;
protected
public
end;

如果您从声明它的单元外部调用timeBeginPeriod 函数，则需要将其可见性更改为public。

你也不需要创建实例来调用函数：

MyUtils.timeBeginPeriod(1);

我使用声明并使用SendMessage 的应用程序对此进行了测试，因此我可以轻松检查以确保它确实有效（我向同一表单上的编辑控件发送了EM_SETTEXT 消息）。

Answer 2

  MyUtils = public static class
  public
    [DllImport("winmm.dll", CharSet := CharSet.Auto)]
    class method timeBeginPeriod(period:Integer):Integer; external;
  end;


MyUtils.timeBeginPeriod(1);