0

I have a class define in dll. I export this class by interface. I use this dll and class in other Delphi project very good but I want use this class in c# but send error for me.

Source DLL:

type
  IMyDate = interface
    ['{D032F796-167D-4B0D-851D-2AEEA226646A}']
    Procedure Analyze_Date(var y:Integer; m,d:Integer); stdcall;
  end;

  TMyDate = Class(TInterfacedObject, IMyDate)
  Public
    Procedure Analyze_Date(var y:integer; m,d:Integer); stdcall;
  End;

procedure TMyDate.Analyze_Date(var y:Integer; m, d: Integer);
begin
  y:= m+d;
end;

Function MyDate:IMyDate; stdcall;
begin
  result:= TMyDate.Create;
end;

exports
  MyDate;

Unit use in Delphi example:

Function MyDate:IMyDate; stdcall; external 'Project11';

implementation

procedure TForm3.Button1Click(Sender: TObject);
var
  md:IMyDate;
  var y,m,d:Integer;
begin
  md:= MyDate;
  y:=10;
  m:=20;
  d:=30;
  md.Analyze_Date(y,m,d);
  showMessage(intTostr(y));
end;

Use in c# but get error:

//[Guid("D032F796-167D-4B0D-851D-2AEEA226646A")]
public interface IMyDate
{
    void Analyze_Date(ref int y, int m, int d); 
}

[DllImport(
"Project11.dll"
, EntryPoint = "MyDate"
, SetLastError = true
, CallingConvention = CallingConvention.StdCall
, CharSet = CharSet.Unicode)]
public static extern IMyDate MyDate(); 

private void button9_Click(object sender, EventArgs e)
{
  int y, m, d;
  IMyDate da;
  da = MyDate(); // get error this line
  y = 10;
  m = 20;
  d = 30;
  da.Analyze_Date(ref y, m, d);
}

Update

thank you for answer

i add new function to Interface and class but my function only return false

also my function and procedure in delphi is stdcall and interface in C# is normaly !!!

IMyDate = interface
['{D032F796-167D-4B0D-851D-2AEEA226646A}']
Function testing():Boolean; stdcall;
end;

TMyDate = Class(TInterfacedObject, IMyDate)
Public
Function testing():Boolean; stdcall;
End;

function TMyDate.testing(): Boolean;
begin
result:= true;
end;

c#:

[ComImport, Guid("D032F796-167D-4B0D-851D-2AEEA226646A"),
 InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IMyDate
{
    bool testing();        
}

[DllImport(
      "Project11.dll"
      , EntryPoint = "CreateMyDate"//"MyDate"
      , SetLastError = true
      , CallingConvention = CallingConvention.StdCall
      , CharSet = CharSet.Unicode)]    
public static extern void CreateMyDate(out IMyDate Date); 

    Boolean b;

    b = da.testing();  //this line only return false
    if (b)
    {
        MessageBox.Show("ffff");
    }
4

1 回答 1

5

我看到的第一个问题是，Delphi 的函数返回值的二进制接口与 C# 使用的接口不同（实际上是所有其他主要的 Windows 编译器）。

因此，不要使用函数，而是使用out参数。

procedure CreateMyDate(out Date: IMyDate); stdcall;
begin
  Date := TMyDate.Create;
end;

然后在 C# 上，您可以像这样声明函数：

[DllImport(@"Project11.dll")]
public static extern void CreateMyDate(out IMyDate Date);

DllImport请注意，我删除了您的属性的大量虚假参数。我猜你是随机添加的！

另一个问题是界面。它需要声明为支持IUnknown. 像这样：

[ComImport, Guid("D032F796-167D-4B0D-851D-2AEEA226646A"), 
    InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IMyDate
{
    void Analyze_Date(ref int y, int m, int d); 
}

更新 1

更新问题的第一个问题是我在原始答案中未能找到的问题。声明 C# 接口的方式意味着编组器假定本机函数都返回HRESULTCOM 错误代码。如果 C# 方法有返回值，那么它会隐式转换为out参数。在 Delphi 中有一种简单的方法可以实现这一点。您替换接口stdcall中safecall的每个方法，显然是在该接口的实现中。请注意，您不应更改CreateMyDate函数的调用约定。

所以你的 Delphi 代码应该是这样的：

IMyDate = interface
  ['{D032F796-167D-4B0D-851D-2AEEA226646A}']
  Function testing():Boolean; safecall;
end;

TMyDate = Class(TInterfacedObject, IMyDate)
Public
  Function testing():Boolean; safecall;
End;

更新问题中方法的另一个问题是 C# 编组bool为 4 字节值，但 DelphiBoolean只是一个字节。这个错误实际上是良性的，但是你可以通过使接口的两侧匹配来解决这个问题。例如：

[return: MarshalAs(UnmanagedType.U1)]
bool testing();

我重复我上面所说的。我从您的DllImport属性中删除了虚假参数。特别是不要使用SetLastError，因为您的代码没有设置 Win32 最后一个错误。你DllImport应该完全按照我的回答。不要通过向属性添加不必要的额外参数来混淆事物。

更新 2

你在评论中说你不能safecall在德尔福方面使用。这意味着您需要HRESULT在接口的 C# 端抑制签名转换。这已经完成了MethodImplOptions.PreserveSig。您需要将其应用于 C# 接口上的每个方法。

[ComImport, Guid("D032F796-167D-4B0D-851D-2AEEA226646A"), 
    InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IMyDate
{
    [MethodImplAttribute(MethodImplOptions.PreserveSig)]
    void Analyze_Date(ref int y, int m, int d); 

    [MethodImplAttribute(MethodImplOptions.PreserveSig)]
    [return: MarshalAs(UnmanagedType.U1)]
    bool testing();  
}

该接口与声明如下的 Delphi 接口相匹配：

IMyDate = interface
  ['{D032F796-167D-4B0D-851D-2AEEA226646A}']
  procedure Analyze_Date(var y: Integer; m, d: Integer); stdcall;
  function testing(): Boolean; stdcall;
end;
于 2012-12-31T16:50:54.440 回答