Главная страница
    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.035 c
7-1081420177
onyx
2004-04-08 14:29
2004.05.16
Работа с именем файла


1-1082997070
ZedeS
2004-04-26 20:31
2004.05.16
Побайтное чтение файла


4-1080211220
Volodya_
2004-03-25 13:40
2004.05.16
Потоки


14-1082951872
Dmitriy O.
2004-04-26 07:57
2004.05.16
Вчера я открыл дачный сезон ! Вскопал грядку !


3-1082238236
SergeyV
2004-04-18 01:43
2004.05.16
Соединение с MS-SQL2000 из консольного приложения





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский