C# Delegates in Delphi konsumieren

[Robotiker]

Zitat von generic:

VC++ ist nicht erforderlich, denn Delphi kann eben so DLL erzeugen.

Nur VC++ kann DLLs erzeugen, die gleichzeitig nativ und managed sind. In der Anwort auf Stackoverflow wird das ja benutzt (in einer Exe keiner DLL).

[Edit]
Also Delphi-EXE ruft (C-Seite) der VC++ DLL, diese verweist auf die C# DLL. Ein Delegate Aufruf aus C# landet in der VC++ DLL diese kann z.B. einen Callback aus der Delphi-Exe aufrufen.

[Elvis]

Zitat von Robotiker:

Nur VC++ kann DLLs erzeugen, die gleichzeitig nativ und managed sind.

*Hust*

[Robotiker]

Zitat von Elvis:

*Hust*

Gesundheit.

Sieht nach einer Notlösung für einfache Fälle aus. Geht auch nur in die eine Richtung. Einen Custom RCW kriegt man da nur mit einer weiteren nativen Hilfs-DLL und viel Handarbeit hin. (Ja, es gibt auch http://msdn.microsoft.com/en-us/library/x8fbsf00.aspx
bevor du einen chronischen Husten kriegst.)

Auf Dinge wie die Marshalling-Lib und andere Dinge die es nur in VC++ Headern und Libs gibt müsste man dann verzichten.

[Nic2012]

Basierend nach diesem Vorschlag http://www.systemwidgets.com/Blog/ta...M-clients.aspx klappt es:

Der C# Com-Server:

Code:

using System;
using System.Runtime.InteropServices;
using System.Threading;

namespace ComDog
{
    [ComVisible(false)]
    public delegate void DogEventHandler();

    [ComVisible(true)]
    [Guid("2406DD50-A3CE-43A6-9F20-112B621CB784")]
    [InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)]
    public interface IDogEvents
    {
        [DispId(1)]
        void Bark();
        [DispId(2)]
        void Howl();
        [DispId(3)]
        void Eat();
    }

    [ComVisible(true)]
    [Guid("8C6DAD17-0612-4166-AD35-3A55DDEAF62E")]
    [ClassInterface(ClassInterfaceType.AutoDual)]
    [ComSourceInterfaces(typeof(IDogEvents))]
    public class Dog : MarshalByRefObject
    {
        [ComVisible(false)]
        private Timer _timer;

        public event DogEventHandler Bark;
        public event DogEventHandler Howl;
        public event DogEventHandler Eat;

        public Dog()
        {
            _timer = new Timer(new TimerCallback(timer_tick));
            _timer.Change(5000, 2000);
        }

        private void timer_tick(object state)
        {
            MakeDogBark();
        }

        public void MakeDogBark()
        {
            if (Bark != null)
            {
                Bark();
            }
        }

        public void MakeDogHowl()
        {
            if (Howl != null)
            {
                Howl();
            }
        }

        public void MakeDogEat()
        {
            if (Eat != null)
            {
                Eat();
            }
        }
    }
}

Und aus einer Delphi7 Client Anwendung:

Code:

...
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComDog_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
  protected
    procedure Barked(Sender: TObject);
    procedure Howled(Sender: TObject);
    procedure Ate(Sender: TObject);
  public
  end;

var
  Form1: TForm1;
  TestDog: TDog;
  iDog: _Dog;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  iDog := CoDog.Create;

  TestDog := TDog.Create(self);
  TestDog.ConnectTo(iDog);

  TestDog.OnBark := Barked;
  TestDog.OnHowl := Howled;
  TestDog.OnEat := Ate;
end;

procedure TForm1.Barked(Sender: TObject);
begin
  Memo1.Lines.Add('Event from COM: Dog Barked');
end;

procedure TForm1.Howled(Sender: TObject);
begin
  Memo1.Lines.Add('Event from COM: Dog Howled');
end;

procedure TForm1.Ate(Sender: TObject);
begin
  Memo1.Lines.Add('Event from COM: Dog ate something');
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  if (TestDog <> nil) then
    TestDog.Free;
end;
...

Erhalte ich 5sec nachdem der COM-Server instanziert wurde alle 2 sec das Event "Bark" angezeigt im Memo.

Sieht gut aus oder ?
Gruß,
Nic

[Robotiker]

Zitat von Nic2012:

Sieht gut aus oder ?

In der Tat, ja. Dann bleiben Dir komplizierte Nicht-COM Lösungen erspart.

[Elvis]

Zitat:

Sieht gut aus oder ?

Nein, gar nicht.
Ein Event ist sowas wie eine Property. Man hat keinen Zugriff auf das Delegate, kann nur Handler hinzufügen oder entfernen (wenn man sie auch kennt!)
Der Hack auf der Seite führt macht doch das Deklarieren des Events als EVENT (nicht Property) komplett banane.
Das wirkt auf mich als hätte er solange rumprobiert, bis irgendwas ging...
Ein einfacher Event-Subscription-Mechanismus, der in .Net und anderen Umgebungen (wie Delphi) sehr gut funktioniert, sind Subscription wie man sie aus Java kennt: http://www.delphipraxis.net/173317-%...ml#post1204018
Außerdem musst du IDispatch nehmen, also bekommst du weder Code-Completion, noch Compiler-Meldungen wenn du dich vertippst.

Ich bleibe mal bei deinem Hundebeispiel...
Hier die Interfaces:

Code:

[ComVisible(true),
    InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
    Guid("22396704-484A-43CE-AA8D-0765DB317562")]
public interface INotifyEventHandler
{
    void Invoke([MarshalAs(UnmanagedType.IUnknown)] object sender);
}

[ComVisible(true),
    InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
    Guid("5B127B2D-4433-43DA-87A6-28B8CBF725D7")]
public interface INotifyEvent
{
    void Add(INotifyEventHandler handler);
    void Remove(INotifyEventHandler handler);
}

[ComVisible(true),
    Guid("45A15623-E99C-466E-AE76-BFB4500CC900"),
    InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IDog
{
    INotifyEvent Bark { get; }
    INotifyEvent Howl { get; }
    INotifyEvent Eat { get; }
    void PerformBark(int howOften);
}

Delphi-Quellcode:

INotifyEventHandler = interface(IUnknown)
  ['{22396704-484A-43CE-AA8D-0765DB317562}']
  procedure Invoke(const sender : IUnknown); safecall;
end;

INotifyEvent = interface(IUnknown)
  ['{5B127B2D-4433-43DA-87A6-28B8CBF725D7}']
  procedure Add(const handler: INotifyEventHandler); safecall;
  procedure Remove(const handler: INotifyEventHandler); safecall;
end;

IDog = interface(IUnknown)
['{45A15623-E99C-466E-AE76-BFB4500CC900}']
  function GetOnBark : INotifyEvent; safecall;
  function GetOnHowl : INotifyEvent; safecall;
  function GetOnEat : INotifyEvent; safecall;

  property OnBark : INotifyEvent read GetOnBark;
  property OnHowl : INotifyEvent read GetOnHowl;
  property OnEat : INotifyEvent read GetOnEat;

  procedure Bark(aHowOften : Integer); safecall;
end;

hier die Implmentierung in C#. Achte auf das "DllExport", um das zu kriegen musst du einen Rechtsklick auf dein Projekt machen, "manage Nuget Packages" und in dem Dialog suchst du nach dllexport (siehe screenie).

Code:

public class NotifyEvent : INotifyEvent
{
    private readonly ISet<INotifyEventHandler> _Handlers = new HashSet<INotifyEventHandler>();

    public void Add(INotifyEventHandler handler)
    {
        _Handlers.Add(handler);
    }

    public void Remove(INotifyEventHandler handler)
    {
        _Handlers.Remove(handler);
    }

    public void Invoke(object sender)
    {
        var handlersCopy = _Handlers.ToList();
        handlersCopy.ForEach(h => h.Invoke(sender));
    }
}

public class CSharpDog : IDog
{
    public INotifyEvent Bark
    {
        get { return _Bark; }
    }

    public INotifyEvent Howl
    {
        get { return _Howl; }
    }

    public INotifyEvent Eat
    {
        get { return _Eat; }
    }

    readonly NotifyEvent _Bark = new NotifyEvent();
    readonly NotifyEvent _Howl = new NotifyEvent();
    readonly NotifyEvent _Eat = new NotifyEvent();

    public void PerformBark(int howOften)
    {
        for (int i = 0; i < howOften; i += 1)
        {
            _Bark.Invoke(this);
        }
    }

    [DllExport]
    static void CreateDog([MarshalAs(UnmanagedType.Interface)]out IDog dog)
    {
        dog = new CSharpDog();
    }
}

Auf der Delphi-Seit brauchen wir eine Implementierung für einen Eventhandler:

Delphi-Quellcode:

TNotifyEventHandler = class(TInterfacedObject, INotifyEventHandler)
private
  fCallback : TProc<IUnknown>;
protected
  procedure Invoke(const sender : IUnknown); safecall;
public
  constructor Create(aCallBack: TProc<IUnknown>); overload;
  constructor Create(aCallBack: TProc); overload;
end;

{ TNotifyEventHandler }

constructor TNotifyEventHandler.Create(aCallBack: TProc<IUnknown>);
begin
  fCallback := aCallBack;
end;

constructor TNotifyEventHandler.Create(aCallBack: TProc);
begin
  fCallback := procedure(sender : IUnknown) begin
    aCallBack();
  end;
end;

procedure TNotifyEventHandler.Invoke(const sender: IInterface);
begin
  fCallback(sender);
end;

Und das war's dann fast schon. Im C# Projekt musst du noch die CPU-Plattform passend zu deinem Delphi-Projekt (wohl x86) wählen.

Delphi-Quellcode:

procedure CreateDog(out dog : IDog); stdcall; external 'DeineCSharpClassLibrary';

var
  dog : IDog;
  barkCounter : Integer;
begin
  CoInitialize(nil);
  CreateDog(dog);
  barkCounter := 0;

  dog.OnBark.Add(TNotifyEventHandler.Create(procedure begin
      inc(barkCounter);
  end));

  dog.Bark(6);
  dog.Bark(2);

  Writeln('dog barked ', barkCounter, ' times...');
end.

Zitat von Ouput:

dog barked 8 times...

Zitat von Robotiker:

In der Tat, ja. Dann bleiben Dir komplizierte Nicht-COM Lösungen erspart.

Genau, weil Com-Registrierungen auch immer problemlos funzen und jeder sich so gut mit SxS auskennt, dass auch wirklich jeder alles ohne globale Registrierung lösen kann...

Sicherlich ist COM/Interop ein sehr guter Weg für viele, gerade komplexere, Szenarios. aber COM ist auch saumäßig frickelig und kommt mit seinen eigenen Problemen daher. Zum Glück kann man fast alle COM-Goodies aus .Net ohne COM benutzen. Macht C++/CLI die meiste Zeit über auch nicht anders.

Einfach so zu behaupten, dass man keine RCWs über Reverse P/Invoke kriegt, oder es nur als Notlösung taugt, halte ich für ein Indiz einer sehr dogmatische Sichtweise. Ich kann mir kaum vorstellen, dass du wirklich so engstirnig bist.

[Robotiker]

Zitat von Elvis:

Sicherlich ist COM/Interop ein sehr guter Weg für viele, gerade komplexere, Szenarios. aber COM ist auch saumäßig frickelig und kommt mit seinen eigenen Problemen daher.

Da wiederspreche ich dir in keinen Punkt. Aber der Fragesteller hatte schon mit COM begonnen und da ist das sicher für ihn ein praktikabler Weg. Insoweit stehe ich da zu meiner Aussage.

Was meine Engstirnigkeit angeht, ich komme von ursprünglich von Borland C++ und benutzte Delphi gelegentlich, weil es die "Haussprache" des C++ Builders ist, mit dem ich noch einige alte Sachen warten muss. Meine Haupt IDE ist Visual Studio, seit .net 1.0, ich habe also schon einige Interop-Geschichten hinter mir.

Meine Erfahrungen daraus ? Ich benutzt PInvoke wo es geht, sonst C++/CLI, kein COM.

Natürlich kann man bei einem Callback in C# schreiben

Code:

[UnmanagedFunctionPointer(CallingConvention.Cdecl)]
public delegate void MyCallback(IntPtr buffer, uint size)

und dann mit Byte-Array und Marshal.PtrToStructure rumtun. (Ganz toll wird das, wenn man als Parameter ein Array von C-structs kriegt, die selber wieder Pointer auf structs enthalten ...)

Ich nehme halt dann in komplizierten Fällen, oder welchen die sich dahin entwickeln könnten, C++/CLI. Andere auch. Das man das als Delphi Entwickler prinzipiell nicht macht, "weil das der Feind ist", kann ich verstehen, geht mir aber ehrlich gesagt am A... vorbei.

[generic]

Zitat von Robotiker:

Zitat von generic:

VC++ ist nicht erforderlich, denn Delphi kann eben so DLL erzeugen.

Nur VC++ kann DLLs erzeugen, die gleichzeitig nativ und managed sind. In der Anwort auf Stackoverflow wird das ja benutzt (in einer Exe keiner DLL).

Ja, richtig - mixed DLLs NUR mit VC. Nun kann nicht jeder Entwickler gleich alle Sprachen Delphi,C# und VC.

Daher meinte ich, dass man mit Delphi DLLs erzeugen, um diese dann via PInvoke einbinden.

[Robotiker]

Zitat von generic:

Nun kann nicht jeder Entwickler gleich alle Sprachen Delphi,C# und VC.

Das stimmt. Aber ich hab ja ursprünglich nur geschrieben

Zitat von Robotiker:

Außerhalb von COM gibt es da Wege, es gibt ja z.B.

Mehr, als dass man so eine "Doppelstecker-DLL" bauen kann, wollte ich ja gar nicht sagen.

[Nic2012]

Jo richtig der Entw. aus http://www.systemwidgets.com/Blog/ta...M-clients.aspx erwähnte auch, dass ihm dieser Wurf nach vielem Probieren erst gelungen ist. Zu dem Thema ist nun im Web auch wenig zu finden, und das liegt bestimmt nicht daran, dass es "trivial" ist. Den Entwurf von Elvis habe ich aber noch nicht ganz verstanden:

Zitat:

Außerdem musst du IDispatch nehmen

Hatte ich das nicht im Interface der Events getan ? Oder meint er statt ClassInterfaceType.AutoDual der Hauptklasse ?
Also der "schlechte" Entwurf funktioniert und macht das was er soll, aber ich lerne gern noch dazu, nur bitte für diese komplexe Thema vertiefte Angaben:
Wird im Entwurf von Elvis noch ein Com-Object erzeugt oder ist das eine Lib ?
In dem Delphi Client spreche ich das Com-Interface an und die exportierte DLL ?