Records unter 32 und 64Bit

[Neutral General]

Zitat von EWeiss:

Zitat von Neutral General:

PWideChar ist unter 64-Bit 8 Byte groß, statt 4. Dadurch sind alle weiteren Felder nach hinten verschoben im Speicher.

Versteh danke..
Aber warum funktioniert es dann bei langen Pfaden? Da wird auch PWideChar verwendet. (Glück? )
Und es wird nicht alles verschoben wie du im shot sehen kannst nur die ersten beiden werden verändert.

Mh stimmt.
Wie kommen denn die Daten in das Record bzw. Array?

[EWeiss]

Zitat von Neutral General:

Zitat von EWeiss:

Zitat von Neutral General:

PWideChar ist unter 64-Bit 8 Byte groß, statt 4. Dadurch sind alle weiteren Felder nach hinten verschoben im Speicher.

Versteh danke..
Aber warum funktioniert es dann bei langen Pfaden? Da wird auch PWideChar verwendet. (Glück? )
Und es wird nicht alles verschoben wie du im shot sehen kannst nur die ersten beiden werden verändert.

Mh stimmt.
Wie kommen denn die Daten in das Record bzw. Array?

Frage ich mich selbst..
Ich stoße wirklich auf viele dieser seltsamen verhalten in Verbindung mit 64Bit.
Ist auch glaube ich nicht nötig da ich damit keinen Record außerhalb der EXE ansprechen.

Habe es mit

Code:

{$ALIGN ON}
{$MINENUMSIZE 4}

versucht da ich dachte vielleicht liegt es hier dran.. aber nein keine Chance.

Wie sie da rein kommen bzw.. übergeben werden ist im Quelltext ersichtlich.

gruss

[Neutral General]

Zitat von EWeiss:

Wie sie da rein kommen bzw.. übergeben werden ist im Quelltext ersichtlich.

Ja das meinte ich.
Und das ist ein sehr wichtiger Punkt der besser in deinem Post enthalten wäre als *irgendwo* in deinem angehangenen Quelltext.
Es gibt wahrscheinlich nicht viele die sich nur deswegen deinen gesamten Code anschauen wollen. (Ich z.B. auch nicht)

[EWeiss]

Zitat von Neutral General:

Zitat von EWeiss:

Wie sie da rein kommen bzw.. übergeben werden ist im Quelltext ersichtlich.

Ja das meinte ich.
Und das ist ein sehr wichtiger Punkt der besser in deinem Post enthalten wäre als *irgendwo* in deinem angehangenen Quelltext.
Es gibt wahrscheinlich nicht viele die sich nur deswegen deinen gesamten Code anschauen wollen. (Ich z.B. auch nicht)

OK! Du hast recht
So werden sie übergeben.

Delphi-Quellcode:

 
var  
  SpriteResPath: string;
//.. 
  SpriteResPath := ExtractFilePath(ParamStr(0)) + 'SpriteRes\';
  
  gSpriteData[1].ImageName := PWideChar(SpriteResPath + '3.png');
  gSpriteData[2].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[3].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[4].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[5].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[6].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[7].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[8].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[9].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[10].ImageName := PWideChar(SpriteResPath + '1.png');

gruss

[Zacherl]

Da liegt das Problem. PWideChar ist ein Zeiger und dein Konstrukt SpriteResPath + 'irgendwas' erzeugt eine temporäre RValue. Der Zeiger kann theoretisch in der nächsten Anweisung schon wieder ungültig sein. Dass das unter 32-Bit funktioniert, war reiner Zufall

Also genauer gesagt: Durch deinen Cast nach PWideChar bringst du das interne Ref-Counting des Strings durcheinander. Besteht die Möglichkeit .ImageName einfach als String zu deklarieren? Das würde dein Problem lösen.

[EWeiss]

Zitat von Zacherl:

Da liegt das Problem. PWideChar ist ein Zeiger und dein Konstrukt SpriteResPath + 'irgendwas' erzeugt eine temporäre RValue. Der Zeiger kann theoretisch in der nächsten Anweisung schon wieder ungültig sein. Dass das unter 32-Bit funktioniert, war reiner Zufall

Es funktioniert auch unter 64Bit aber nur mit langen Pfaden.

Zitat:

einfach als String zu deklarieren?

Jo das geht.. wäre kein Problem aber wie ich schon sagte mit langen Pfaden funktioniert es auch unter 64Bit.
Das sind so die dinge die ich nicht verstehe.

gruss

[Zacherl]

Zitat von EWeiss:

Jo das geht.. wäre kein Problem aber wie ich schon sagte mit langen Pfaden funktioniert es auch unter 64Bit.

Kann schon sein, ist aber ebenfalls "Zufall", dass das funktioniert. Mit String deklariert bist du immer auf der sicheren Seite

[Uwe Raabe]

Hat vermutlich gar nichts mit den Strings/PWideChars zu tun, aber

Delphi-Quellcode:

var
  ...
  DC: Cardinal;

...

DC := GetDC(MainHandle);

könnte unter 64-Bit einen Überlauf erzeugen, da ein HDC dort nicht mehr in einen Cardinal passt.