Hallo,
was machst du den in der Delphi Funktion? Zeig mal den Code. Der Aufruf der Funktion selbst sollte problemlos funktionieren,
hab ich grad selbst aus probiert.
Code:
[DllImport("TestDll.DLL")]
private static extern void TestProc(IntPtr Intf);
private void button5_Click(object sender, EventArgs e)
{
IntPtr intf = Marshal.GetIUnknownForObject(this);
TestProc(intf);
}
Delphi-Quellcode:
procedure TestProc(Intf: IUnknown); stdcall;
begin
ShowMessage('TestProc: ' + IntToStr(Integer(Intf)));
end;
exports
TestProc;
Bei mir kommt dann die MessageBox. Also muss in der Funktion irgendwas schief laufen.
Ciao chris
Guten Morgen! … Und falls wir uns heute nicht mehr sehen, Guten Tag, Guten Abend und Gute Nacht!