Нужно получить двоичный код файла

[Ale}{ander]

Пишу свой архиватор, алгоритм есть, но не могу получить двоичный код файла. Сейчас пробую так

  var bin: array[0..1023] of char;

  F:=TFileStream.Create('djo.avi',fmOpenRead,fmShareExclusive);
  F.Read(bin, 1024);
  F.Free;

Вопрос такой, как получить двоичный код любого файла?

[Аватар]

Что такое двоичный код файла? Любой байт любого файла и представляет из себя 8 двоичных цифр. По теме - если уж читать, то лучше в массив Byte, а не Char. Если речь о произвольных файлах

[Ale}{ander]

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

Что такое двоичный код файла? Любой байт любого файла и представляет из себя 8 двоичных цифр. По теме - если уж читать, то лучше в массив Byte, а не Char. Если речь о произвольных файлах

Возможно я не правильно выразился, эти самые 8 двоичных циферок каждого байта в файле мне и нужно получить. Но как???

п.с: Вообще я использовал byte, char я поставил из-за того, что TFileStream в byte не может загружать.

[Аватар]

IntToBin есть в IdGlobal или аналогичную сделать. Еще http://www.sources.ru/delphi/algorit...bintoint.shtml
А читать в массив байт F.Read(bin[0], 1024); и в цикле, пока до конца не прочитаешь

PS сомневаююсь, что упакованный файл впоследствии будет короче исходного, если так подходить к битам

[Serge_Bliznykov]

Сообщение от Ale}{ander

п.с: Вообще я использовал byte, char я поставил из-за того, что TFileStream в byte не может загружать.

что за ересь?!!
с чего это вдруг?!

program Project7;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
  bin: array[0..1023] of byte;
  F : TFileStream;
  r : integer;
begin

  F:=TFileStream.Create('djo.avi',fmOpenRead,fmShareExclusive);
  r := F.Read(bin, sizeof(bin));
  F.Free;
end.

[Аватар]

что за ересь?!!

И правда. Пошел на поводу ТС. Читать в статический массив байтов можно указывая bin или bin[0]

[northener]

Сообщение от Ale}{ander

Возможно я не правильно выразился, эти самые 8 двоичных циферок каждого байта в файле мне и нужно получить. Но как???

Есть обоснованные сомнения что "эти самые 8 двоичных циферок" вам действительно нужны.