Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.036 c
14-1083168604
Ilya
2004-04-28 20:10
2004.05.16
Счётчик скачиваний


8-1077020922
Gast1
2004-02-17 15:28
2004.05.16
Как создать анимацию для кнопки


6-1080325224
Rezya
2004-03-26 21:20
2004.05.16
Перехват входящего и исходящего трафика


7-1081363895
Namiq
2004-04-07 22:51
2004.05.16
как получить изображение из webcam


1-1083729481
Alex Y
2004-05-05 07:58
2004.05.16
Размер канвы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский