C++ DLL (Funktion) nach Delphi

[AJ_Oldendorf]

ok danke für die Info, mir war nur eben nicht ganz klar, ob die array Übernahme in Delphi so richtig ist. Danke

[AJ_Oldendorf]

Ich muss leider nochmal etwas nachfragen weil das für mich auch nicht verständlich ist und ihr könnt mir das evtl. erklären.

Deklaration in C++:

Delphi-Quellcode:

typedef struct My_Struct_S
{
 Record1 rec1; 
 Record2 rec2; 
 Record3 rec3; 

} PPC_BYTE_PACKED My_Struct_T;

My_Struct_T volatile *global_pRam = NULL;

In der C-Datei wird "global_pRam" an einer Stelle befüllt und an ganz vielen Stellen abgefragt und beschrieben.

Befüllt:

Delphi-Quellcode:

My_get_pointer(MyHandle, TIMEOUT_ms, &global_pRam, &my_ErrStruct);

Deklaration der Funktion "My_get_pointer":

Delphi-Quellcode:

My_DWORD My_get_pointer ( 
  My_DWORD    my_handle,  // in 
  My_DWORD    timeout,  // in 
  My_Struct_T  volatile **data,  // out 
  My_ERROR_T    *err);  // out

In der C-Datei wird von "global_pRam" in einer Schleife eine Variable abgefragt und innerhalb der Schleife wird etwas gesetzt von "global_pRam". Das ist eine While Schleife, die sozusagen einen Status abfragt und innerhalb der Schleife wird durch eine andere Funktion etwas gesetzt, was dann den Status ändern müsste, sodass dieser auch wieder abgefragt werden kann.

Delphi-Quellcode:

while(global_pRam->rec1.state != NewState)
{
/* tue irgendwas...

set_modus(myHandle, NewState,&my_ErrStruct);

  while(global_pRam->rec1.state != my_NewSwMode && TimeoutMs < 5000)
  {
    Sleep(50);
    TimeoutMs +=50;
  }

  if(TimeoutMs >= 5000)
  {
  /* state not changed after ms
  }
  else
  {
  /* state successfully changed */
  TimeoutMs = 0;
  }
}

Meine Umsetzung im Delphi sieht jetzt so aus:

Delphi-Quellcode:

global_pRam: PMy_Struct;

New(global_pRam);
My_get_pointer(MyHandle, 5000, global_pRam, @my_ErrStruct);

Meine konkrete Frage ist nun:
Muss ich das "volatile" irgendwie im Delphi berücksichtigen?
Anscheind muss sich innerhalb dieser while Schleife die Werte hinter dem Pointer ändern, sodass ich überhaupt auf Änderung reagieren kann.
Ist das dann so richtig, dass ich vorher einfach das New aufrufe und dann die Funktion "My_get_pointer"? Ändern sich die Werte dann genauso hinter dem Zeiger, denn die Funktion "My_get_pointer" ist in einer DLL, welche ich aufrufe.
Also müsste sich ja der Inhalt der Variablen hinter dem Zeiger ändern obwohl diese aus einer DLL kommen.

Vielleicht habt ihr da noch ein paar Anregungen.

[AJ_Oldendorf]

Folgende Anmerkung noch aus dem Handbuch für die C-Datei:

Der Funktionsaufruf „my_get_pointer“ liefert die Basisadresse (C-Zeiger) auf die
Struktur My_Struct_T. Mit diesem C-Zeiger kann Ihr Programm
hochperformant auf die Daten im zugreifen.

Also muss das ja ein Zeiger sein, den ich von dem Aufruf zurückgemeldet bekomme und worin sich die Daten anscheind immer ändern können.

[Fritzew]

Zeig mal bitt Deine Delphi Deklaration von

My_get_pointer

Wenn ich das richtig verstehe wird der Pointer in der c dll belegt.

Gibt es auch eine function zur freigabe?

[AJ_Oldendorf]

ja es gibt auch eine Funktion für die Freigabe.
Hier die Deklaration:

Delphi-Quellcode:

function My_get_pointer(Handle: LongWord; TimeOut : LongWord; my_struct: PMy_Struct; aError: PERROR): LongWord;stdcall;external DP_DLL;

[Fritzew]

Zitat:

Zitat von AJ_Oldendorf (Beitrag 1399995)

ja es gibt auch eine Funktion für die Freigabe.
Hier die Deklaration:

Delphi-Quellcode:

// auf var geändert
function My_get_pointer(Handle: LongWord; TimeOut : LongWord; var my_struct: PMy_Struct; aError: PERROR): LongWord;stdcall;external DP_DLL;

Die Deklaration ist falsch. Ändere zu var myStruct : PMy_Struct.

Die Dll liefert Dir den Pointer auf das Struct zurück.
Du musst nicht selber Speicher belegen.

[Neutral General]

Zitat:

Zitat von Fritzew (Beitrag 1399996)

Die Dll liefert Dir den Pointer auf das Struct zurück.
Du musst nicht selber Speicher belegen.

So wie du es gemacht hast ist es aber definitiv falsch.

Entweder

Delphi-Quellcode:

my_struct: PMy_Struct

oder

Delphi-Quellcode:

var my_struct: TMy_Struct

Delphi-Quellcode:

var my_struct: PMy_Struct

ist doppelt gemoppelt (= falsch).

[Zacherl]

Zitat:

Zitat von Fritzew (Beitrag 1399996)

Du musst nicht selber Speicher belegen.

Doch doch, eben schon.

Delphi-Quellcode:

MyStruct*

bzw.

Delphi-Quellcode:

MyStruct&

als Parameter in C/C++ bedeutet, dass du selbst einen Zeiger/Referenz übergibst. Den Speicher für das dahinterliegende Struct musst du durchaus selbst (entweder auf dem Stack oder dem Heap) bereitstellen. Als Zeiger/Referenz übergibt man die Structs, wenn man deren Inhalt ändern möchte (C/C++ kennt kein

Delphi-Quellcode:

var

).

Delphi-Quellcode:

const MyStruct*/&

sieht man auch ab und zu, wobei es sich hierbei nur um eine manuelle Optimierung handelt, damit der Inhalt der
Structs beim Aufruf nicht auf den Stack gepusht werden.

Wie Neutral General schon angedeutet hat, ist

Delphi-Quellcode:

MyStruct*

äquivalent zu

Delphi-Quellcode:

var (T)MyStruct

in Delphi, was wiederrum äquivalent zu

Delphi-Quellcode:

PMyStruct

ist.

Zitat:

Zitat von Fritzew (Beitrag 1399996)

Die Dll liefert Dir den Pointer auf das Struct zurück.

In dem Falle wäre es

Delphi-Quellcode:

MyStruct**

bzw.

Delphi-Quellcode:

MyStruct*&

:-D

Edit: Falsch gelesen, ist ja sogar

Delphi-Quellcode:

void**

:wall:

[Fritzew]

Nee

Zitat:

So wie du es gemacht hast ist es aber definitiv falsch.

Definition der C-Func:

Delphi-Quellcode:

My_DWORD My_get_pointer ( 
  My_DWORD my_handle, // in 
  My_DWORD timeout, // in 
  My_Struct_T volatile **data, // out //Pointer auf Pointer
  My_ERROR_T *err); // out

data is als Pointer auf Pointer definiert also ein var zu einem Pointer.

Man könnte auch

Delphi-Quellcode:

type
 PPMy_Struct = ^PMy_Struct;

// und dann
function My_get_pointer(Handle: LongWord; TimeOut : LongWord;  my_struct: PPMy_Struct; aError: PERROR): LongWord;stdcall;external DP_DLL;

[AJ_Oldendorf]

Ich versuche das gleich mal.
Muss ich denn ein New(my_struct) vorher machen oder nicht?