Delphi / C++ mischen

[pustekuchen]

Hallo zusammen,

zur CodeRage XI gab es einen Vortrag dazu, wie man C++ Code aus Delphi aufruft.

Ich habe das Beispiel zum Laufen gebracht (Delphi/C++-Builder 11) und bin sogar noch einen Schritt weiter gegangen und habe eine externe Bibliothek (protobuf) kompiliert & gelinkt bekommen.
Was etwas lässtig ist, ist das man zu jeder Klasse die man in beiden Sprachen verwenden möchte, jeweils eine Abstrakte Klasse erstellen muss und dazu noch eine Create-Funktion.

Hat damit jemand Erfahrung? Ist diese Vorgehensweise in dem Video die aktuell beste/optimalste Möglichkeit oder gibt es mittlerweile bessere wege?

Gruß
pustekuchen

[himitsu]

Andersrum geht es super.

Du kannst Delphi-DCUs im C++Builder nutzen, also Delphi in dein C++ rein mischen.


Ins Delphi kann man leider kein C++ rein bekommen.
Aber man kann vorkompilierten Code einbinden, z.B. als OBJ-Datei.
Damit Delphi damit aber was anfangen kann, muß man ihm die Funktions-Sugnaturen geben, als Delphi/Pascal.


z.B. siehe ZLib/Zip, JPEG, PNG, RegEx usw., was auf diese Weise alles ins Delphi reinkommt.
Es muß auch kein C++ sein, sondern kann auch aus anderen Sprachen kompiliert wurden sein.

[pustekuchen]

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.