Запись байтов из массива

[Ultr164]

Всем привет, вот уже два дня колупаюсь с байтами файлов. Пытаюсь писать байты, что бы файл как можно меньше весил (Хаффман). Но как не пытаюсь в любой HEX редакторе вижу непонятные наборы байтов. Если пишу данные как текстовый файл, то вес слишком большой, а байты записать так и не получилось.

procedure SaveFileThread.Execute;
var
  FileStreamOpen: File;
  FileStreamSave: File of Byte;
  ByteArray: Array[0..1024] of Byte;
  I, X, SizeOfFile, Count: Integer;
  Block: String;
  Last, Num, Key, Drw, Spc: Integer;
begin
  Action := 'Сжимаем файл';
  Synchronize(UpdateAction);

  AssignFile(FileStreamOpen, FilePathOpen);
  Reset(FileStreamOpen, 1);
  AssignFile(FileStreamSave, FilePathSave);
  Rewrite(FileStreamSave);
  SizeOfFile := FileSize(FileStreamOpen);

  X := 0;
  Num := 0;
  Drw := 2;
  Spc := 3;

  while not Eof(FileStreamOpen) do
  begin
    BlockRead(FileStreamOpen, ByteArray, 1024, Count);
    for I := 0 to Count do
    begin
      Key := ByteArray[I];
      if Num = 0 then
      begin
        Last := Key;
        Num := Num + 1;
      end
      else
        if Last = Key then
          Num := Num + 1
        else
        begin
          if Num = 1 then
          begin
            Write(FileStreamSave, Alternative[Last]);
            Write(FileStreamSave, Spc);
          end
          else
          begin
            Write(FileStreamSave, Alternative[Last]);
            Write(FileStreamSave, Drw);
            Write(FileStreamSave, Num);
            Write(FileStreamSave, Spc);
          end;
          Last := Key;
          Num := 1;
        end;
    end;
    X := X + 1024;
    Progress := Trunc(X / SizeOfFile * 100);
    Synchronize(UpdateProgress);
  end;
  CloseFile(FileStreamOpen);
  CloseFile(FileStreamSave);

  Action := 'Файл успешно сжат';
  Synchronize(UpdateAction);

  Synchronize(Ending);

  endthread(0);
end;

На скрине красным выделил то, куда я хочу писать нули и единицы.

[XeruH]

А Что ты хочешь видеть там где у тебя выделено красным? 0 и 1.. так и пиши туда 0 или 1 )

[Пепел Феникса]

0 и 1 это биты скорее а не байты.

[veniside]

Сообщение от Ultr164

вижу непонятные наборы байтов

непонятные не значит неправильные )

Прога подсчитывает, сколько раз подряд встречается очередной байт (Key) из входного файла, и пишет в выходной файл соответсвующий байт из массива Alternative[Key], за которым идёт байт со значением [3], если Key повторился 1 раз, или байты [2], [Num], [3], если Key повторился Num раз.

Довольно-таки странный алгоритм, с ещё более странной реализацией, которая ломается, если Key повторится более чем 255 раз, или если Key будет повторятся на границе блока в 1024 байт, но во всяком случае в файл записывается всё верно.

Что действительно непонятно, так это при чём тут Хаффман )

[Ultr164]

По Хаффманскому алгоритму я получаю альтернативы для каждого байта (для этого разумеется считаю частоту вхождения всех байтов) и потом хочу записать эти последовательности нулей и единиц в файл. Но как я уже не пробовал, новый файл получаю либо намного больше прежнего, либо точно такого же размера

[veniside]

просто надо работать на уровне бит, а у тебя вся работа идёт с байтами (8 бит).

Хаффманские альтернативы, насколько я помню, могут быть от 2 до, скажем, 32 бит каждая. Вот и надо их записывать как цепочку бит, а не как целый байт каждый раз.

Могу только порекомендовать выкинуть всё, что уже написано, и начать заново. Сделать процедуру записи цепочки бит в файл. И вызывать её по мере поступления данных, передавая ей указатель на биты и количество бит, которое надо записать (от 1 до 32, например).

Процедура эта, по мере накопления бит, будет сбрасывать их в файл, и тут уже работа будет с байтами.

Возможно, проще окажется преобразовывать биты в строку, и работать со строкой бит (каждый символ строки будет или '0' или '1'), добавляя новые биты в конец строки простым сложением строк. Это менее эффективно, зато наглядно.

[Ultr164]

Можно пример кода для работы с битами? Если есть