C# Delegates in Delphi konsumieren

[generic]

Ich glaube nicht, dass das geht.

Über COM kannst du nur Interfaces austauschen und keinen Zeiger auf eine Funktion.
ggf. den Delegaten in ein Interface bzw. Objekt einwickeln.

[Robotiker]

Außerhalb von COM gibt es da Wege, es gibt ja z.B.
http://msdn.microsoft.com/de-de/libr...rdelegate.aspx

Aber eventuell muss man da mit VC++ eine mixed DLL schreiben, mit einer nativen und managed Seite. Die packt man dann zwischen Delphi und C#.

http://stackoverflow.com/questions/2...unmanaged-code

[generic]

VC++ ist nicht erforderlich, denn Delphi kann eben so DLL erzeugen.
Wichtig ist nur der Export der Funktionen.

Allerdings passt dann das Beispiel bei Stackoverflow natürlich nicht mehr.

PInvoke ist dann das Stichwort.

[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

[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 ?