Hallo Sven,
entschuldige, daß ich mich erst so spät melde.
An einen bug-report trau ich mich nicht ran, die .tlb hab ich aber angehängt.
Es gibt aber noch weitere Probleme.
Wenn ich in der automatisch erzeugten
Unit folgende Typen deklariere:
Code:
Type
TPoint02 = array[0..2] of Double;
TPoint01 = array[0..1] of Double;
TArrayShortInt = array[0..1] of ShortInt;
TpCells = array[0..15] of Double;
TpnOrder = array[0..1] of LongWord;
TpCells = array[0..8] of Double;
PIUnknown = IUnknown; // *1)
und im Quelltext entsprechend ersetze,läßt sich die .lpk compilieren und installieren.
Sobald aber in Lazarus ein Objekt auf einem Formular plaziert wird, stürzt Lazarus komplett ab.
Kann aber auch an *1) liegen, da habe ich besseren Wissens nur improvisiert.
Ausserdem finde ich in der Bibliothek kein Objekt namens Application.
In Delphi erhalte ich durch
InventorApp:= GetActiveOleObject('Inventor.Application') As Inventor_TLB.Application; // Inventor_TLB = PackageName
die Verbindung zum
OLE-Server.
(* auch GetActiveOleObject('{xxxxxxxxxxxxxxx}') KlassenId mit ROT-Viewer geht nicht *)
Gruß
Bernhard