Скачать: CL | DM;

Распаковка ZDecompressStream   Найти похожие ветки 

← →
Chaser ©   (2007-09-28 16:19) [0]

Привет всем!

Вопрос по упаковке/распаковке Zlib (нужно по сети передать StringList).

Пакую так:


var
Str: TStringList;
Memstr,CompressStream: TMemoryStream;
begin
...
Str.SaveToStream(Memstr);
ZCompressStream(Memstr,CompressStream,zcDefault);
CompressStream.Position:=0;

AThread.Connection.OpenWriteBuffer;
AThread.Connection.WriteInteger(CompressStream.Size);
AThread.Connection.WriteStream(CompressStream);
AThread.Connection.CloseWriteBuffer;
...
end;


Распаковка:


 ms.Clear;
 n:=Form1.IdTCPClient.ReadInteger(true);
 Form1.IdTCPClient.ReadStream(ms,n);

 ZDecompressStream(ms,msd);
 Str.LoadFromStream(msd);
 ...


В итоге "msd" почему-то равняется 0, хотя "ms" равен какому-то числу (т.е. данные есть).

Вот не пойму, почему не распаковывается поток?

---

← →
Сергей М. ©   (2007-09-28 16:50) [1]

> "msd" почему-то равняется 0


Объект не может быть ранен ни нулю, ни "какому-то числу".

---

← →
Chaser ©   (2007-09-28 17:00) [2]

msd.size конечно же.

---

← →
Chaser ©   (2007-09-28 17:01) [3]

Из-за чего так может быть?

---

← →
Сергей М. ©   (2007-09-28 17:04) [4]

Ну наверно из-за того что на передающей стороне CompressStream.Size = 0

---

← →
Сергей М. ©   (2007-09-28 17:08) [5]

И, кстати, нет нужды явно вызывать методы WriteInteger, ReadInteger.

Посмотри внимательно на параметры методов WriteStream, ReadStream - при определенных значениях эти методы способны делать то же самое (т.е. писать/читать префикс размера потока), но неявно.

---

← →
Chaser ©   (2007-09-28 17:28) [6]

Всем спасибо, как всегда ошибка закралась в невнимательности (((

Str.SaveToStream(Memstr);
Memstr.Position:=0;               <- забыл дописать
ZCompressStream(Memstr,CompressStream,zcDefault);

Вопрос закрыт.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c