Hallo,

ich habe mir eine dll erstellt (Datei->Neu->Dll Expert) und habe dort ein neues Com Objekt eingespflegt (Datei->Neu->Com-Objekt).

In dem Com Objekt habe ich eine Klasse und eine Methode hinzugefügt.
In meinem Projektcode habe ich noch die DLL Registrierungs Methoden exportiert:

zusammenfalten · markieren

Delphi-Quellcode:

library ZipObject;


uses
  SysUtils,
  Classes,
  zip_TLB in 'zip_TLB.pas',
  uMain in 'uMain.pas' {ZipObject: CoClass},
  ComServ;


{$R *.TLB}


{$R *.res}


exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;


begin
end.

Danach habe ich mir die dll gebaut und über REGSVR32 [pfad zur dll] erfolgreich registriert.

Beim aufruf aus einem Testprogramm bekomme ich nun immer den Fehler "Schnittstelle nicht unterstützt".

Kann mir einer von euch helfen was ich evtl. vergessen habe/falsch mache?

Danke & Gruß
Andreas

Crosspost: http://forum.delphi-treff.de/showthr...rst%FCtzt-quot

Du musst ein Automatisierungsobjekt erzeugen.

markieren

Delphi-Quellcode:

initialization
  TAutoObjectFactory.Create(....

gruss