instantiation af server object
Jeg har importet følgende ved hjælp af import type library:// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TFMANSpecData
// Help String : FMANSpecData Class
// Default Interface: IFMANSpecData
// Def. Intf. DISP? : No
// Event Interface: _DataEvents
// TypeFlags : (2) CanCreate
// *********************************************************************//
Når jeg køre koden nedenfor får jeg: "class not registered"
procedure TForm1.Button4Click(Sender: TObject);
var
spec:FMANSpecData;
begin
if opendialog1.Execute then
begin
spec := CreateComObject (FMANSpecData) as Ifmanspecdata;
end;
end;
Jeg har noget VB kode som køre fint (så jeg er sikker på at Fmanspecdata er installeret ordentlig på min maskine).
VB kode:
Private mANALYSTCOM_Data3 As QS11.ExploreDataObjects.FMANSpecData
mANALYSTCOM_Data3 = Nothing 'Lazy instantiation'
Jeg har også en component med navnet Tfmanspecdata som jeg kan sætte på min form men hvis jeg prover at bruge component direkte får jeg access violation.