ВЫВОД ЛЮБОГО ФАЙЛА В ВИДЕ НУЛЕЙ И ЕДИНИЦ

[IT-97]

ЗДРАВСТВУЙТЕ! ПЫТАЮСЬ ПРИДУМАТЬ КОД, КОТОРЫЙ ПЕРЕВЕДЕТ ЛЮБОЙ ФАЙЛ В БИНАРНЫЙ КОД И ОБРАТНО (ДВЕ ПРОЦЕДУРЫ) ПРОБОВАЛ НА С++ BUILDER. ТЕКСТОВЫЕ (TXT) ПЕРЕВОЖУ НА УРА. БЕРУ НОМЕР СИМВОЛА char(0-255) И ПЕРЕВОЖУ В ДВОИЧНЫЙ КОД. А ВОТ ЧТО-ТО КРОМЕ TXT ОБРАБОТКЕ НЕ ПОДДАЕТСЯ (ОНО И ПОНЯТНО ТАМ ГОРАЗДО БОЛЬШЕ СИМВОЛОВ КОТОРЫЕ Я НЕ МОГУ ПОЧЕСТЬ НА BUILDERE wchar_t(0-65536))
МОЖЕТ Я ДУМАЮ НЕ В ТОМ НАПРАВЛЕНИИ, ПОМОГИТЕ (ПОДОЙДЁТ КОД НА ЛЮБОМ ЯЗЫКЕ, НО ЛУЧШЕ С++) ЕСЛИ ЧТО-ТО КОРЯВО СКАЗАЛ ПРОШУ ПРОСТИТЬ (Я ТОЛЬКО УЧУСЬ). ВОБЩЕМ ЛЮБОЙ ФАЙЛ ПОСЛЕ ОБРАБОТКИ ДОЛЖЕН БЫТЬ ПРИМЕРНО ТАКИМ:
00101010110100101010101001010100111 1111111010100...............

[JUDAS]

Сообщение от IT-97

ПОДОЙДЁТ КОД НА ЛЮБОМ ЯЗЫКЕ

function IntToBin(value:byte):string;
var i : integer;
begin
  result :='';
  for i:=0 to 7 do
   result := '01'[byte((value and ($01 shl i))>0)+1]+result;
end;


procedure TForm1.Button1Click(Sender: TObject);
var fin, fout : TFileStream;
    buff  : array[0..1023] of byte;
    i,cnt : integer;
    s: string;
begin
  S:='';
  fin := TFileStream.Create('E:\dmp.dat', fmOpenRead);
  fout := TFileStream.Create('E:\dmp-out.dat', fmCreate);
  while fin.Position<fin.Size do
  begin
    cnt := min(sizeof(buff), fin.Size-fin.Position);
    fillchar(buff[0], sizeof(buff), 0);
    fin.Read(buff, cnt);
    for i:=0 to cnt-1 do
      S:=S + IntToBin(buff[i]);
    fout.Write(S[1], Length(S));
    S:='';
  end;
  fout.Free;
  fin.Free;
end;

[min@y™]

ВОБЩЕМ ЛЮБОЙ ФАЙЛ ПОСЛЕ ОБРАБОТКИ ДОЛЖЕН БЫТЬ ПРИМЕРНО ТАКИМ:
00101010110100101010101001010100111 1111111010100...............

любой файл примерно такой и до, и после "обработки"! Зачем тебе это надо?

[Stilet]

ТЕКСТОВЫЕ (TXT) ПЕРЕВОЖУ НА УРА

Похвастаешься своим кодом?

JUDAS

ТС билдер нужен. Тему переношу.

[Krasiosoft]

unsigned char BinStrToByte(const char *binStr){
    unsigned char byte;
    for(int i=0;i<8;i++){
        byte<<= 1;
        if(binStr[i]=='1') byte++;
    }
    return byte;
}

void ByteToBinStr(char *binStr, unsigned char byte){
    for(int i=7;i>=0;i--){
        binStr[i] = (byte&1)?('1'):('0');
        byte>>= 1;
    }
    binStr[8]='\0';
}

BinStrToByte - переводит строку в бинарном виде в байт.
ByteToBinStr - переводит байт в строку в бинарном виде.

Функции не сложно адаптировать и для wchar_t.

Только есть проблема в функции ByteToBinStr, она не должна на последнем шагу выполнять byte>>= 1;, т.к. это можно и не делать. Пока не придумал как лучше решить эту проблему.

[IT-97]

Спасибо всем кто мне помогал.