Struct übergabe problem

[Blup]

Stimmt die Art der Parameterübergabe mit der in der DLL deklarierten Art überein.
Stimmt die Größe des Records (SizeOf) mit der Größe der Struktur in Byte-Anzahl überein.

Verweist char* wirklich auf einen Ansistring (PAnsiChar).

Entspricht "int" einem Delphi-32Bit-Integer.

Entspricht "BOOL" einen Delphi-32Bit-Boolean.
Im Delphi ist True = 1, im C++ True = -1, wenn in Delphi sauber programmiert wurde (kein Vergleich mit True) spielt das aber keine Rolle.

[EWeiss]

Zitat:

Entspricht "BOOL" einen Delphi-32Bit-Boolean.

Ich verwende wegen der Kompatibilität ausschließlich LongBool dürfte also eigentlich kein Problem machen.
In VB6 ist True auch -1 da gibt es keine Probleme.

Zitat:

Verweist char* wirklich auf einen Ansistring (PAnsiChar).

Denke ich schon denn es wird mir das richtige Plugin übergeben.
Die Struct(exec) wird in C++ auch richtig gefüllt kommt aber in der Delphi DLL mit falschen werten an.

Zitat:

Entspricht "int" einem Delphi-32Bit-Integer.

int: 4 Bytes 32Bit

sollte stimmen.

Delphi-Quellcode:

  PBASSVIS_PARAM = ^TBASSVIS_PARAM;
  TBASSVIS_PARAM = record
    VisHandle        : HVIS;            // VisHandle
    VisGenWinHandle  : DWORD;           // General Vis Window Handle W5
    Kind             : TBASSVIS_KIND_T; // Aktive Plugin Art
  end;

procedure BASSVIS_ExecutePlugin(Param: PBASSVIS_EXEC;
    var Base: TBASSVIS_PARAM
); stdcall; external dllfile;

Code:

typedef struct {
    HVIS  VisHandle;          // VisHandle
    HWND VisGenWinHandle;     // General Vis Window Handle W5
    BASSVIS_KIND_T Kind;      // Plugin kind   
} BASSVIS_PARAM;

void BASSVISDEF(BASSVIS_ExecutePlugin)(BASSVIS_EXEC* Param, BASSVIS_PARAM* Base);

Danke!

gruss

[Blup]

Versuch:

Code:

void __stdcall BASSVISDEF(BASSVIS_ExecutePlugin)(BASSVIS_EXEC* Param, BASSVIS_PARAM* Base);

[EWeiss]

Zitat von Blup:

Versuch:

Code:

void __stdcall BASSVISDEF(BASSVIS_ExecutePlugin)(BASSVIS_EXEC* Param, BASSVIS_PARAM* Base);

Danke
Aber _stdcall ist schon definiert. "Siehe WINAPI f"
Gut konntest du ja nicht wissen.

Code:

#ifndef BASSVISDEF
#define BASSVISDEF(f) WINAPI f
#endif

Hab aber schon zwei Fehler gefunden.
Das verändert die Größe des Records

Code:

bool SON_ShowPrgBar; 1 Bytes

ist nicht gleich..

Code:

BOOL SON_ShowPrgBar; 4 Bytes

Code:

exec.SON_ShowFPS = true;

müsste dann

Code:

exec.SON_ShowFPS = TRUE;

sein.

gruss

[EWeiss]

@Blup

Danke für deine Hilfe funktioniert jetzt alles lag am BOOL
dadurch wurde die Größe des Rekords verändert.

gruss

[TiGü]

Darum macht man sich immer als ersten Parameter im record ein StructSize : Integer/DWORD und vergleicht diesen Wert bei Empfang und reagiert entsprechend drauf.
Vgl. diverse Windows-APIs wo structs/records ausgetauscht werden.

[EWeiss]

Zitat von TiGü:

Darum macht man sich immer als ersten Parameter im record ein StructSize : Integer/DWORD und vergleicht diesen Wert bei Empfang und reagiert entsprechend drauf.
Vgl. diverse Windows-APIs wo structs/records ausgetauscht werden.

Kleines Beispiel?
Keine Idee was du genau meinst.

gruss

[himitsu]

Zitat von Blup:

Entspricht "BOOL" einen Delphi-32Bit-Boolean.
Im Delphi ist True = 1, im C++ True = -1, wenn in Delphi sauber programmiert wurde (kein Vergleich mit True) spielt das aber keine Rolle.

BOOL ist ein LongBool im Delphi.

Boolean = 1 Byte (0=False und 1=True)
ByteBool = 1 Byte (0=False und 1=True, eventuell aber auch -1 aka $FF)
LongBool = 4 Byte (0=False und 1=True, eventuell aber auch -1 aka $FFFFFFFF)

Die Werte für True entsprechen den Default-Definitionen der True-Konstante in den verschiedenen Compilern/Sprachen.


Und jupp, darum ja auch niemals if x = true then