Streams - negativen Wert mit Write schreiben???

[FreewareFire]

Siehe das erste Posting - da is er, der Code!

[nailor]

und das einlesen?

[FreewareFire]

Wo sollte da ein problem auftauchen? Der Stream ist schon mit einer Datei gefüllt. Es funktioniert ja alles, nur das halt nicht. Der Stream ist also geladen und funktioniert! Nur wie kriege ich einen negativen Wert mit write geschrieben?

[maximov]

Zitat:

Zitat von FreewareFire

Wo sollte da ein problem auftauchen? Der Stream ist schon mit einer Datei gefüllt. Es funktioniert ja alles, nur das halt nicht. Der Stream ist also geladen und funktioniert! Nur wie kriege ich einen negativen Wert mit write geschrieben?

HALLO! Dem stream ist es völlig egal ob negativ oder nicht. Entscheidend ist, ob die daten genauso wieder raus kommen, wie sie reingetan wurden. Also ist das interessanteste wie, wo, was wieder rauskommt und da wollen (zu recht) den code sehen. Kann ja auch sein das du dir das einfach mit nem hex-editor anschaust und die einzelnen bytes in einen integer umrechnest, was dann rein garnix zu sagen hätte.

Also zier dich nicht :mrgreen: ...oder debugge selbst.

[FreewareFire]

Also Bitte: Ich lade die Daten so in den Stream:

Code:

MemoryStream.LoadFromFile(STV1.Path + '\' + FList.Items.Strings[FList.ItemIndex]);

aber wie gesagt, das sollte ja nix bringen oder - es handelt sich übrigens um einen TMemoryStream. Und wie die Daten geladen werden, nehme ich mal an, dürfte Hex-Dezimal sein, oder? Hilft das jetzt? Mehr mach ich halt nicht - einfach per LoadFile einlesen. Es handelt sich um eine binär Datei, also keine reine Textdatei!

[MacGuyver]

Merde! :wall:


Oben schreibst du den Small-Int mit zwei Byte in die Datei. Gut. Dann ließt du das Teil auf einmal ein. Wohin? In einen Truthan? Nein, da wird doch wohl ein Type zu Grunde liegen, oder? Der Quellcodeschnipsel ist so interessant wie Fahrstuhl fahren. Zeige bitte mehr.

Stefan

[FreewareFire]

Also nochmal:

1. Ich lade die Daten mit einem TMemoryStream!
2. Ich lade sie mit der LoadFile Funktion
3. Ich schreibe die Daten aus der SpinEdit in den Stream, vorher setzt ich per Position die Position des Zeigers in der Datei an die Stelle.

Und ich verwende keine Types oder sonstiges. Laden, schreiben mit write, mehr ist da nicht. Und mehr Code ist da einfach nicht, warum wollt ihr mehr Code? Da is eben keiner mehr :!:

[MacGuyver]

Dann zeige doch mal die Stelle, wo du lädst und in den Spin schreibst.

Stefan

[FreewareFire]

Code:

procedure TForm1.FLISTClick(Sender: TObject);
var BuildValue: smallint;
begin
try
  
  //now open the file to check the type
  MemoryStream.LoadFromFile(STV1.Path + '\' + FList.Items.Strings[FList.ItemIndex]);

  MemoryStream.Position := $1A;
  BuildValue := BC.Value * 10;
  MemoryStream.Write(BuildValue, 2);

end;

So sieht's dann eben komplett aus!

[MacGuyver]

Irgendwie peilst du die Lage nicht.

Vom Spin in die Variable vom Typen SmallInt(2 Byte). Dabei wird automatisch eine Konvertierung vollzogen. Mit Sicherheit ist im Spin ein Integer (4 Byte)
Dann speicherst du die zwei Byte auf die Platte. Gut.
Dann lädst du deinen Stream. Gut. Wohin? Was macht BC.Value? Wieso * 10? Wieso Position $1A? Kannst du nicht erst einemal einen Typen deklarieren. Dann hast du auch keine Probleme beim Laden. Solltest du nur darauf achten, daß das "Packed Record" ist, sonst braucht ein Byte auch 2 Byte Speicher.

Zeige mal mehr vom Code.

Stefan