C# Delegates in Delphi konsumieren

[Nic2012]

Hallo,
analog zu diesem Beispiel
http://www.drbob42.com/examines/examin36.htm
habe ich in VisualStudio2010 ein Com Object in C# erstellt, dessen Getter und Setter ich problemlos in Delphi7 konsumieren kann.

Wie müsste man aber in C# Delegates so deklarieren, daß ich sie in der D7-Anwendung als Callback ansprechen kann?

Gruß,
Nic

[Bernhard Geyer]

Eine Möglichkeit wäre sie sichtbar für COM zu machen:

http://msdn.microsoft.com/de-de/libr...attribute.aspx

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

Zitat von generic (Beitrag 1204131)

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:

Zitat von Robotiker (Beitrag 1204142)

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

*Hust*

[Robotiker]

Zitat:

Zitat von Elvis (Beitrag 1204157)

*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:

Zitat von Nic2012 (Beitrag 1204163)

Sieht gut aus oder ?

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