Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Вниз

Запись графики в поток   Найти похожие ветки 

 
Snake   (2002-01-02 17:21) [0]

Пытаюсь записать несколько картинок в файловый поток. Все хорошо, но если поток открыть а потом записать, даже ничего не меняя, размер файла увеличивается, причем пропорционально числу картинок. Что делать?


 
Anatoly Podgoretsky   (2002-01-02 19:11) [1]

Чтобц размер не менялся, надо не записывать.


 
skaminski~~~~   (2002-01-02 23:37) [2]

А лучше поток не открывать, а стирать файлы - тогда размер даже уменьшаться станет 8)


 
MrBeer   (2002-01-03 09:11) [3]

Mozhesh sdelatj nemnogo po drugomu:

1) Pisatj kartinku v pustoi TMemoryStream (pravda on gad medlenii ochen esli ne znaet razmer).
2) Perepisivatj ee potom v TFileStream takim obrazom:
snachala integer kotorii = MemStream.Size (chtobi schitatj potom mozhno bilo), a za nim uzhe kartinku.
3) Goto 1

Best reagards, MrBeer.


 
Snake   (2002-01-03 16:51) [4]

Спасибо ребята, я разобрался сам. Дело в том, что размер картинки увеличивается при считывании из потока, картинка читает себя до конца потока (т.е. вместе с другой инфой) и потом ее хоть куда запихай, даже в jpg, ее размер будет огромный. Так что теперь все ОК.



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

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

Наверх




Память: 0.44 MB
Время: 0.003 c
7-66367
Sergiu
2001-10-04 10:15
2002.01.21
Вызов диалоговых окон из .rc файлов


1-66250
Shadow77
2001-12-27 23:08
2002.01.21
Delphi-Qt2.x Interface Library


7-66369
Ketmar
2001-10-05 08:55
2002.01.21
SEH без try/except


1-66306
Билл Гейтс
2002-01-04 02:54
2002.01.21
Редактор кода для Дельфи


1-66246
Milz
2002-01-03 17:00
2002.01.21
Нейросети





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