ActiveX Unterschied zw. Sub und Funktion

[neolithos]

Ich will ein Project von VB zu Delphi konvertieren.

Nun mein Problem:
Wie Deklariere ich diese ActiveX-Function in Delphi.

Code:

Public Function PreInit(ByVal aFile As Workbook) As Boolean

In der Typen der Typen Bibliothek sieht es so aus...

Code:

VARIANT_BOOL _stdcall PreInit([in] Workbook * awkb);

Dummerweise deklariert er die Function als SafeCall. D.h. der einzige Rückgabetyp wäre HRESULT, doch dann wäre es aber eine SUB.

[sakura]

Mal ein Frage vorweg. Du willst ein vorhandenes ActiveX aus Delphi heraus ansprechen, oder? Dann gehe einfach mal im Menü Projekt auf den Punkt Typenbibliothek importieren..., dann macht Delphi alles für Dich ;-)

...:cat:...

[neolithos]

Ich will eine von mir in VB geschriebene ActiveX-Bibliothek für Erweiterungen portieren.

Mir gefällt der VB-Code nicht :mrgreen: . Und er macht bloß ärger. Registrierung, Nix ableiten ...

Nun wollen aber verschiedene Kunden das Modul haben. Leider hat jeder seine Änderungsvorschläge und die will ich mittels Klassen-Konzept (ableiten) unterbringen. Das geht aber nicht in VB.

[sakura]

Okay, dann solltest Du folgenden Weg gehen:

• Datei -> Neu -> andere... -> ActiveX -> ActiveX Library

Anschließend

• Datei -> Neu -> andere... -> ActiveX -> COM Objekt (oder Active Server Object, oder...)

Objekt-Basiseigenschaften festlegen
Jetzt kannst Du über das Menü

• Ansicht -> Typenbibliothek...

Die COM-Schnittstellen komfortabel editieren und ändern. Einfach die gewünschten Methoden und Eigenschaften einstellen, speichern und das Code-Gerüst, welches Delphi dann erstellt mit den nötigen Aktionen "füttern".

...:cat:...

[neolithos]

Das hab ich alles gemacht!

Aber es geht noch nicht so wie ich will.

Denn ich möchte in der Schnittstelle Funktionen und Proceduren (Sub's un VB) verwenden.

Mit den SUB's gibt es keine Probleme, doch wie erstell ich Functionen.