Moin,
mitlerweile läuft meine Anwendung die Delphi/C++ mixed. Ich stand nun jedoch vor einem Problem: Dynamischer Speicher z. B. TBytes
In C++ wurde mein Delphi Interface wie folgt definiert: (
System::DynamicArray<System::Byte>
entspricht in Delphi
TBytes
)
Code:
class PASCALIMPLEMENTATION TMyAbstractService : public System::TObject
{
typedef System::TObject inherited;
public:
virtual System::DynamicArray<System::Byte> __fastcall getData() = 0 ;
public:
/* TObject.Create */ inline __fastcall TMyAbstractService() : System::TObject() { }
/* TObject.Destroy */ inline __fastcall virtual ~TMyAbstractService() { }
};
Die getData Funktion wird aus C++ heraus aufgerufen.
Code:
TBytes data= (*m_service)->getData();
Die Delphi Funktion sieht dann so aus:
Delphi-Quellcode:
function TMyAbstractService.getData(): TBytes;
begin
SetLength(Result, 100000000);
Result[0] := 1;
end;
Es kommt zu einer doppelten Freigabe des Speichers (FastMM4 machte darauf aufmerksam). Umgehen konnte ich das Problem, indem ich selbst Speicher auf dem Heap reserviere und manuell wieder freigebe.
Laut
Supported Classes sollten Dynamische Arrays ja supported sein (Funktioniert ja generelll auch, aber anscheinend das Speichermangement nicht?)
Vielleicht hat ja jemand von euch eine Idee dazu.