Forum: Programmieren allgemein
by Mavarik,
20. Jul 2014
Wieso "Shock"?
Ja natürlich Blockwrite... Wieso auch nicht.. Abgesehen davon das es Blockbezogen fast 100%ig das gleiche ist
(vielleicht ein klein wenig weniger overhead).
Ein Blockwrite ruft folgendes auf:
1. Function _blockwrite
2. BlockIO
3. IOProc (Kernel32 "Writefile");
Forum: Programmieren allgemein
by Mavarik,
17. Jul 2014
Old-School = Good-School; :-D
Eine Binärdatei ist für mich eine 1:1 Entsprechungen eine Speicher-Datenstruktur ohne ausgerichtete Felder -{$A1}. Keine längen Bytes, Trennzeichen, kein ^Z am Ende usw.
Wenn ich ein Byte in eine Datei schreibe, muss die Datei auch nur ein Byte lang sein.
Wenn ich 100 Datensätze mit je 15 Byte weg schreibe muss die Datei auch 1500 Bytes enthalten. Nicht mehr...
Forum: Programmieren allgemein
by Mavarik,
17. Jul 2014
Logisch... Solange wir Informationen noch nicht in Bio-neuronalen-Gel Packs abspeichern...
Siehe...
Mavarik :coder:
Forum: Programmieren allgemein
by Mavarik,
17. Jul 2014
OK Formatieren wir das mal so das man es lesen kann...
13 00 00 00 00 00 00 F0 3F 02 00 00 00 02 00 00 00 41 42 43 13
Lassen wir mal die $13 vor und nach dem Datensatz außer acht...
Dann schreibt diese kleine Delphi Programm das gleiche weg... (Oder liest es ein).
Auch ohne eine Monster-Class dafür zu Programmieren. :stupid:
Forum: Programmieren allgemein
by Mavarik,
17. Jul 2014
Also für mich sieht das ganz und gar nicht nach eine Binärdatei aus...
Schau Dir mal das hier an...
Mavarik
Forum: Programmieren allgemein
by Mavarik,
16. Jul 2014
Also... Ich mache sowas immer so:
{$A1} // Wichtig
Const
Recordlaenge = 2245; // Filesize / Recordlaenge passt!
type
TStruct = Record
A : Byte; // Bin ich mir sicher