Struct übergabe problem

[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

[TiGü]

Zitat von 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.

Delphi-Quellcode:

program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Winapi.Windows;

type
  TMyRecord = record
    StructSize : DWORD;
    MyHandle : THandle;
    MyBoolValue : BOOL;
    MyIntValue : Int32;
  end;

  procedure Foo(const ARecord : TMyRecord);
  begin
    if ARecord.StructSize <> SizeOf(TMyRecord) then
      raise Exception.Create('Die Welt geht unter, weil StructSize: ' + IntToStr(ARecord.StructSize));

    Writeln('Alles gut, StructSize ist so groß wie sie sein soll: ' + IntToStr(SizeOf(TMyRecord)));
  end;

var
  MyFunnyRecord : TMyRecord;

begin
  try
    FillChar(MyFunnyRecord, SizeOf(MyFunnyRecord), 0);

    MyFunnyRecord.StructSize := SizeOf(MyFunnyRecord);
    Foo(MyFunnyRecord);

    MyFunnyRecord.StructSize := 666;
    Foo(MyFunnyRecord);
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      Readln;
    end;
  end;
end.