c# DLL .NET in DELPHI32 nutzen

[r_kerber]

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;

[ChrisE]

Gut

Damit hast du ja dann alles was du brauchst

Greez, Chris

[r_kerber]

Zitat von ChrisE:

Damit hast du ja dann alles was du brauchst

Vor allem Verständnisschwierigkeiten.

[ChrisE]

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 perMyCoffeeBarController.OnBrewed := MyBrewedEvent . Wenn du auf das Interface zugreifen willst einfach per MyCoffeeBarController.DefaultInterface.AddBean('a'); Ich hoffe, das Hilft.

Greez, Chris

[r_kerber]

Zitat von ChrisE:

Beim erstellen der Objectinstanz von CoffeBarController dein eigenes Event der Objektinstanz zuweisen perMyCoffeeBarController.OnBrewed := MyBrewedEvent

Das funktioniert.

Zitat von ChrisE:

Wenn du auf das Interface zugreifen willst einfach per MyCoffeeBarController.DefaultInterface.AddBean('a');

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

[ChrisE]

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

[r_kerber]

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