Probleme mit COM Anwendung

[MechMac666]

Du möchtest das ich die Typenbibliothek inventor_tlb.pas neu erzeugen lasse?

In der gegenwärtigen Datei steht aber:
// Datei am 03.09.2019 10:31:45 erzeugt aus der unten beschriebenen Typbibliothek.

Das bedeutet doch das sie neu ist.

Falls Du etwas anderes beabsichtigst, habe ich es nicht verstanden.

Gruß, Andreas



PS.: hab gerade nachgeschaut: Unter ActiveX gibt es nix passendes. Und wenn ich Typenbibliothek wähle, ist da nur die
Inventor Object Library (RxInventor.tlb)


Nur wie gesagt, in der aktuellen inventor_tlb.pas steht:

Code:

// Datei am 03.09.2019 10:31:45 erzeugt aus der unten beschriebenen Typbibliothek.

// ************************************************************************  //
// Typbib.: C:\Program Files\Autodesk\Inventor 2013\Bin\bin32\RxInventor.tlb (1)

[ptietke]

Wenn das Interface Delphi nicht bekannt ist,
kannst du es über die .TLB neu importieren.

1. Im Menü unter Komponente / Komponente importieren.
2. Typbibliothek importieren
3. Button [Hinzufügen] und RxInventor.tlb hinzufügen
4. [Weiter]
5. Im Dialog [X] Komponeten-Wrapper generieren
6. [Weiter]
7. [X] Unit anlegen RxInventor.tlb --> RxInventor_TLB.pas (Wrapper für Delphi)


Dann neue RxInventor_TLB.pas in uses Teil hinzufügen
und das Interface über die CoClass erzeugen.

var
IAddInServer: IRxApplicationAddInServer;

IAddInServer := CoTAppAddInServ.Create;

[MechMac666]

Zitat von ptietke:

7. [X] Unit anlegen RxInventor.tlb --> RxInventor_TLB.pas (Wrapper für Delphi)

Das importieren von RxInventor.tlb erzeugt aber die inventor_tlb.pas.
Die Unit steht bereits in der uses Klausel.

Das erzeugen über die CoClass hat nicht funktioniert. Angeblich sei die Klasse nicht registriert.


Folgendes ist mir aufgefallen:
in der skg_lib_TLB steht:

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


Diese GUID kann aber nicht existieren, denn es ist die GUID mit der ich eben dieses Projekt (*.dll) in der Windows Registry registrieren soll.
Was ich meine: Wenn ich regsvr32 ausführe und der Abschnitt "initialization" in der main.pas ausgeführt wird, steht da doch etwas von "Class_TAppAddInServ".
Das heißt er versucht auf etwas zuzugreifen was (noch) nicht in der Windows-registrierung existiert...


Hier die REG-Datei, da sieht man es:
(Wobei ich ja fest der Meinung bin, das da noch InpocServer32 mit dem Pfad zu der *.dll fehlt)

Code:

REGEDIT4

[HKEY_CURRENT_USER\Software\Classes\CLSID\{CF9F95ED-6F73-4055-8357-D707AD9C1222}]
@="SKG_INVADDON"

[HKEY_CURRENT_USER\Software\Classes\CLSID\{CF9F95ED-6F73-4055-8357-D707AD9C1222}\Description]
@="This sample demos skg addon."

[HKEY_CURRENT_USER\Software\Classes\CLSID\{CF9F95ED-6F73-4055-8357-D707AD9C1222}\Implemented Categories\{39AD2B5C-7A29-11D6-8E0A-0010B541CAA8}]

[HKEY_CURRENT_USER\Software\Classes\CLSID\{CF9F95ED-6F73-4055-8357-D707AD9C1222}\Settings]
"LoadOnStartUp"="1"
"Type"="Standard"
"Version"=dword:1
"SupportedSoftwareVersionGreaterThan"="14.."

[ptietke]

Es gibt ein Delphi Tool TRegSvr.exe dafür
Siehe unter:

http://docwiki.embarcadero.com/RADStudio/Rio/de/TRegSvr.exe:_Das_Hilfsprogramm_f%C3%BCr_die_Typbib liotheksregistrierung