Free Pascal Syntax

[Berni68]

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