c# DLL .NET in DELPHI32 nutzen

[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

[ChrisE]

Hallo,

ok, der Aufbau scheint hier einfach etwas anders zu sein, als ich es bisher kenne. Das VB6-Beispiel zeigt ja wie es geht.

Du nutzt die Klasse um Dein Event zu erhalten und holst dir das Interface ICoffeeBarController über die Klasse. Aber das hast du ja wahrscheinlich selber schon gesehen aus dem VB6 Beispiel

Greez, Chris

[r_kerber]

Muss man für jetzt für jedes Event solch einen Aufwand betreiben? Ich habe das bisher eigentlichen auf die Unzulänglichkeiten in VB6 geschoben. Hatte eigentlich gehofft, dass man hier ähnliche arbeiten kann wie bei einem ActiveX-Control.

[ChrisE]

Soweit ich das jetzt überblicke, hast du ja nur ein Event

Aber es sieht schon so aus, als ob das alles so aufgeteilt ist und du dir über den Controller die entsprechenden Interfaces holen musst.

Greez, Chris