![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| кварк |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 91 Регистрация: 2.8.2002 Репутация: нет Всего: нет |
Пытаюсь архивировать/извлекать информацию с помощью zlib.
Делаю все вроде "по инструкции" (сохраняю строку): Запись: (кнопка 1) Создаю TFileStream Создаю TCompressionStream(clMax, TFileStream) Записываю в TCompressionStream длину строки Записываю в TCompressionStream саму строку Освобождаю TCompressionStream и TFileStream Чтение: (кнопка 2) Создаю TFileStream Создаю TDecompressionStream(TFileStream) Читаю из TDecompressionStream длину строки Читаю из TDecompressionStream саму строку Освобождаю TDecompressionStream и TFileStream Интересный эффект наблюдается: если нажать на кнопку1, а потом не закрывая приложения, на кнопку2, то все нормально: получаем правильное число-длину строки и саму строку (отображается в MessageBox) Если же приложение закрыть и, запустив его снова, нажать на кнопку2, то длина строки получается правильно, а вот вместо строки получается белиберда. Никто с таким не сталкивался? В чем может быть дело? |
|||
|
||||
| ~FoX~ |
|
|||
![]() НЕ рыжий!!! ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 13 Всего: 68 |
кварк
Покажи код.
А возвращает он String, AnsyString, PChar или еще чего? |
|||
|
||||
| p0s0l |
|
||||
![]() Г-н Посол ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
Может ошибка у тебя в этом:
В общем, покажи код... -------------------- С уважением, г-н Посол. |
||||
|
|||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |