Delphi-PRAXiS - Delphi c# DLL .NET in DELPHI32 nutzen

Seite 2 von 3

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi c# DLL .NET in DELPHI32 nutzen (https://www.delphipraxis.net/121103-c-dll-net-delphi32-nutzen.html)

Re: c# DLL .NET in DELPHI32 nutzen

@EDE: Erstelle dafür bitte ein eigenes Thema :-)

AW: c# DLL .NET in DELPHI32 nutzen

Sodele, dann will ich diesen alten Fred noch mal an's Tageslicht holen. Zunächst ein Ausschnit aus der TLB:

Delphi-Quellcode:

			interface

uses Windows, ActiveX, Classes, Graphics, mscorlib_TLB, OleServer, StdVCL, System_TLB, 

System_Windows_Forms_TLB, Variants;

// *********************************************************************//

// In dieser Typbibliothek deklarierte GUIDS . Es werden folgende         

// Präfixe verwendet:                                                     

//   Typbibliotheken     : LIBID_xxxx                                     

//   CoClasses           : CLASS_xxxx                                     

//   DISPInterfaces      : DIID_xxxx                                      

//   Nicht-DISP-Schnittstellen: IID_xxxx                                       

// *********************************************************************//

const

  // Haupt- und Nebenversionen der Typbibliothek

  CoffeeBarMajorVersion = 1;

  CoffeeBarMinorVersion = 0;

  LIBID_CoffeeBar: TGUID = '{139F5D3F-8DE9-4FCE-9923-B6BA49633642}';

  DIID_ICoffeeBarControllerEvents: TGUID = '{EAACEE53-949A-4696-96A7-1EF7C5D31369}';

  IID_ICup: TGUID = '{84845D18-CCF1-46C1-AAD9-6DEF0DDDE05E}';

  IID_ICoffeeBarController: TGUID = '{4C47A0AB-BE53-47CA-B885-A4D4C55E7A98}';

  IID__CoffeeBarController: TGUID = '{A547F46B-C929-3AEC-8D50-D947AE1E32B3}';

  CLASS_CoffeeBar_: TGUID = '{E09C9B19-B865-4CB2-B4A3-3F7E986DCC7A}';

  CLASS_Cup: TGUID = '{E37A70DA-74B2-4CB7-8020-F8E4CE7DBA3D}';

  CLASS_Bean: TGUID = '{F0818ED3-7E04-4F74-827D-F7F7033D7DAF}';

  CLASS_CoffeeBarController: TGUID = '{40921CDF-5944-4E8A-9873-10F92450E7F9}';

type

// *********************************************************************//

// Forward-Deklaration von in der Typbibliothek definierten Typen         

// *********************************************************************//

  ICoffeeBarControllerEvents = dispinterface;

  ICup = interface;

  ICupDisp = dispinterface;

  ICoffeeBarController = interface;

  ICoffeeBarControllerDisp = dispinterface;

  _CoffeeBarController = interface;

  _CoffeeBarControllerDisp = dispinterface;

// *********************************************************************//

// Deklaration von in der Typbibliothek definierten CoClasses             

// (HINWEIS: Hier wird jede CoClass zu ihrer Standardschnittstelle        

// zugewiesen)                                                            

// *********************************************************************//

  Cup = ICup;

  Bean = _Object;

  CoffeeBarController = _CoffeeBarController;

// *********************************************************************//

// DispIntf:  ICoffeeBarControllerEvents

// Flags:     (4096) Dispatchable

// GUID:      {EAACEE53-949A-4696-96A7-1EF7C5D31369}

// *********************************************************************//

  ICoffeeBarControllerEvents = dispinterface

    ['{EAACEE53-949A-4696-96A7-1EF7C5D31369}']

    procedure Brewed(const ticket: WideString); dispid 1;

  end;

// *********************************************************************//

// Schnittstelle: ICup

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {84845D18-CCF1-46C1-AAD9-6DEF0DDDE05E}

// *********************************************************************//

  ICup = interface(IDispatch)

    ['{84845D18-CCF1-46C1-AAD9-6DEF0DDDE05E}']

    function Taste: WideString; safecall;

    function Get_BeansUsed: WideString; safecall;

    property BeansUsed: WideString read Get_BeansUsed;

  end;

// *********************************************************************//

// DispIntf:  ICupDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {84845D18-CCF1-46C1-AAD9-6DEF0DDDE05E}

// *********************************************************************//

  ICupDisp = dispinterface

    ['{84845D18-CCF1-46C1-AAD9-6DEF0DDDE05E}']

    function Taste: WideString; dispid 1610743808;

    property BeansUsed: WideString readonly dispid 1610743809;

  end;

// *********************************************************************//

// Schnittstelle: ICoffeeBarController

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {4C47A0AB-BE53-47CA-B885-A4D4C55E7A98}

// *********************************************************************//

  ICoffeeBarController = interface(IDispatch)

    ['{4C47A0AB-BE53-47CA-B885-A4D4C55E7A98}']

    procedure OpenCoffeeBar; safecall;

    procedure CloseCoffeeBar; safecall;

    procedure AddBean(const beanName: WideString); safecall;

    procedure BrewCoffee(const beanName: WideString); safecall;

    function GetOrderedCup(const ticket: WideString): ICup; safecall;

    function Get_ServedCoffees: Integer; safecall;

    property ServedCoffees: Integer read Get_ServedCoffees;

  end;

// *********************************************************************//

// DispIntf:  ICoffeeBarControllerDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {4C47A0AB-BE53-47CA-B885-A4D4C55E7A98}

// *********************************************************************//

  ICoffeeBarControllerDisp = dispinterface

    ['{4C47A0AB-BE53-47CA-B885-A4D4C55E7A98}']

    procedure OpenCoffeeBar; dispid 1610743808;

    procedure CloseCoffeeBar; dispid 1610743809;

    procedure AddBean(const beanName: WideString); dispid 1610743810;

    procedure BrewCoffee(const beanName: WideString); dispid 1610743811;

    function GetOrderedCup(const ticket: WideString): ICup; dispid 1610743812;

    property ServedCoffees: Integer readonly dispid 1610743813;

  end;

// *********************************************************************//

// Schnittstelle: _CoffeeBarController

// Flags:     (4432) Hidden Dual OleAutomation Dispatchable

// GUID:      {A547F46B-C929-3AEC-8D50-D947AE1E32B3}

// *********************************************************************//

  _CoffeeBarController = interface(IDispatch)

    ['{A547F46B-C929-3AEC-8D50-D947AE1E32B3}']

  end;

...

gefolgt von Code-Snippets, die den Zugriff auf dieses COM-Objekt zeigen sollen:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  CoffeeBar: ICoffeeBarController;

  //  CoffeeBar2: TCoffeeBarController;

  Result: Integer;

begin

  CoffeeBar := CreateComObject(CLASS_CoffeeBarController) as ICoffeeBarController;

  CoffeeBar.AddBean('A');

  CoffeeBar.AddBean('B');

  CoffeeBar.AddBean('C');

  CoffeeBar.OpenCoffeeBar;

end;

Das funktioniert soweit schon ganz gut. jetzt stellt sich allerdings die Frage, wie man im Delphi-Programm das Event

Delphi-Quellcode:

			  ICoffeeBarControllerEvents = dispinterface

    ['{EAACEE53-949A-4696-96A7-1EF7C5D31369}']

    procedure Brewed(const ticket: WideString); dispid 1;

  end;

abfangen kann

AW: c# DLL .NET in DELPHI32 nutzen

Hallo,

hast du in deiner TLB nicht auch noch irgendwo ne von TOleServer abgeleitet Wrapper-Klasse. Diese Kapselt das ganze doch wieder in eine Klasse mit den entsprechenden Methoden und Events.

Greez, Chris

AW: c# DLL .NET in DELPHI32 nutzen

Jep:

Delphi-Quellcode:

			// *********************************************************************//

// OLE-Server-Proxy-Klassendeklaration

// Server-Objekt    : TCoffeeBarController

// Hilfe-String     : 

// Standardschnittstelle: _CoffeeBarController

// Def. Intf. DISP? : No

// Ereignisschnittstelle: ICoffeeBarControllerEvents

// TypeFlags        : (2) CanCreate

// *********************************************************************//

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  TCoffeeBarControllerProperties= class;

{$ENDIF}

  TCoffeeBarController = class(TOleServer)

  private

    FOnBrewed: TCoffeeBarControllerBrewed;

    FIntf:        _CoffeeBarController;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    FProps:       TCoffeeBarControllerProperties;

    function      GetServerProperties: TCoffeeBarControllerProperties;

{$ENDIF}

    function      GetDefaultInterface: _CoffeeBarController;

  protected

    procedure InitServerData; override;

    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;

  public

    constructor Create(AOwner: TComponent); override;

    destructor  Destroy; override;

    procedure Connect; override;

    procedure ConnectTo(svrIntf: _CoffeeBarController);

    procedure Disconnect; override;

    property DefaultInterface: _CoffeeBarController read GetDefaultInterface;

  published

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    property Server: TCoffeeBarControllerProperties read GetServerProperties;

{$ENDIF}

    property OnBrewed: TCoffeeBarControllerBrewed read FOnBrewed write FOnBrewed;

  end;

AW: c# DLL .NET in DELPHI32 nutzen

Gut :-)

Damit hast du ja dann alles was du brauchst :-)

Greez, Chris

AW: c# DLL .NET in DELPHI32 nutzen

Zitat:

Zitat von ChrisE (Beitrag 1034461)

Damit hast du ja dann alles was du brauchst :-)

Vor allem Verständnisschwierigkeiten. :duck:

AW: c# DLL .NET in DELPHI32 nutzen

Hallo,

einfach erstmal kurz vergessen, dass du ein Com-Klasse verwendest :-)

Eine Objekt-Instanz erstellen von TCoffeeBarController und an beliebiger Stelle erstellen bzw. Freigeben - wie halt immer bei Klassen ;-)

Dann kannst du dein Event vom Typ TCoffeeBarControllerBrewed in Form1 erstellen mit mit Leben befüllen.

Beim erstellen der Objectinstanz von CoffeBarController dein eigenes Event der Objektinstanz zuweisen per

Delphi-Quellcode:

MyCoffeeBarController.OnBrewed := MyBrewedEvent

. Wenn du auf das Interface zugreifen willst einfach per

Delphi-Quellcode:

MyCoffeeBarController.DefaultInterface.AddBean('a');

Ich hoffe, das Hilft.

Greez, Chris

AW: c# DLL .NET in DELPHI32 nutzen

Zitat:

Zitat von ChrisE (Beitrag 1034466)

Beim erstellen der Objectinstanz von CoffeBarController dein eigenes Event der Objektinstanz zuweisen per

Delphi-Quellcode:

MyCoffeeBarController.OnBrewed := MyBrewedEvent

Das funktioniert.

Zitat:

Zitat von ChrisE (Beitrag 1034466)

Wenn du auf das Interface zugreifen willst einfach per

Delphi-Quellcode:

MyCoffeeBarController.DefaultInterface.AddBean('a');

Das DefaultInterface hat leider keine Methode AddBean. Außerdem wird das Formular nicht sichtbar.

AW: c# DLL .NET in DELPHI32 nutzen

Hmmm,

jetzt sehe ich es auch erst. Irgendwie ist der OleServer nur für die Events zuständig nicht aber für den Rest :-( Bei meinen bisherigen COM-Objekten war das aber eigentlich immer so :-( Vor allem waren dort auch die entsprechenden Methoden direkt Implementiert. So musste man quasi gar nicht mehr auf das Interface zugreifen.

Sorry, das habe ich nicht gesehen. Dann weiß ich erstmal auch nicht weiter. Bräuchte die komplette TLB.

Greez, Chris

AW: c# DLL .NET in DELPHI32 nutzen

Habe die TLB.Pas mal angefügt

Nachtrag: IN VB6 geht's so...

Code:

			Public WithEvents objCoffeeBarServant As CoffeeBar.CoffeeBarController

Public iCoffeeBarServant As CoffeeBar.ICoffeeBarController

...

Public Sub Form_Load()

    Set objCoffeeBarServant = New CoffeeBarController

    Set iCoffeeBarServant = objCoffeeBarServant

    ...  

    iCoffeeBarServant.AddBean ("Nicaragua")

    ...

    iCoffeeBarServant.OpenCoffeeBar

End Sub

...

Private Sub objCoffeeBarServant_Brewed(ByVal ticket As String)

    Dim orderedCupOfCoffee As ICup

    Set orderedCupOfCoffee = iCoffeeBarServant.GetOrderedCup(ticket)

    Text1.Text = orderedCupOfCoffee.Taste

    Text2.Text = iCoffeeBarServant.ServedCoffees

End Sub

Seite 2 von 3