Daten von C nach PAS und PAS nach C ...

[dummzeuch]

Ich habe (unter anderem) darüber auf den letzten Forentagen einen Vortrag gehalten. Auf der Seite gibt es auch Sourcecode-Auszüge.

[paule32.jk]

ah mich deuchtet was ...
der Thomas hat im Quellcode GetProcAddr Pointer verwendet.

jetzt fällt mir gerade ein, das ja der Constructor - egal welche Sprache, ja eine Objekt-Referenz zurückliefert, die dann durchgereicht werden kann...
nicht schlecht sprach Herr Specht.
Danke

[himitsu]

Nein, egal ob zu C++ oder sonstwas ... Klassen-Instanzen zu übergeben macht man einfach nicht.

Bei Packages wird die TypeInfo/Klassendeklaration und die Prozeduren gemeinsam genutzt.
Bei DLL besitzt JEDER seine eigene Kopie und die kann sich beim Kompilieren minimal/extremst unterscheiden, selbst wenn auf beiden Seiten das gleiche Delphi zum Einsatz kam.

Nicht nur die getrennten TypeInfo/RTTI ... ohne ein Shared-Memory geht sowieso nix.

Selbst mit viel einfacheren Strukturen gab es hier ganz böse Probleme.
https://www.delphipraxis.net/213736-...-fuer-neu.html

[paule32.jk]

und wenn man nur die Funktionnamen zu einer importierten Funktion weiterleitet,
und dann intern die Pointer handhabt ... ?

hmmm, doppelt nachgedacht, macht das Sinn...

[Incocnito]

Keine Chance, echt Objekte (außer jetzt die serialisierte Form, wie bei Json) rüber zu reichen ist nicht zu empfehlen.
Ja, es kann sein, dass es klappt, aber liegt beim Kunden die alte DLL, die Exe wurde aber mit einem anderen Compilerflag
compiliert und er nutzt die neue EXE bekommt er lustig Fehlermeldungen und Speicherfehler, die keiner vernünftig
lokalisieren kann.
Lass dich nicht zu verleiten, das so zu tun, nur weil es bei dir beim ersten Test klappt
(oder weil du heute sagst "DLL und EXE werden immer zusammen ausgeliefert").
Das wird dich in falscher Sicherheit wiegen!

[himitsu]

Wenn, dann maximal als Pointer und im C wirklich nichts damit machen, außer durchreichen (auf delphiseite ein Cast ... Cast, nicht Pointer auf Variable)

[dummzeuch]

Zitat von paule32.jk:

ah mich deuchtet was ...
der Thomas hat im Quellcode GetProcAddr Pointer verwendet.

jetzt fällt mir gerade ein, das ja der Constructor - egal welche Sprache, ja eine Objekt-Referenz zurückliefert, die dann durchgereicht werden kann...
nicht schlecht sprach Herr Specht.
Danke

Ich reiche keine Pointer auf Instanzen durch sondern nur ein Handle, welches einem Index in ein Array von Instanzen entspricht. Schau Dir den im Vortrag genannten Link auf ein Beispiel bei Embarcadero an, da steht, wie das funktioniert.

Wichtig: Eine C++-Instanz wird automatisch freigegeben, wenn es keine Referenz mehr darauf gibt. Deshalb muss man diese Istanz im Array speichern, bevor die Funktion in der DLL, die die Instanz erzeugt hat, verlassen wird. (Zumindest habe ich das gerade so in Erinnerung, es ist schon wieder eine ganze Weile her, dass ich mich mit dem Kram beschäftigt habe.)

[himitsu]

OK, Objekt vom C++, welches im Delphi durchgereicht wird.

Ober Objekt von Delphi, welches im C++ durchgereicht wird.
Joar, falls dort ARC aktiv wäre, dann hätte man ebenfalls diesen Spaß mit der Referenzzählung.

[paule32.jk]

Hallo Thomas,
ja, das stimmt.
Speicher(variablen) wird solange gehalten bis sie nicht mehr genutzt werden.
Es gibt zwei Arten, wie Variablen gehalten werden:

Heap => innerhalb einer Prozedur/Funktion gültig (lokaler Scope), und:
Stack => überlebt, wenn die Prozedur/Funktion verlassen wird.

Das mit den Array war ja auch so in meine Richtung...
Eine in C++ verwendete std::map< std::string, void* > Insntanzen;

Dann braucht man nur noch in etwa sowas machen: instanzen["foo"] = 0xcafebabe;
und die map im globalen Scope belassen, dann überleben die Pointer.

Aber ich habe gerade ein anderes Problem:

hier verwende ich einen Delphi-PChar:

Delphi-Quellcode:

{$APPTYPE CONSOLE}
program Project1;

uses Windows;

type
  TMyFunction = procedure(s: PChar); cdecl;

var
  DLLHandle: HMODULE;
  MyFunction: TMyFunction;

begin
  DLLHandle := LoadLibrary('foo.dll');
  if DLLHandle = 0 then
  begin
    MessageBox(0,'Error: DLL could not be loaded.','Error',0);
    ExitProcess(1);
  end;
  try
    @MyFunction := GetProcAddress(DLLHandle, 'TestFunction');
    if @MyFunction = nil then
    begin
      MessageBox(0, 'Error: TestFunction not found in DLL.', 'Error', 0);
      ExitProcess(1);
    end;
    MyFunction(PChar('jukel'));
  finally
      FreeLibrary(DLLHandle);
      ExitProcess(0);
  end;
end.

und hier nur einen 0-terminierten C char *:

Code:

#include <windows.h>
#include <iostream>

#ifdef _WIN64
    #define DLL_EXPORT __declspec(dllexport)
#else
    #define DLL_EXPORT
#endif

extern "C" {
DLL_EXPORT void TestFunction(char* func) {
    std::cout << "Func: " << func << std::endl;
}
};

beide Image-Dateien sind im 64-Modus kompiliert.
Aber ich erhalte als Ergebnis (auf der Konsole):

Func: j

[Sinspin]

Was ist denn char in C++ und PChar in Delphi für ein Typ? Haben die die gleiche Anzahl von Bytes je Zeichen?