Tutorial Arbeiten mit Dateien auf binärer Ebene

[Popov]

Zitat von p80286:

Auch wenn es interessant ist Euch "zuzulesen" wie wär's sich zum Titelthema zu kommen?

Indirekt ist es immer noch das Thema, nur fortgeschritten. Denn wie er die Bits aus Byte auslesen kann, wurde schon gesagt.

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

[Popov]

So, ich hab zum Spaß einen kleinen Algorithmus für Textkomprimierung geschrieben. Der Algorithmus funktioniert so, dass sich wiederholende Wörter durch Adressen auf das erste Wort ersetzte werden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
  sl: TStringList;
begin
  s := 'AUCH EIN KLEINER BEITRAG IST EIN BEITRAG'; //Text der komprimiert wird. Er ist 40 Zeichen lang

  ShowMessage(Format('Text lautet "%s" und ist unkomprimiert %d Bytes lang.', [s, Length(s)]));

  sl := TStringList.Create;
  try
    sl.Delimiter := ' ';

    //--------------------------------------------------------------------------
    ShowMessage('Der Text wird jetzt komprimiert.');

    sl.DelimitedText := s;

    for i := sl.Count - 1 downto 0 do
      if (sl.IndexOf(sl[i]) <> i) and (sl.IndexOf(sl[i]) > -1) then
        sl[i] := '~' + IntToStr(sl.IndexOf(sl[i]));

    s := sl.DelimitedText;
    ShowMessage(Format('Text lautet "%s" und ist komprimiert %d Bytes lang.', [s, Length(s)]));

    //--------------------------------------------------------------------------
    ShowMessage('Der Text wird jetzt wieder dekomprimiert.');

    sl.DelimitedText := s;

    for i := 0 to sl.Count - 1 do
      if (Length(sl[i]) > 1) and (sl[i][1] = '~') then
        sl[i] := sl[StrToInt(Copy(sl[i], 2, MaxInt))];

    s := sl.DelimitedText;
    ShowMessage(Format('Text lautet "%s" und ist unkomprimiert %d Bytes lang.', [s, Length(s)]));

  finally
    sl.Free;
  end;
end;

[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