Двоичный код в строку

[Человек_Борща]

Доброго времени суток!

Пишу простенький клиент-сервер на основе сокетов.
Сообщения кодирую в бинарный код(1 и 0).

Написал для этого процедуру:

function Str2Bin(aStr: string): string;
type
  TBitsPerChar = 1..8;
var
  iChar, iBit: Integer;
  s: string;
begin
  s := aStr;
  for iChar := 1 to Length(s) do
    for iBit := High(TBitsPerChar) downto Low(TBitsPerChar) do
      Result := Result + IntToStr((Byte(s[iChar]) shr (iBit - 1)) and 1)[1];
end;

Буква F => 01000110

Попробовал перевернуть функцию т.к. ничего более в голову не пришло:

function Bin2Str(aStr: string): string;
type
  TBitsPerChar = 1..8;
var
  iChar, iBit: Integer;
  s: string;
begin
  s := aStr;
  for iChar := Length(s) downto 1 do
    for iBit := Low(TBitsPerChar)  to High(TBitsPerChar) do
      Result := Result + IntToStr((Byte(s[iChar]) shl (iBit + 1)) and 0)[1];
end;

Как раскодировать текст?

ОБНОВЛЕНО
Вопрос отвалился, придумал решение.

Написал декодер:

function Bin2Str(aStr: string): string;
var
  s: string;
  iChar,i: Integer;
  rs: string;
begin
  iChar:=0;
  i:=0;
  result := '';
  s := aStr;
  while Length(s) > 0 do
  begin
  iChar:=0; //re init
    if Length(s) < 8 then
      Break;
    for i := 1 to 7 do
    begin
      iChar := (iChar + ord(s[i]) - 48) shl 1;
    end;
    rs := rs + Chr(iChar);
    Delete(s, 1, 7);
  end;
  Result := rs;
end;

F => 01000110
01000110 => F

А вот толпу текста перводит, но не так как нужно.

С русским алфовитом ни кодер, ни декодер не рулит, в чем соль?

[s-andriano]

А по сколько символов Вы отводите на 1 байт?
В декодере, вроде, по 7 (цикл от 1 до 7).

[Человек_Борща]

1 символ = 1 Байту = 8 битам.
Строку вроде как с 1 начинают отсчитывать т.к. s[0] выводит весь массив(строка полностью).
Если с 0 и до 7, то не то возвращает, если от 1 и до 8, то тоже не то.

Длинну проверял. H => 01 00 10 00 = 4 битам или 8 символам в рез-те.
Hello(5 знаков) => 01 00 10 00 01 10 01 01 01 10 11 00 01 10 11 00 01 10 11 11 = 20 битам или 40 знакам в рез-те.

А вот из этих 40 бит, выводит это: Hdlln, а должно Hello.

Как быть с русским алфавитом, вообще труба.

[Аватар]

А что за блажь в битовое представление? В hex будет в четыре раза короче. А в BASE64 еще короче. И все таки битов 8, а не 7

[Человек_Борща]

А что за блажь в битовое представление?

Не понял*

В hex будет в четыре раза короче. А в BASE64 еще короче.

Знаю, но 2-ой кодировкой надо, так хочет заказчик.

И все таки битов 8, а не 7

Думаете не пробовал? Перебрал всевозможные варианты.

function Bin2Str(aStr: string): string;
var
  s: string;
  iChar,i: Integer;
  rs: string;
begin
  iChar:=0;
  i:=0;
  result := '';
  s := aStr;
  while Length(s) > 0 do
  begin
  iChar:=0; //re init
    if Length(s) < 8 then
      Break;
    for i := 1 to 8 do
    begin
      iChar := (iChar + ord(s[i]) - 48) shl 1;
    end;
    rs := rs + Chr(iChar);
    Delete(s, 1, 8);
  end;
  Result := rs;
end;

F => 01000110
01000110 => Њ

Нет, уже и с одной буквой не работает.

[s-andriano]

Сообщение от Человек_Борща

1 символ = 1 Байту = 8 битам.

Еще раз обращаю Ваше внимание, что в декодере используется цикл от 1 до 7.

Hello(5 знаков) => 01 00 10 00 01 10 01 01 01 10 11 00 01 10 11 00 01 10 11 11 = 20 битам или 40 знакам в рез-те.

Сам кода, вроде верный, следовательно, ошибка в декодере.
Хотя, что такое "20 битам или 40 знакам", я не понимаю.

А вот из этих 40 бит, выводит это: Hdlln, а должно Hello.

Как быть с русским алфавитом, вообще труба.

Когда найдете ошибку (а мне кажется, я Вам на нее указал), кириллица будет работать так же, как и латиница.

PS. По поводу того, что Вы с самого начала делаете что-то не то (т.е. увеличиваете для передачи объем данных в 8 раз), вполне согласен с Аватаром.

[Человек_Борща]

Хотя, что такое "20 битам или 40 знакам", я не понимаю.

1 бит это, ну как вам сказать... или так: 00 или так: 01 (в двоичной системе). Откройте HEX редактором(там 16-титричная) что угодно, увидите биты.
В слове Hello 20 раз по 2.

Еще раз обращаю Ваше внимание, что в декодере используется цикл от 1 до 7.

Постом выше привел код с вашим вариантом цикла, результат там же.

PS. По поводу того, что Вы с самого начала делаете что-то не то (т.е. увеличиваете для передачи объем данных в 8 раз), вполне согласен с Аватаром.

Я об этом знаю. Заказчику нужно именно это.

Проверил! Декодер работает нормально, ну или мне так кажется.
лат. символ e => 01100101
01100101 => d



Проблему решил сдвигом iChar вправо на 1 бит, после выполнения цикла, и передачей символа в строку.
Цикл от 1 до 8.

[Аватар]

//      iChar := (iChar + ord(s[i]) - 48) shl 1;
      iChar := (iChar shl 1)+ ord(s[i]) - 48;

И цикл само собой от 1 до 8

[Человек_Борща]

Аватар, хм а я iChar shr 1 после цикла вставил и тоже работает.
В чем фокус? Вроде от перемены мест сумма не меняется...

Update
Дошло.

[s-andriano]

что-то накидал на скорую руку:

function Str2Bin(aStr: string): string;
const bid : array[0..1]of char = ('0','1');
var
  iChar, iBit: Integer;
  s: string;
begin
  s := '';
  for iChar := 1 to Length(aStr) do
    for iBit := 7 downto 0 do
      s := s + bid[(Byte(aStr[iChar]) shr iBit) and 1];
  Str2Bin := s;
end;

function Bin2Str(aStr: string): string;
var
  s: string;
  i,j,k : longint;
  ich : integer;
begin
  s := '';
  k := 1;
  for i := 1 to length(aStr) div 8 do begin
    ich := 0;
    for j := 0 to 7 do begin
      ich := ich*2 + byte(aStr[k]) - byte('0');
      inc(k);
    end;
    s := s + char(ich);
  end;
  Bin2Str := s;
end;

var
  s0,s1,s2 : string;
begin
  s0 := 'Hello';
  s1 := Str2Bin(s0);
  s2 := Bin2Str(s1);
  writeln('[',s0,'][',s1,'][',s2,']');
end.