Probleme mit COM Anwendung

[MechMac666]

Hallo,

ich möchte ein Addon erstellen, welches per COM mit der Hostanwendung kommuniziert.
Die Anwendung ist eine ActiveX Bibliothek.
Die Hostanwendung ist Autodesk Inventor 2013. Sie stellt eine Typenbibliothek zur Verfügung, welche von dem Addon verwendet werden kann.
Ich muss dazu sagen das das für mich Neuland ist. Leider habe ich dazu nicht wirklich viel gefunden.
Es gibt ein (altes) Beispiel:
https://forums.autodesk.com/t5/inven...hi/td-p/761778

Dort schreiben sie noch über Probleme mit dem Interface_IRxApplicationAddInServer.
Mittlerweile ist es jedoch so das IRxApplicationAddInServer existiert (ohne den Unterstrich)
Des weiteren habe ich in der "Inventor_TLB.pas" eine Definition von "ApplicationAddInSite" gefunden, welche wohl auch Korrekt ist.

Jetzt mein Vorgehen:
Ich habe eine leere ActiveX Lib erzeugt und habe in der RIDL bei Verwendung ein Häkchen bei Inventer Object Library gesetzt.
Dann habe ich eine COClass erzeugt und hier musste ich etwas tricksen. Das IRxApplicationAddInServer konnte ich nicht als zu implementierendes Interface auswählen, ich nahm ein anderes und habe den Code manuell angepasst, sprich ich habe die Procedur-Header aus der Typenbibliothek verwendet etc.
Soweit so gut.
Das Teil kompiliert nun, jedoch kann ich die von mir erzeugte Lib nicht registrieren lassen (regsvr32 ...)
Es scheitert im Abschnitt initialization.
Wenn ich den Auskommentiere klappt die Registrierung, also muss es damit etwas zu tun haben.

Hinweis:
In den Codes steht manchmal in den Kommentaren noch "AIMDAddInLib"
Das war diese Sache mit dem tricksen. die "AIMDAddInLib" wurde von mir durch "IRxApplicationAddInServer" ersetzt.

Hier der Code von der main Unit.
Der Fehler wird vermutlich beim erstellen von TTAppAddInServ auftreten.
Ich weiß nicht wo ich da anfangen soll zu suchen.

Code:

unit main;

{$WARN SYMBOL_PLATFORM OFF}

interface



uses
  ComObj, ActiveX, skg_lib_TLB, Inventor_TLB, StdVcl,
  Winapi.Windows, Winapi.Messages, System.Variants, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TTAppAddInServ = class(TAutoObject, IRxApplicationAddInServer)
  protected
    function Get_Automation(out AutomationPtr: AddInAutomation): HResult;stdcall;
    function Activate(const pAddInSite: IRxApplicationAddInSite; FirstTime: BooleanType): HResult; stdcall;
    function Deactivate: HResult; stdcall;
    function ExecuteCommand(CommandID: Integer): HResult; stdcall;
  end;

var
  oInventor : Inventor_TLB.Application;
  oCmd1 : Inventor_TLB.Command;

implementation

uses ComServ;





function TTAppAddInServ.Get_Automation(out AutomationPtr: AddInAutomation): HResult;
begin
  Result := E_NOINTERFACE;
end;



function TTAppAddInServ.Activate(const pAddInSite: IRxApplicationAddInSite; FirstTime: BooleanType): HResult; stdcall;
begin
  //init
  //AppDefault := InitApplication;
  //get the InventorObject
  //oInventor := pAddInSite.Get_Application(???)  ;
  //Create commands
  //oCmd1 := pAddInSite.CreateCommand('My Add In Command',1,True,IUnknown );
  showmessage('hallo');
  Result := S_OK;
end;



function TTAppAddInServ.Deactivate: HResult;
begin
  //CleanUp
  oInventor := nil;
  oCmd1 := nil;
  Result := S_OK;
end;


function TTAppAddInServ.ExecuteCommand(CommandID: Integer): HResult;
begin
  Case CommandID of
  1: begin
  //here your Code for your command
  end;
  end;
  Result := S_OK;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TTAppAddInServ, Class_TAppAddInServ,
  ciMultiInstance, tmApartment);

end.

Und hier ist noch die Projektdatei:

Code:

library SKG_INV_ADDON;

uses
  ComServ,
  skg_lib_TLB in 'skg_lib_TLB.pas',
  main in 'main.pas' {TAppAddInServ: CoClass};

exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer,
  DllInstall;

{$R *.TLB}

{$R *.RES}

begin
end.

Und die RIDL gibts hier auch noch:

Code:

// ************************************************************************ //
// WARNUNG
// -------
// Diese Datei wird von dem Typbibliotheks-Importer oder dem Typbibliothekseditor
// erzeugt. Außer Syntaxfehlern analysiert der Editor an der Datei vorgenommene
// Änderungen. Wenn Sie aber Änderungen mit dem Editor vornehmen, wird diese
// Datei neu erzeugt und Kommentare oder Formatänderungen gehen verloren.
// ************************************************************************ //
// Datei erzeugt am 03.09.2019 10:32:22 (- $Rev: 12980 $, 16593514).

[
  uuid(6F58D4C7-4BE5-48C2-9F71-B1BBD18A9EDD),
  version(1.0)

]
library skg_lib
{

  importlib("stdole2.tlb");
  importlib("RxInventor.tlb");

  coclass TAppAddInServ;


  [
    uuid(CF9F95ED-6F73-4055-8357-D707AD9C1222),
    helpstring("TAppAddInServ")
  ]
  coclass TAppAddInServ
  {
  };

};

Und die skg_lib_TLB

Code:

unit skg_lib_TLB;

// ************************************************************************ //
// WARNUNG
// -------
// Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek
// generiert. Wenn diese Typbibliothek explizit oder indirekt (über eine
// andere Typbibliothek) reimportiert wird oder wenn der Befehl
// 'Aktualisieren' im Typbibliotheks-Editor während des Bearbeitens der
// Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und
// alle manuell vorgenommenen Änderungen gehen verloren.
// ************************************************************************ //

// $Rev: 52393 $
// Datei am 03.09.2019 06:58:46 erzeugt aus der unten beschriebenen Typbibliothek.

// ************************************************************************  //
// Typbib.: C:\Users\.....\INV_addon 3\skg_lib (1)
// LIBID: {6F58D4C7-4BE5-48C2-9F71-B1BBD18A9EDD}
// LCID: 0
// Hilfedatei:
// Hilfe-String:
// Liste der Abhäng.:
//   (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
//   (2) v1.0 Inventor, (C:\Program Files\Autodesk\Inventor 2013\Bin\bin32\RxInventor.tlb)
//   (3) v1.0 AIMDAddInLib, (C:\Program Files (x86)\Autodesk\Productstream Professional 2011\cai\aim_dlls\AIMDAddIn_Inv13_x64.dll)
// SYS_KIND: SYS_WIN32
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit muss ohne Typüberprüfung für Zeiger compiliert werden.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}

interface

uses Winapi.Windows, Inventor_TLB, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer,
Winapi.ActiveX;

// *********************************************************************//
// In der Typbibliothek deklarierte GUIDS. Die folgenden Präfixe werden verwendet:
//   Typbibliotheken      : LIBID_xxxx
//   CoClasses            : CLASS_xxxx
//   DISPInterfaces       : DIID_xxxx
//   Nicht-DISP-Interfaces: IID_xxxx
// *********************************************************************//
const
  // Haupt- und Nebenversionen der Typbibliothek
  skg_libMajorVersion = 1;
  skg_libMinorVersion = 0;

  LIBID_skg_lib: TGUID = '{6F58D4C7-4BE5-48C2-9F71-B1BBD18A9EDD}';

  CLASS_TAppAddInServ: TGUID = '{CF9F95ED-6F73-4055-8357-D707AD9C1222}';
type

// *********************************************************************//
// Deklaration von in der Typbibliothek definierten CoClasses
// (HINWEIS: Hier wird jede CoClass ihrem Standard-Interface zugewiesen)
// *********************************************************************//
  TAppAddInServ = IRxApplicationAddInServer;


// *********************************************************************//
// Die Klasse CoTAppAddInServ stellt die Methoden Create und CreateRemote zur
// Verfügung, um Instanzen des Standard-Interface IAIMDAddInServer, dargestellt
// von CoClass TAppAddInServ, zu erzeugen. Diese Funktionen können
// von einem Client verwendet werden, der die CoClasses automatisieren
// will, die von dieser Typbibliothek dargestellt werden.
// *********************************************************************//
  CoTAppAddInServ = class
    class function Create: IRxApplicationAddInServer;
    class function CreateRemote(const MachineName: string): IRxApplicationAddInServer;
  end;

implementation

uses System.Win.ComObj;

class function CoTAppAddInServ.Create: IRxApplicationAddInServer;
begin
  Result := CreateComObject(CLASS_TAppAddInServ) as IRxApplicationAddInServer;
end;

class function CoTAppAddInServ.CreateRemote(const MachineName: string): IRxApplicationAddInServer;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_TAppAddInServ) as IRxApplicationAddInServer;
end;

end.

Gruß, Andreas