I wonder why

[ATS3788]

Delphi-Quellcode:

type
  SCSI_PASS_THROUGH_DIRECT = record
    Length              : Word;
    ScsiStatus          : Byte;
    PathId              : Byte;
    TargetId            : Byte;
    Lun                 : Byte;
    CdbLength           : Byte;
    SenseInfoLength     : Byte;
    DataIn              : Byte;
    DataTransferLength  : ULONG;
    TimeOutValue        : ULONG;
    DataBuffer          : Pointer;
    SenseInfoOffset     : ULONG;
    Cdb                 : Array[0..15] of Byte;
  end;

  SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER = record
    Spt      : SCSI_PASS_THROUGH_DIRECT;
    Filler   : ULONG;
    SenseBuf : Array[0..31] of Byte;
  end;

var
a : Konstanten.SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER; //// 77 byte sizeof
b : Laufwerke.SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER;  //// 80 byte sife of

Nun sitze ich hier und frage mich, verstehe ich nichts mehr
bei SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER
sizeof sollte 77 byte rauskommen was für die Anwendung
leider falsch ist es sollten 80 byte sein.

die Version a ist in einer externen unit
die Version b ist in der Version von delphi praxis
wo ich leider die Referenz nicht mehr finde

die frage wo kommen die 3 byte unterschied her.

ps

ich hoffe ich bin verständlich
ich bin gefrustet und nicht mehr ganz nüchtern

[Uwe Raabe]

Die ersten acht Felder im SCSI_PASS_THROUGH_DIRECT belegen zusammen 9 Byte. Wenn das Align auf 4 Byte gestellt ist, wird der nachfolgende ULONG auf die nächste 4-Byte-Grenze gesetzt (= 12). Das sind deine zusätzlichen 3 Byte.

Mit der Direktive {$A4} wird der record 80 Byte haben, während er mit {$A1} 77 Byte hat.

[himitsu]

Tipp/Suchworte:
Data Alignment / Speicherausrichtung
packed record



Damit wirst'e hier im Forum und sonstwo im Netz alles finden.

http://de.wikipedia.org/wiki/Speicherausrichtung

[fkerber]

Hi,

wähle bitte für deinen Thread auch noch einen Titel, an dem man zumindest erahnen kann, worum es geht.


LG, Frederic

[EWeiss]

Vielleicht ein Wonderwoman Thread ?

gruss

[ATS3788]

Wow ihr seit gut Danke.
Ganz verstanden habe ich das nicht.
Muss mir das mal in aller Ruhe anschauen.

PS

Ihr habt ja recht nur ich dachte dafür gibt es eh
keine Antwort und ich war angeschwippst

[himitsu]

Zitat von ATS3788:

nur ich dachte dafür gibt es eh keine Antwort und ich war angeschwippst

Das mußt du doch langsam gemerkt haben ... wir haben auf alles eine Antwort.
(nur auf einige Fragen, wie z.B. nach dem Sinn des Lebens, behalten wir Die für uns )

don't drink and prog

[ATS3788]

Zitat:

Mit der Direktive {$A4} wird der record 80 Byte haben, während er mit {$A1} 77 Byte hat.

OK {$A1} ist ein packed Record

Ich verstehe noch nicht ganz wie man auf die Compiler
Direktiven kommt. Kann ich das wo nachlesen.

[ATS3788]

Zitat:

Anmerkungen

Die Direktive $A steuert die Ausrichtung von Feldern in Record-Typen und Klassenstrukturen.

Im Status {$A1} oder {$A-} werden Felder nicht ausgerichtet. Alle Records und Klassenstrukturen werden gepackt.

Im Status {$A2} werden die ohne den Bezeichner packed deklarierten Felder in Record-Typen und die Felder in Klassenstrukturen auf Wortgrenzen ausgerichtet.

Im Status {$A4} werden die ohne den Bezeichner packed deklarierten Felder in Record-Typen und die Felder in Klassenstrukturen auf Doppelwortgrenzen ausgerichtet.

Im Status {$A8} oder {$A+} werden die ohne den Bezeichner packed deklarierten Felder in Record-Typen und die Felder in Klassenstrukturen auf Vierfachwortgrenzen ausgerichtet.

Die Ausrichtung von Feldern in Record-Typen wird in der Delphi-Sprachreferenz beschrieben.

Variablen und typisierte Konstanten werden unabhängig von der Direktive $A immer für einen optimalen Zugriff ausgerichtet. Der Status {$A8} beschleunigt die Ausführung.

OK habe es jetzt verstanden Danke