Typecasting

[calibra301]

Hallo,

verzweifele hier an einer C++ -> Delphi Übersetzung.
Dort gibt's eine Funktion der Daten per Pointer auf ein Array of Longword(U32) übergeben werden.
Die Funktion wird an einer Stelle mit einem Array of Byte aufgerufen und an einer anderen
mit einem Array of Longword.

Hab also:

Delphi-Quellcode:

Daten:Array[0..15] of byte;

result:=Tudasbitte(@Daten,16);

wobei mir hier nun der Typecast fehlt und ich keine Ahnung hab wie der aussehen muss.

Hinten müssen 2 x 8 Byte statt 1x 16 Byte ankommen.


Danke und Gruss
Calli

[hoika]

Hallo,

Delphi-Quellcode:

type
  T16ByteArray=Array[0..15] of byte; 
var
  Daten: T16ByteArray;

Und dann auf T16ByteArray casten.

[himitsu]

Zitat:

Tudasbitte(@Daten, 16);

Wenn die Daten als typloser Pointer übergeben werden, dann ist das Format deiner Variable doch vollkommen egal und du musst nichts casten.

Aber falls der Funktionsparameter typ-behaftet ist, dann einfach typlos zuweisen. (natürlich nur, wenn niemand an http://docwiki.embarcadero.com/RADSt...igern_(Delphi) rumgespielt hat)
Tudasbitte(Pointer(@Daten), 16);

Zitat:

und an einer anderen mit einem Array of Longword.

Array of LongWord oder Array[0..3] of LongWord ?

Ein statisches Array kann nicht in ein dynamisches Array gecastet werden.


Du kannst den Cast auch direkt einbauen.

Delphi-Quellcode:

type
  TMyData = record
  case Integer of
    0: (B: array[0..15] of Byte);
    1: (L: array[0..3] of LongWord);
  end;

MyData.L oder MyData.B

[calibra301]

Hallo,
danke fürs Feedback..übersteigt leider alles etwas meinen Horizont...
Die Daten kommen aber nun sauber in der Funktion an.

Hintergrund vom ganzen ist eine XTEA Verschlüsselung.
Der Andere Programmierer benutzt C++
Er hat mir ein Beispiel mit Vorgegebenen Keys und Daten durchgerechnet und mir die Werte
gemailt.
Key0=$11111111
Key1=$22222222
Key2=$33333333
Key3=$44444444

Data[0] und Data[1] =0

Sein Ergebnis
Decrypt:
Data[0] 0xf07ac290
Data[1] 0x23c92672

Encrypt:
Data[0] 0x889766b6
Data[1] 0x0a0c49d9


Anbei mal ein zip in dem das Projekt und eine Textdateil mit dem C Code ist.

Ist ein XE8 Projekt. Vielleicht findet jemand meinen Bock.


Gruss

Calli

[Frickler]

Zitat von himitsu:

Du kannst den Cast auch direkt einbauen.

Delphi-Quellcode:

type
  TMyData = record
  case Integer of
    0: (B: array[0..15] of Byte);
    1: (L: array[0..3] of LongWord);
  end;

MyData.L oder MyData.B

Wenn Du nicht mit $A rumhantieren willst, musst Du "packed array" nehmen, sonst kommt da was ganz anderes bei raus...

[himitsu]

Nein, da kommt immer das raus, was ich erwarte, denn Arrays sind "praktisch" IMMER packed.

Außerdem gibt {$A} nur die maximale Ausrichtung an, wobei die Typen der Array-Felder hier ALLE gleich sind, innerhalb des Array, und sich die Array-Felder somit immer an sich selber ausrichten, also direkt hintereinander.

Das trifft auch auf ein Array of TMist zu, welches in sich pecked und direkt aneinanderhängend ausgerichtet ist, auch wenn dort "natürlich" das zusätzliche Füllbyte enthalten bleibt, da es im "kompleten" Typen eingebaut ist.

Delphi-Quellcode:

// {$ALIGN} mindestens 2 
type
  TMist = record
    a: Word;
    b: Byte;
    // FüllByte
  end;

  TMist = record
    a: Byte;
    // FüllByte
    b: Word;
  end;

TMist ist 4 Byte und wird somit auch an Integergrenzen ausgerichtet.

[Frickler]

Zitat von himitsu:

Nein, da kommt immer das raus, was ich erwarte, denn Arrays sind "praktisch" IMMER packed.

Außerdem gibt {$A} nur die maximale Ausrichtung an, wobei die Typen der Array-Felder hier ALLE gleich sind, innerhalb des Array, und sich die Array-Felder somit immer an sich selber ausrichten, also direkt hintereinander.

TMist ist 4 Byte und wird somit auch an Integergrenzen ausgerichtet.

Wenn ein Array of Byte ins Spiel kommt, sind Integergrenzen aber eher nicht gewünscht. Darüber bin ich nämlich gefallen bei der Umstellung unserer Programme von Delphi 5 auf XE. Bei D5 war alles bytealigned und bei XE nicht...

[himitsu]

MAXIMAL!!!

Bytes werden IMMER an Bytegrenzen ausgerichtet
und Word werden immer an Wordgrenzen ausgerichtet (wenn ALIGN mindestens 2, also {$A+} und {$ALIGN 2} bis {$ALIGN 16} )

Nur bei {$A-} und {$ALIGN 1} oder packed array und packed record wird WORD an 1-Bytegrenzen ausgerichtet, aber niemals wird es mehr sein, also niemals tauchen Füllbytes auf, zwischen WORD und WORD.


$MINIMUMENUMSIZE füllt auf,
aber $ALIGN kürzt immer nur