Hallo,

ich bin mir nicht sicher ob das jetz möglich ist, frage aber trotzdem mal nach ^^

Kann ich eine Datei nur mit Bitwerten abspeichern? Also ich mein jetzt um die Datei so klein wie möglich zu halten z.B. für ein Bildformat.

MfG

Ja mit der einzigen Bedingung, dass die Bitanzahl kongruent 0 modulo 8 sein muss, denn die kleinste darstellbare Einheit ist ein Byte!

Also heisst es ich speichere in Bytes?

Das erste Byte "01001011", das zweite "10010011", und so weiter?

Wie kann ich so etwas realisieren?

MfG

Jup.

Indem du alle deine Bits in Bytes groupierst und diese dann wie gewohnt, in (d)eine Datei mit üblichen Methoden (recherchiere selbst; über die sufu lässt sich einiges finden) schreibst.

Das gruppieren ginge z.B. so:

zusammenfalten · markieren

Delphi-Quellcode:

type
  T8Bits = Array[0..7] of Boolean;

function bitsToByte(const Bits: T8Bits): Byte;
var
  i, j: Integer;
begin
  Result := 0;
  j := 1;
  for i := 0 to 7 do
  begin
    if Bits[i] then
      Result := Result or 1;
    j := j shl 1;
  end;
end;

BTW: Jede Datei besteht aus einer einfachen Folge von Bytes.
In keiner Datei wird z.B. Zeichen, Bilder gespeichert, sondern Bytes, die dann als Zeichen oder Bilder interpretiert werden. Diese Interpretationsvorschrift nennt man dann das Format der Datei

Aphton du verwirrst ihn doch nur -.-

Ich denke er will einfach nur per TFilestream o.ä. Daten binär (statt in Textform) speichern.