Forum: Object-Pascal / Delphi-Language
FreePascal
by MikeRohsoft,
23. Sep 2016
passt, habt vielen dank ihr beiden
TNavigation = packed record
pad_0: array of byte; // 20
Rotation: TVector4;
pad_1: array of byte; // 20
Position: TVector3;
end;
Forum: Object-Pascal / Delphi-Language
FreePascal
by MikeRohsoft,
23. Sep 2016
Ich hatte heute mal versucht das umzusetzen und das habe ich teilweise auch Erfolgreich getan,
dabei musste ich feststellen dass ich jedes byte Array um 4 bytes weniger lesen muss damit es funktioniert.
Nur das "wieso?" leuchtet mir nicht ganz ein, kann vielleicht nochmal jemand helfen? rein Verständnishalber?
class CNavigation
{
public:
char pad_0;
Vector4 Rotation;
Forum: Object-Pascal / Delphi-Language
FreePascal
by MikeRohsoft,
14. Sep 2016
beim nächsten mal probiere ich sowas offensichtliches aus, tut mir leid, läuft exzellent. Vielen Dank
type
T2Floats = record
Float1, Float2: single;
end;
var
MyBuffer: array of byte = (0, 0, $A4, $43, 0, 0, $A4, $43);
MyRecord: T2Floats absolute MyBuffer;
begin
Forum: Object-Pascal / Delphi-Language
FreePascal
by MikeRohsoft,
13. Sep 2016
Hallo,
Ich möchte quasi eine C++-Klasse die mir als byte Array vorliegt in ihre Datentypen wiederherstellen.
Beispielhaft ein Array ($00, $00, $A4, $43, $00, $00, $A4, $43). Hier liegen 8 bytes vor die ich gerne als 2 float Werte rekonstruieren möchte.
Derzeitig rufe ich einfach mehrmals mal die ReadProcessMemory Routine mit den unterschiedlichen Offsets.
begin
FBasePointer :=...