C++ DLL (Funktion) nach Delphi

[EWeiss]

Ich möchte bezweifeln das die Struct unter C++ mit 1 Byte alignment definiert wurde.
Was soll also dieses packed Record?

gibt es so etwas wie.. in dem C++ code?

Code:

#pragma pack(push, 1)

denke nicht.
Wenn also die Ausrichtung der struct (record) schon nicht stimmt wie soll das andere dann funktionieren.

gruss

[AJ_Oldendorf]

Die Struktur ist so deklariert:

Delphi-Quellcode:

typedef unsigned char  My_BYTE;
typedef unsigned long  My_DWORD;

typedef struct My_ERROR
{
  My_DWORD          Long1; 
  My_DWORD          Long2; 
  My_BYTE           Byte1;
  My_BYTE           Byte2; 
  My_BYTE           Byte3; 
} PPC_BYTE_PACKED My_ERROR_T;

Ich glaube daher schon, dass meine packed record Struktur richtig ist, es steht ja auch ein sinnvoller Wert in die beiden Long-Variablen.

[AJ_Oldendorf]

Mit der Variante von Fritzew steht schonmal was in dem ErrStr drinne.
Leider sind nicht alle 1024 Zeichen sinnvoll gefüllt, aber ca. 200 steht nur noch "Mist" drin.
Wenn ich jetzt die Umwandlung auf ein String mache, bekomme ich eine Zugriffsverletzung (Exception).
Man müsste jetzt bestimmt die Länge noch herausbekommen, da nicht immer alle 1024 Zeichen gefüllt sind.

[Neutral General]

Zitat von AJ_Oldendorf:

Man müsste jetzt bestimmt die Länge noch herausbekommen, da nicht immer alle 1024 Zeichen gefüllt sind.

Ich tippe mal auf den Rückgabewert der Funktion. Da steht wahrscheinlich die Länge des zurückgegebenen Strings drin.
Alternativ kannst du auch den Text vor der Übergabe an die Funktion mit FillChar nullen. Das wird wahrscheinlich auch funktionieren.

[Fritzew]

Zitat von AJ_Oldendorf:

Mit der Variante von Fritzew steht schonmal was in dem ErrStr drinne.
Leider sind nicht alle 1024 Zeichen sinnvoll gefüllt, aber ca. 200 steht nur noch "Mist" drin.
Wenn ich jetzt die Umwandlung auf ein String mache, bekomme ich eine Zugriffsverletzung (Exception).
Man müsste jetzt bestimmt die Länge noch herausbekommen, da nicht immer alle 1024 Zeichen gefüllt sind.

Dann füge doch bitte vor dem Aufruf einfach ein
 fillchar(ErrStr, Sizeof(ErrStr), 0); ein.

Der Einwurf von EWeis ist schon richtig. aber ohne header file ist es schwer zu sagen.

(Trotz roter Box abgeschickt)

[AJ_Oldendorf]

Stimmt, das FillChar hatte gefehlt.
Leider liefert mir die Funktion nicht die Länge zurück, nur ob sie erfolgreich ausgeführt werden konnte.
Aber mit dem FillChar geht es jetzt. Danke für die Hilfe.

Der Link von EWeiss ist auch sehr gut!

[AJ_Oldendorf]

Ich habe noch ein Fall den ich euch gerne schildern möchte:

Deklaration in C:

Delphi-Quellcode:

typedef unsigned long My_DWORD;
typedef char          My_STRING;

My_DWORD start_func 
  (const My_STRING *name1,   // in 
   const My_STRING *name2,  // in 
   ERROR_T      *error );  // out

In der Doku für den Befehl "start_func" steht für den Parameter "Name2" folgendes:
Nullzeiger eintragen.

In einem C Beispiel, welches ich aber nicht debuggen kann, ist der Aufruf so gemacht:

Delphi-Quellcode:

My_STRING *pname2 = NULL;

ErrClass = start_func((My_STRING *)name1, pname2, &ErrStruct);

Ich habe ein fertiges C Programm, welches genau dieses Befehl aufruft, welchen ich nun im Delphi nachprogrammieren möchte.
Das Ergebnis im C Programm ist, dass die Funktion 0 liefert (also kein Fehler). Ich bekomme immer ein Fehler (Result <> 0), also vermute ich ein Fehler bei meiner Parameterübergabe.
Gelöst habe ich es so:

Delphi-Quellcode:

function start_func(Name1: PAnsiChar; Name2: PAnsiChar; aError: PERROR): LongWord;stdcall;external DP_DLL;

Aufruf:
start_func(PAnsiChar(MyNAME1), Nil, @ErrStruct);

Aber egal was ich als zweiten Parameter übergebe (Nil, Leerzeichen etc.) ich bekomme als Result nie eine 0.
Heißt für mich, dass mein Delphi Programm die Funktion anders aufruft wie das C Programm.
Habt ihr noch eine Idee?

[Fritzew]

Versuch mal so:
function start_func(const Name1: PAnsiChar; const Name2: PAnsiChar; aError: PERROR): LongWord;stdcall;external DP_DLL; Sollte eigentlich funktionieren

[AJ_Oldendorf]

Das hat geholfen, danke!

[EWeiss]

Zitat von AJ_Oldendorf:

Die Struktur ist so deklariert:

Delphi-Quellcode:

typedef unsigned char  My_BYTE;
typedef unsigned long  My_DWORD;

typedef struct My_ERROR
{
  My_DWORD          Long1; 
  My_DWORD          Long2; 
  My_BYTE           Byte1;
  My_BYTE           Byte2; 
  My_BYTE           Byte3; 
} PPC_BYTE_PACKED My_ERROR_T;

Ich glaube daher schon, dass meine packed record Struktur richtig ist, es steht ja auch ein sinnvoller Wert in die beiden Long-Variablen.

Nun das war aber vorher aus deinem Code nicht ersichtlich von daher fand ich es legitim dich darauf hinzuweisen.
Aber gut bin raus
Aber noch ein link.

gruss