Сжатие текстового файл с 8бит в 6бит

[Karateka]

В принципе подумал, как обойти это. Когда у байта значение 13. То переменной не буду присваивать знак конца строки ansichar(13), а присваиваю переменной допустим такой знак ╗, который не появляется от ansichar(1-255). А когда разжимаю, если нахожу в тексте этот знак, то ставлю переменной значение 13. Сейчас буду проверять. Думаю должно прохелять.

[Karateka]

Парни в общем никак не могу решить эту проблему. Помогите пожалуйста.

В общем сжимаю файл. В файле у меня два символа 'CP'. Символу C соответствует - 000011, символу P - 010000. Сжимаю из 8-ти бит в 6-ть. Получается первый байт равен - 00001101, второй байт - 00000000. Числовое значение первого байта равно 13. Беру от 13 символьное значение, это символ возврата каретки (по таблице ANSII), пишу его в файл, он записался.
Теперь разжимаю файл, читаю из него. В итоге символ возврата каретки не читается. В переменную записывается пустая строка.
Тоже самое и с символом 10(по таблице ANSII).

Как решить эту проблему?

[Karateka]

Если возможно, как-то прочитать из файла, #10 и #13 символы? то подскажите пожалуйста.

[Serge_Bliznykov]

Вам давным давно пора понять, что для чтения/записи бинарных файлов нужно пользоваться подходящими для этих файлов методами.
Это либо олдскул - BlockRead/ BlockWrite, либо (рекомендую) - TFileStream
Для этих методов абсолютно всё равно, что у Вас в файле #0, #8, #13, #10, #26 и т.д. и т.п.

Ну и разумеется, никаких визуальных контролов (типа Memo) для бинарных данных использовать НЕЛЬЗЯ.

[Karateka]

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

Вам давным давно пора понять, что для чтения/записи бинарных файлов нужно пользоваться подходящими для этих файлов методами.
Это либо олдскул - BlockRead/ BlockWrite, либо (рекомендую) - TFileStream
Для этих методов абсолютно всё равно, что у Вас в файле #0, #8, #13, #10, #26 и т.д. и т.п.

Ну и разумеется, никаких визуальных контролов (типа Memo) для бинарных данных использовать НЕЛЬЗЯ.

Да но я работаю с txt файлом. BlockRead/ BlockWrite с ними не работают. Или есть способ как подогнать txt файл под BlockRead/ BlockWrite?

[Пепел Феникса]

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

Да но я работаю с txt файлом. BlockRead/ BlockWrite с ними не работают. Или есть способ как подогнать txt файл под BlockRead/ BlockWrite?

работают и отлично, просто файл не объявляйте как текстовый.

[Karateka]

Сообщение от Пепел Феникса

работают и отлично, просто файл не объявляйте как текстовый.

Спасибо, запомню. Буду через них работать.

[Serge_Bliznykov]

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

Да но я работаю с txt файлом.

на чтение - может быть.

Но! как только Вы его сжали:

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

... Беру от 13 символьное значение, это символ возврата каретки (по таблице ANSII), пишу его в файл, он записался.
Теперь разжимаю файл, читаю из него.

полученный файл уже явно не текстовый.
Сомневаетесь в этом? Так откройте полученный файл в блокноте/редакторе FAR Commander/любом HEX вьевере.
Убедитесь, что после сжатия файл перестаёт быть текстовым, и, соответственно, методы работы с текстовым файлом не проходят.

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

Буду через них работать.

Можно через них. Но я бы рекомендовал всё таки использовать TFileStream. Это более современно (BlockRead/BlockWrite - оставлены больше для совместимости со старым кодом), удобно, надёжно. В конце концов использование TFileStream - это даже проще!

но, с другой стороны, воля ваша, нравятся раритетные BlockRead/BlockWrite - можно и их использовать...

[Karateka]

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

Но я бы рекомендовал всё таки использовать TFileStream. Это более современно (BlockRead/BlockWrite - оставлены больше для совместимости со старым кодом), удобно, надёжно. В конце концов использование TFileStream - это даже проще!

Спасибо за совет (TFileStream). Теперь все работает как часы! =)