Запись бинарных данных в TStream

[retroguy]

Нужно записать 1 бит информации типа TBits в TStream.
Перекопал кучу инфы в нете. Есть запись чего угодно кроме битов. Кто подскажет как реализовать?

[Аватар]

Никак. Минимальная единица записи/чтения - 1 байт. А информации типа TBits нет, это компонент со своими возможностями

[phomm]

А в лоб нельзя сделать ? Пишем тупо в каждый байт по 8 битов из bits

procedure WriteBits(fs: tfilestream; bits:tbits);
var 
  b: byte;
  i : integer;
begin
  for i := 0 to bits.size - 1 do
  begin
    if i mod 8 = 0 then
    begin
      fs.write(b, sizeof(b));
      b = 0;
    end;
    b := b or (bits[i] shl (i mod 8));
  end;
end;

Как-то так, написал тут без проверки.
Альтернативный способ писать просто байт на каждый бит, правда в 8 раз файлик увеличится.

[GunSmoker]

retroguy, тебе может надо всё же набор битов записать - последовательно, по одному биту?

[retroguy]

phomm,
С битами в Делфи честно говоря, не очень. Но здесь просто нужно записать свои биты в блоб поле. Думал через потоки решу вопрос. Но удостоверился в том, что Делфи в битами, мягко говоря не очень.
За код огромное спасибо. Направление понял.
Но вот здесь
b := b or (bits[i] shl (i mod 8));
вылетает
[Error] ххх.pas(1119): Operator not applicable to this operand type

Кста, TFileStream не совсем оно, но конечно, особой разницы не вижу.

[retroguy]

типа того, и положить в блоб

[retroguy]

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

retroguy, тебе может надо всё же набор битов записать - последовательно, по одному биту?

типа того, и положить в блоб

[retroguy]

Итак, конечный рабочий вариант:

procedure WriteBitsToStream(Stream: TMemoryStream; Bits: TBits);
var
  b : byte;
  i : integer;
  finish : Boolean; // индикатор "дописаности" байта
begin
  b := 0;

  for i := 0 to Bits.size-1 do
  begin
    finish := false; // указываем что байт не дописан
    b := ( b or (Integer(Bits[i]) shl (i mod 8)));

    if i = 7 then // если байт заполнился
    begin
      Stream.Write(b, sizeof(b)); // пишем его в поток
      b := 0;
      finish := true; // указываем, что байт дописан
    end;
  end;

  if not finish then // если байт не дописан
  begin
    Stream.Write(b, sizeof(b)); // пишем его в поток
    b := 0;
  end;
end;

Благодарю всех за участие.
Замечание по поводу исп. TFileStream беру обратно. Сам использовал TMemoryStream, т.к. TStream не годится для записи (вылетает Abtract error).
В блоб положил данные из TMemoryStream без проблем (с помощью LoadFromStream).

Никак. Минимальная единица записи/чтения - 1 байт. А информации типа TBits нет, это компонент со своими возможностями

Плохому танцору...

Отдельная благодарность phomm. Красава! Настоящий программист находит пути решения! Возможно не всегда приемлемые. Но рабочие

[Аватар]

Плохому танцору...

Нужно записать 1 бит информации типа TBits в TStream

Научитесь правильно вопрос задавать. То, что вам подсказали не один бит пишет в стреам, а последовательность байтов с двоичной информацией. По поводу танцоров в зеркало посмотрите

[retroguy]

Сообщение от Аватар

Научитесь правильно вопрос задавать. То, что вам подсказали не один бит пишет в стреам, а последовательность байтов с двоичной информацией. По поводу танцоров в зеркало посмотрите

Не хотел никого обидеть. Вырвалось. И по поводу вопросов: в чем принципиальная разница в том, чтобы вместо 1-го бита записать 8-мь (или же последовательности бит)? Вы бы повнимательнее прочитали пост человека, что записать можно только количество кратное 8-ми битам. Именно поэтому и был дан ответ не совсем отвечающий строго на мой вопрос. Но принцип один и тот же!