Objektinstanz an Hauptprogramm übergeben

[Neutral General]

Hi,

Die Situation ist die:

Ich erstelle in einer DLL ein Objekt. Und zwar kann das im Moment ein TBitmap oder ein T3DDataFile (eigene Klasse) Objekt sein.
Auf das T3D2File Objekt hat das Hauptprogramm durch das IFileFormat Interface Zugriff. Und somit auch auf die Funktion GetData.

Übergebe ich bei GetData.Data ein TBitmap, so kommt das auch heil im Hauptprogramm an, aber meine eigene Klasse macht da immer Ärger -.- Kann im Hauptprogramm nicht vernünftig drauf zugreifen.

Habe schon im Forum gelesen das es immer so ein Problem ist Objektinstanzen von der DLL ans Hauptprogramm weiterzugeben, hab aber leider keine Lösung gefunden.

ShareMem hab ich sowohl in der DLL als auch im Hauptprogramm eingebunden.

Delphi-Quellcode:

// DLL Code
PRawData = ^TRawData;
TRawData = record
  DataType: Byte;
  Data: Pointer;
end;

IFileFormat = Interface(IUnknown);
  ['{1CF74E69-391A-4BF4-8F0D-E5C958D21196}']
  function GetData: PRawData;
end;

TFileFormat = class(TInterfacedObject,IFileFormat);

T3D2File = class(TFileFormat);

function T3D2File.GetData: PRawData;
begin
  inherited GetData;
  New(Result);
  Result.DataType := 1;
  Result.Data := @FData; // FData: T3DDataFile;  || T3DDataFile = class
end;

Gruß
Neutral General