Распаковка Zlib

[ДралсяСошибками]

Добрый день, Господа.
Подскажите в чём ошибка, начинает распаковывать нормально 20-30кб, но дальше уже распаковывает не правильно, пока не выскочит ошибка

MS := TMemoryStream.Create;
  FS := TFileStream.Create('12345', fmCreate);
  DS := TDecompressionStream.Create(MS);
    repeat
      i := Recv(s, Buffer, SizeOf(Buffer), 0);
      MS.Write(Buffer, i);
      Count := DS.Read(Buffer, i);
      FS.Write(Buffer, Count);
    until i = 0;

[Stilet]

Правильно. Так делать нельзя. Сначала считай все в MemoryStream, а уже потом распаковывай. Для компрессора важно чтоб весь запакованный контент был в наличии а не только его часть. По частям он не умеет.

[ДралсяСошибками]

Спасибо. После, распаковка работает, хотел побыстрее, жаль что так нельзя

[Slym]

попытка распаковать на лету?
так вот по твоему коду размер распакованных данных не превышает размер запакованных...

допустим Buffer - 1кб
i := Recv(s, Buffer, SizeOf(Buffer), 0); i=1024
      MS.Write(Buffer, i); 
      Count := DS.Read(Buffer, i);count<=1024
      FS.Write(Buffer, Count);

забей на распаковку налету - сначала прими полностью потом распаковывай

[ДралсяСошибками]

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

размер распакованных данных не превышает размер запакованных...

Именно так.
Спасибо, уже забил

[Stilet]

хотел побыстрее

Типичная ошибка )
Мы все на нее клюем время от времени.