Tutorial Arbeiten mit Dateien auf binärer Ebene

[DeddyH]

Zitat von Popov:

Aber damit es weiter geht, hier ein Konverter Text zu BitString:

Delphi-Quellcode:

function TextToBitStr(Str: string): string;

    function ByteToBits(B: Byte): string;
    var
      i: Integer;
    begin
      Result := '';
      for i := 0 to 7 do
        Result := IntToStr(((B shr i) and 1)) + Result;
    end;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(Str) do
    Result := Result + ByteToBits(Ord(Str[i]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(TextToBitStr('Hallo Welt!'));
end;

Ergebnis:

Code:

0100100001100001011011000110110001101111001000000101011101100101011011000111010000100001

Und damit das auch mit Unicode oder WideString funktioniert:

Delphi-Quellcode:

function CharToBits(c: Char): string;
const
  BITS_PER_BYTE = 8;
  BITVALUES: array[Boolean] of char = ('0', '1');
var
  i, BitWidth: integer;
  AsNumber: Cardinal;
begin
  BitWidth := BITS_PER_BYTE * SizeOf(c);
  SetLength(Result, BitWidth);
  AsNumber := Cardinal(c);
  for i := BitWidth downto 1 do
    begin
      Result[i] := BITVALUES[(AsNumber and 1) = 1];
      AsNumber := AsNumber shr 1;
    end;
end;

function StrToBits(const s: string): string;
var
  i: integer;
begin
  Result := '';
  for i := 1 to Length(s) do
    Result := Result + CharToBits(s[i]);
end;

Ich bin nicht sicher, ob es auch Codierungen mit mehr als 4 Byte je Zeichen gibt. Falls ja, müsste man AsNumber halt als int64 deklarieren und entsprechend casten.

[Popov]

Du hast Recht, ich musste mir auch mal sagen, dass die Annahme, dass ein Byte aus 8 Bits besteht, eher eine Legende ist. Andere Systeme, andere Bytes.

[DeddyH]

Ab Delphi 2009 sind das 2 Bytes, da String dort UTF-16 kodiert ist. Wer dann nicht bedacht hat, bei solchen Operationen mit SizeOf(Char) zu multiplizieren, hatte die Kappe auf. Die Foren waren seinerzeit voll mit solchen Beiträgen

[Popov]

Nein, ich meine hier weniger die genutzten Bytes beim String, sondern aus wie viel Bits besteht ein Byte. Beim PC eben aus 8, aber bei anderen Systemen aus 4 oder 7 usw. Somit ist Byte kein eindeutige Größe.

[Furtbichler]

Sagt mal, sollen wirklich Zeichen zu Bits oder nicht eher Bytes zu Bits konvertiert werden. Und wieso überhaupt konvertieren? Verstehe ich nicht (mehr).

[MeierZwoo]

Zitat von Furtbichler:

Sagt mal, sollen wirklich Zeichen zu Bits oder nicht eher Bytes zu Bits konvertiert werden. Und wieso überhaupt konvertieren? Verstehe ich nicht (mehr).

Da man es auch schlecht "konvertieren" kann, da es eh dasselbe ist und bleibt, ist dies eben nur das Unverständnis des TE's für Daten.

[MeierZwoo]

Zitat von Popov:

Du hast Recht, ich musste mir auch mal sagen, dass die Annahme, dass ein Byte aus 8 Bits besteht, eher eine Legende ist. Andere Systeme, andere Bytes.

Ein Byte hat per Definition immer 8 Bit, egal ob als Definitionsbyte oder als Type!

Chars können verschieden lang (durch unterschiedlich viele Bytes definiert) sein, aber nicht Byte.

[Popov]

@Furtbichler

Der TE hat gefragt, der TE hat Möglichkeiten erhalten. Was er damit macht, ist sein Sache. Vielleicht führt das nirgendwo, vielleicht entwickelt er daraus den genialen Komprimieralgorithmus. Aber vielleicht macht er daraus nur Musik

Delphi-Quellcode:

procedure MachMusikAusDemString(s: string);
var
  i: Byte;
begin
  for i := 0 to Length(s) do
    if s[i] = '1' then Windows.Beep(300 * Random(7), 100) else Sleep(100);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := '0100100001100001011011000110110001101111001000000101011101100101011011000111010000100001';
  MachMusikAusDemString(s);
end;

@MeierZwoo

Jajn: http://de.wikipedia.org/wiki/Byte

[MeierZwoo]

Zitat von Popov:

@MeierZwoo

Jajn: http://de.wikipedia.org/wiki/Byte

Wikipedia ist weder für mich noch für andere maßgeblich - Wikipedia ist keine Standardisierungs-Organisation! Und viele Artikel auf Wikipedia, vorallem im Bereich EDV, leben vom Wunschdenken der Autoren, ohne auf den Unterschied zwischen anerkannten Regeln der Technik und Wünschen hinzuweisen. Dem entsprechend habe ich den Artikel auch nicht gelesen.

[Popov]

okey