ich habe aus einer Typbibliothek mit Delphi eine Unit erzeugt (DesignCAD_TLB.pas) und diese von Lazarus wiederum übersetzten lassen. Das hat auch soweit gefunzt...
Jetzt wollte ich folgendes ausprobieren...
Code: Alles auswählen
procedure TForm1.FormCreate(Sender: TObject);
begin
try
DcApp := GetOleObject('DesignCAD_TLB.Application') as IDcadApp;
except
ShowMessage('Erst DesignCAD starten...');
Close();
end;
end;
...aber der Compiler hat ein Problem mit GetActiveOleObject.
Unter uses habe ich OleServer eingefügt, klappt aber nicht.
Hat jemand eine Idee?
Danke
Gruß
Volker