VPF::Биты в АСКИ - Форум программистов

Hydroxide

Дата 18.10.2006, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 17.10.2006

Репутация: нет
Всего: нет

Есть ли в Дэлфе что то встроеное на тему перевода из тупой битовой последовательности в нормальынй текст? Или ест ькакие - либо обходные пути для решения сей проблемы...

Ответ на это твпорос искал - не нашел...
В Гугл не отправлять.. хотя если вы мне дадите ссылку на документацию... буду очень благодарен.

Заранее спасибо smile

Zero

Дата 18.10.2006, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(Hydroxide @ 18.10.2006, 17:56

)

Есть ли в Дэлфе что то встроеное на тему перевода из тупой битовой последовательности в нормальынй текст?

Ну вот например:

Код


var
  c:char;
  i:integer;
...  
  c:=chr(65);  //На выходе значение символа
  i:=ord('A');  //На выходе код символа

Hydroxide

Дата 18.10.2006, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 17.10.2006

Репутация: нет
Всего: нет

Я не могу дать толковый пример, чего мне надо. Но смысл примерно в следующем...

Ко мне приходит 1010101010000111101010101010101010...

И это надо перевести в нормальынй текст... только не вручную.. всмысле можно и вручную, но я хочу узнать есть ли в Делфи что то встроеное на эту тему?

Romikgy

Дата 18.10.2006, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Hydroxide @ 18.10.2006, 18:51

)

1010101010000111101010101010101010

это текст или что то другое?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Hydroxide

Дата 18.10.2006, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 17.10.2006

Репутация: нет
Всего: нет

Да, обычный текст...

Romikgy

Дата 18.10.2006, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

тогда надо писать ф_цию для преобразования
чуть позже ее напишу если кто другой быстрее это не сделает

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Zero

Дата 18.10.2006, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(Romikgy @ 18.10.2006, 21:18

)

тогда надо писать ф_цию для преобразования

Дык тут не сказано, как должно преобразовываться... smile

На входе понятно, что последовательность символов:

Цитата(Hydroxide @ 18.10.2006, 20:51

)

Ко мне приходит 1010101010000111101010101010101010

А на выходе что должно быть???

Цитата(Romikgy @ 18.10.2006, 21:18

)

чуть позже ее напишу если кто другой быстрее это не сделает

Типа ты телепат???

Hydroxide

Дата 18.10.2006, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 17.10.2006

Репутация: нет
Всего: нет

Вход - 01010000111100001000
Выход - Я люблю пить чай с вареньем.

Ф-ю ето понятно, правда наверное вы мне можете предложить какой то способ получше, чем придумаю я... так что буду благодарен хотя бы если намекнете принцип.. мысли то у меня у самого в голове крутстся, да все какие то слишком уж сложные...

И вопрос вобщем то состоит в том.. может ли Делфи делать то, что я хочу сам, или надо вручную писать функцию. Если надо писать функцию то подскажите принцип =)

Это сообщение отредактировал(а) Hydroxide - 18.10.2006, 20:37

Zero

Дата 18.10.2006, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(Hydroxide @ 18.10.2006, 21:34

)

Вход - 01010000111100001000
Выход - Я люблю пить чай с вареньем.

Как ты это определил????
Что быдет если код такой: 100000011110101010000001111111111010101

Цитата(Hydroxide @ 18.10.2006, 21:34

)

И вопрос вобщем то состоит в том.. может ли Делфи делать то, что я хочу сам, или надо вручную писать функцию.

Делфи это инструмент для программирования, а не готовый искуственный интелект.

Hydroxide

Дата 18.10.2006, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 17.10.2006

Репутация: нет
Всего: нет

Цитата

Делфи это инструмент для программирования, а не готовый искуственный интелект.

Так вот оно оказывается как на самом деле smile

Цитата

Как ты это определил????

Никак. Просто привел пример. Это наугад.. рандомные цифры и первая фраза, которая пришла в голову.

Это сообщение отредактировал(а) Hydroxide - 18.10.2006, 21:24

SlaUr

Дата 19.10.2006, 07:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

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

Опишите подробнее какую мы имеем на входе битную последовательность

Это сообщение отредактировал(а) SlaUr - 19.10.2006, 07:05

Yanis

Дата 19.10.2006, 08:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Hydroxide @ 18.10.2006, 17:56

)

хотя если вы мне дадите ссылку на документацию... буду очень благодарен

Какую документацию?

Код

const
  cc = '0101100101100001011011100110100101110011';

var
  ss, s, res: string;
  c: Char;
begin
  res := '';
  s := cc;
  repeat
    ss := Copy(s, 1, 8);
    c := Chr(BinToInt(ss));
    res := res + c;
    Delete(s, 1, 8);
  until Length(s) < 8;

  ShowMessage(res);
end;

Подразумевается, что группой из 8-ми символов в cc представлено числовое значение какого-либо символа в двоичной СС.

Добавлено @ 08:30
http://forum.vingrad.ru/index.php?showtopi...st&p=372521
Только тип результата, который возвращает эта функция по моему лучше исправить на Byte.

--------------------

*щёлк*

Hydroxide

Дата 19.10.2006, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 17.10.2006

Репутация: нет
Всего: нет

Спасибо, подумаю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »