Extended aus File of Record in 64 Bit lesen

[dummzeuch]

Wo gerade in einem anderen Thread Extended vs. 64 Bit Compiler Thema ist:

Gibt es eigentlich eine Möglichkeit mit 64 Bit Delphi aus einer File of Record-Datei einen Record mit Extended-Feldern (16 Bytes) auszulesen und natürlich korrekt zu interpretieren (zumindest nach Double zu wandeln)?

Extended ist ja beim 64 Bit Compiler ein Alias für Double, also kann man das nicht einfach verwenden.

[himitsu]

Teilweise.
Die einzelnen Teile/Bits auslesen, einige LSB (shr) oder eher MSB weglassen/abschneiden und sie in ein Double einfügen.

Zumindestens beim Double kannst du den Record-Helper oder das Helper-Record nutzen .. den vom Extended wirst'e dir wohl vorher in eine eigene Unit kopieren müssen. *1

TDoubleRec (System.pas) oder TDoubleHelper (SysUtils)
https://de.wikipedia.org/wiki/IEEE_754
https://www.delphipraxis.net/214894-...-auslesen.html



Wie gesagt, offiziell war es nie für die Verwendung vorgesehen und schon garnicht für eine externe Speicherung ... drum wird es diesen Fall eh nie geben, dass man sowas mal tun wöllte.





*1
Der Record ist zwar da, aber unter 64 Bit kompiliert, wird er dir so nichts nützen, da
[EDIT] ahhh cool, der Helper-Record ist immer 80 Bit. Der Record-Helper aber nicht.

Delphi-Quellcode:

function TExtendedHelper.GetExp: UInt64;
begin
{$IFDEF EXTENDEDHAS10BYTES}
  Result := InternalGetWords(4) and $7FFF;
{$ELSE  !EXTENDEDHAS10BYTES}
  Result := (InternalGetWords(3) shr 4) and $7FF;
{$ENDIF !EXTENDEDHAS10BYTES}
end;

Man sollte sowieso NIEMALS veränderliche Typen binär abspeichern, sei es Char (AnsiChar/WideChar), NativeInt oder dergleichen.
Extended hat 10 DatenBytes, oder 8 (Alias für Double), oder doch 10 aber intern 8 genutzt (intern Double) oder 16 Byte (intern 8 genutzt) groß

[Uwe Raabe]

Dazu musst du die Felder als TExtended80Rec deklarieren. Diese kannst du dann zum Lesen als als Extended casten bzw. per TExtended80Rec-Cast beschreiben. Der Cast auf Extended hat den Vorteil, dass man bei 32-Bit die Genauigkeit nicht verliert.

Update: Ich habe noch ein Beispiel gefunden, wo Extended-Werte plattformneutral in einen Stream gespeichert und daraus gelesen werden:

Delphi-Quellcode:

procedure TExtendedValue.LoadFromStream(Stream: TStream);
var
  buffer: TExtended80Rec;
begin
  Stream.ReadBuffer(buffer, Sizeof(buffer));
  FValue := Extended(buffer);
end;

procedure TExtendedValue.SaveToStream(Stream: TStream);
var
  buffer: TExtended80Rec;
begin
  buffer := TExtended80Rec(FValue);
  Stream.WriteBuffer(buffer, Sizeof(buffer));
end;

[himitsu]

Ohhh, dass ist ja super, der TExtended80Rec ist immer 80 ... hatte nur den Record-Helper im Kopf und der ändert sich.
Dann muß man ja doch keinen Typen kopieren oder manuell Bits rumschubsen

[dummzeuch]

Tja, das mit den Extended-Werten in der binären Datei stammt noch aus einem Turbo Pascal Programm. Was soll ich machen? Die Dateien existieren nun mal und ich muss sie auch nach einer Umstellung auf 64 Bit lesen können. Alternativ müsste ich zigtausende Dateien konvertieren, was schwierig ist, weil die zum Teil schon längst read-only archiviert wurden.

Der TExtended80Rec scheint genau dafür gedacht zu sein. Danke für den Hinweis.

[himitsu]

Da im DP-Link in #2 siehst'e die 3 Werte, welche du von einem Record zum Anderen kopieren müsstest.

Entweder die binären Inhalte, welche du beim Kopieren eventuell um ein paar Bits schiften oder abschneiden mußt,
oder die umgerechneten Teile einer reellen Zahl, welcher intern jeweils hin und dann wieder zurück gerechnet werden dürften.

Mantisse, Exponent und Vorzeichen (sowas wie NAN, Inf und NegInf mal ignoriert)

Jeweils in die Funktionen reinsehen, ob nur über eine Bitmaske gelesen wird oder ob das noch umgerechnet wird .... und davon jeweils die einen oder die anderen 3 Passenden gemeinsam.