Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.19;
Скачать: CL | DM;

Вниз

Если кто-то работал с ZLib, помогите!   Найти похожие ветки 

 
Unknown user ©   (2004-12-01 19:22) [0]

Как заставить грузится TBitmap из TDecompressionStream. При вызове TBitmap.LoadFromStream определяется размер потока- вызывается TStream.GetSize, в котором используется Seek(0, soFromEnd), а для TDecompressionStream Origin=soFromEnd в Seek -это недопустимая операция. Как выйти из этого положения, Надо записывать/считывать графику...


 
GuAV ©   (2004-12-01 19:23) [1]

Unknown user ©   (01.12.04 19:22)

Писать размер вперёд данных.


 
Unknown user ©   (2004-12-01 19:29) [2]

Ч использую стандартный TBitmap.LoadFromStream. Создавать свои графические классы только для считывания/записи в поток как-то не хочется.


 
GuAV ©   (2004-12-01 19:47) [3]

А если объявить своего наследника TStream, и из TDecompressionStream прочитать размер для GetSize, , и дальнейшее чтение делать из TDecompressionStream ?


 
Unknown user ©   (2004-12-01 20:36) [4]

2 GuAV. Проблема в том, что размер распакованных данных в процессе чтения сжатого потока мы знать не можем, поэтому TDecompressionStream так и реагирует на GetSize. А менять TBitmap.LoadFromStream -значит создавать свой класс. Может есть графичесские библиотеки для Делфи, которые содержат граф. классы имеющие методы LoadFromStream?


 
GuAV ©   (2004-12-02 00:43) [5]

Сам хотел уже написать [3] кодом, как нашел способ проще

type
 TXBitmap = class(TBitmap);
...

 TXBitmap(Bmp).ReadData(S, True)
 TXBitmap(Bmp).WriteData(S, True)


 
GuAV ©   (2004-12-02 00:44) [6]

Пардон, без вторго True, с WriteStream попутал.


 
Unknown user ©   (2004-12-06 16:41) [7]

2 GuAV. Запоздавшее спасибо. Очень мне помогли, сам бы я, по причине невнимательности, никогда бы не нашел эти процедуры.



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

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.054 c
3-1100687772
Chery
2004-11-17 13:36
2004.12.19
Нет конекта через службу Borland Socket Server.


1-1102317420
Владимир С.
2004-12-06 10:17
2004.12.19
Delphi6 + Delphi7


3-1100471124
AUS_r4nd0m
2004-11-15 01:25
2004.12.19
Удаление текущей записи


14-1101898281
_}|{yk_
2004-12-01 13:51
2004.12.19
Верховная Рада отправила правительство Януковича в отставку


1-1102261121
Гаврилов В.А.
2004-12-05 18:38
2004.12.19
Возможно ли засунуть интернет-страницу в программу