Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

Трудности с разжатием потока (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;
...

---

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

Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c