Records funktionieren nicht unter 64Bit

[EWeiss]

Delphi-Quellcode:

  MatrixOrder = (
    MatrixOrderPrepend,
    MatrixOrderAppend
  );
  TMatrixOrder = MatrixOrder;
  GpMatrixOrder = TMatrixOrder;

GdipRotateWorldTransform: function(Graphics: LONG_PTR; angle: Single; order: GpMatrixOrder): GPSTATUS; stdcall;

funktioniert einwandfrei unter 32Bit aber nicht in 64Bit meine frage Warum?

Nur wenn ich diese Funktion so umschreibe dann geht es.

GdipRotateWorldTransform: function(Graphics: LONG_PTR; angle: Single; order: LongInt): GPSTATUS; stdcall;

und dann so übergebe

GdipRotateWorldTransform(graphics, ObjItem.angle + 180, Longint(MatrixOrderAppend)); Probleme über Probleme..

gruss

[mkinzler]

Müsste es nicht
 GpMatrixOrder = ^TMatrixOrder; heissen?

[KodeZwerg]

Konvertieren_von_32-Bit-Delphi-Anwendungen_in_64-Bit-Windows

Ich vermute die Zeiger-Größe passt nicht.

[EWeiss]

Zitat von mkinzler:

Müsste es nicht
 GpMatrixOrder = ^TMatrixOrder; heissen?

Es ist der selbe Rekord aus der originalen GDIP_API.
Und mit 32Bit funktioniert es ja.

Zitat:

Ich vermute die Zeiger-Größe passt nicht.

Ich versuche es mal Danke.

gruss

[EWeiss]

Delphi-Quellcode:

{$ALIGN 4}
  MatrixOrder = (
    MatrixOrderPrepend,
    MatrixOrderAppend
  );
  TMatrixOrder = MatrixOrder;
  GpMatrixOrder = TMatrixOrder;
{$ALIGN ON}

Funktioniert nicht weder mit 4 ist glaube ich Standard noch mit 8

gruss

[Zacherl]

Versuch mal {$Z4} statt Align. Das sollte man eigentlich eh immer verwenden, wenn man C-APIs aufruft, da die Enums in C standardmäßig Integer-Sized sind.

[EWeiss]

Zitat von Zacherl:

Versuch mal {$Z4} statt Align. Das sollte man eigentlich eh immer verwenden, wenn man C-APIs aufruft, da die Enums in C standardmäßig Integer-Sized sind.

Also global?
Gibt es dann keine Problem wenn ich die DLL dann mit 32Bit kompiliere?
Oder muss ich gegenprüfen.

gruss

[jaenicke]

Zitat von EWeiss:

Es ist der selbe Rekord aus der originalen GDIP_API.

Ich finde da keinen Record und deshalb wirkt auch Align nicht, das nur die Ausrichtung der Felder eines Records steuert. Ich sehe dort nur eine Enumeration. Dafür gibt es eine eigene Mindestgröße.
http://docwiki.embarcadero.com/RADSt...Typen_(Delphi)

[Zacherl]

Zitat von EWeiss:

Zitat von Zacherl:

Versuch mal {$Z4} statt Align. Das sollte man eigentlich eh immer verwenden, wenn man C-APIs aufruft, da die Enums in C standardmäßig Integer-Sized sind.

Also global?
Gibt es dann keine Problem wenn ich die DLL dann mit 32Bit kompiliere?
Oder muss ich gegenprüfen.

gruss

Kannst du auch nur vor dem Enum setzen und danach wieder auf {$Z1} resetten (ist der Standard, wenn man nichts umgestellt hat). Sollte sowohl unter 32-, als auch 64-Bit funktionieren.

[EWeiss]

Zitat von Zacherl:

Zitat von EWeiss:

Zitat von Zacherl:

Versuch mal {$Z4} statt Align. Das sollte man eigentlich eh immer verwenden, wenn man C-APIs aufruft, da die Enums in C standardmäßig Integer-Sized sind.

Also global?
Gibt es dann keine Problem wenn ich die DLL dann mit 32Bit kompiliere?
Oder muss ich gegenprüfen.

gruss

Kannst du auch nur vor dem Enum setzen und danach wieder auf {$Z1} resetten (ist der Standard, wenn man nichts umgestellt hat). Sollte sowohl unter 32-, als auch 64-Bit funktionieren.

Danke
Funktioniert jetzt Einwandfrei.

Zitat:

Ich sehe dort nur eine Enumeration.

Ja du hast natürlich recht hatte wohl was an der Waffel.. bei dem ganzen hin und her bis die Lib mal steht.
Aber geht ja jetzt

gruss