Трудности с разжатием потока (ZLib)

← →
tlan (2004-05-01 12:00) [0]

Здравствуйте Уважаемые. Проблема в следующем: файл хранится в таблице в сжатом виде (использую ZLib), при получении его содержимого ниже описанным способом его длина составляет 0 байт. Мне кажется что проблема в этом месте (***), не подскажите как можно это обойти, спасибо.

const BufferSize = 4096; var Count:integer; Buffer: array[0..BufferSize-1] of Byte; ... DestStream:=TFileStream.Create(SaveDialog.FileName,fmCreate); SourceStream:=TMemoryStream.Create; try TBlobField(fmMainQuery.FieldByName("DocFileAtach")).SaveToStream(SourceStream); // *** <Problem> ZStream:=TDecompressionStream.Create(SourceStream); try while True do begin Count:=ZStream.Read(Buffer, BufferSize); if Count<>0 then DestStream.WriteBuffer(Buffer, Count) else Break; end; finally ZStream.Free; end; finally SourceStream.Free; DestStream.Free; end;

← →
tlan (2004-05-01 13:41) [1]

Ну совсем уже погнал!!!
Сам нашел в чем причина.
Для тех кому интересно:
...
TBlobField(fmMainQuery.FieldByName("DocFileAtach")).SaveToStream(SourceStream);
SourceStream.Position:=0;
...

Трудности с разжатием потока (ZLib) Найти похожие ветки