Beim Importieren einer DLL als Typelibrary unter Delphi 6 werden aus functionen procedure:

Definition in der DLL:

public virtual HRESULT GetImage ( long lIndex , ImageFormat Format , VARIANT * pVal )



wird nach dem Import:


procedure TMyData.GetImage(lIndex: Integer; Format: ImageFormat; out pVal: OleVariant);
begin
DefaultInterface.GetImage(lIndex, Format, pVal);
end;


In HRESULT sollte eigentlich ein errorcode zurückgegeben werden.

Jemand eine Idee?

Hi,

ich gehen mal davon aus das bei einer virtual deklaration der Importer probleme hat da die eigentlichen deklaration in einer anderen klasse erfolgt.

Environment Options->Type Library kann mann verschiedene Einstellungen in dieser Hinsicht auch für den Import externer DLL einstellen.