DLL example in Oxygene

泪湿孤枕 提交于 2019-12-02 07:30:33

To create an Unmanaged DLL Export using Delphi Prism and call it with Delphi 2010 you must do the following:

In Delphi Prism:

  1. File | New | Project
  2. In the Tree View on the Left, select Delphi Prism
  3. Select Windows Class Library

Press OK.

This will create the template for the Windows Class Library

Right Click on the Project "ClassLibraryX" and Select Properties:

  1. Under Compatibility select "Allow unsafe code"
  2. Under Build, find the General Section and change CPU Type to "x86"
  3. Right Click on the "ClassLibraryX" tab that was created and select "Save selected Items"

This sets up the project to support the UnmanagedExportAttribute.

Then in the code you will need to create a class method. In the example below I added a reference to System.Windows.Forms.

namespace ClassLibrary2;

interface

type
  Class1 = public class
  private
  protected
  public
    [UnmanagedExport('ShowMessage')]
    class method ShowMessage(aMsg : String);
  end;

implementation

class method Class1.ShowMessage(aMsg : String);
begin
 System.Windows.Forms.MessageBox.Show(aMsg);  
end;

end.

Using a PEViewer, I used the one that ships as an example in JCL, you should be able to see the new export. In the above exampele "ShowMessage"

If you whant to make it compatible with delphi then you have to indicate a "stdcall" Calling Convention

namespace ClassLibrary2;

interface

type Class1 = public class

private

protected

public

[UnmanagedExport('ShowMessage'), System.Runtime.InteropServices.CallingConvention.StdCall]

class method ShowMessage(aMsg : String); end;

implementation

class method Class1.ShowMessage(aMsg : String);

begin

System.Windows.Forms.MessageBox.Show(aMsg);

end;

end.

易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!