Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как очистить Image, работа с Image 
:(
    Опции темы
SkilFul
  Дата 19.5.2004, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 12.5.2004

Репутация: нет
Всего: 1



Глупо задавать вродебы такой глупый вопрос, но все-таки как же это сделать? В книге Бобровского не нашел и в ФАКАХ тоже (больно простой вопрос)!!!

ПРобовал FreeImage, но не получается выдается ошибка!

Мне нужно чтобы Image.BitMap очистился!!!

Подскажите как?
PM MAIL   Вверх
x77
Дата 19.5.2004, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22



Image1.Picture.Bitmap := nil;

правда, не поручусь, что сия мудрая конструкция не будет течь smile.gif


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает.
© Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
Dr.Drunk
Дата 19.5.2004, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет



SkilFul

Код
Image1.Picture.Bitmap.Free;


Удачи!
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
x77
Дата 19.5.2004, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22



который благополучно даст AV.


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает.
© Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
December
Дата 19.5.2004, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57



Canvas.Clear там не работает?


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
x77
Дата 19.5.2004, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22



December, сам бмп при этом останется.



--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает.
© Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
SkilFul
Дата 19.5.2004, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 12.5.2004

Репутация: нет
Всего: 1



Цитата
Canvas.Clear там не работает?


нет у Canvas такого свойства нет.

Добавлено @ 19:37
Цитата
Image1.Picture.Bitmap := nil;


Работает! biggrin.gif Ура!

Это сообщение отредактировал(а) SkilFul - 19.5.2004, 19:38
PM MAIL   Вверх
x77
Дата 19.5.2004, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22



SkilFul, присваивая битмапу nil ты не освобождаешь память, отведённую под сам битмап, а обнуляешь указатель на эту память. а сама память остаётся висеть в системе. сие называется memory leak, утечка памяти. и это не есть хорошо.

корректный способ мне в голову не приходит, видимо, пиво сказывается.
Добавлено @ 19:50
вот что надумалось.....

Код

 Image1.Picture.BitMap.Dormant;             // ссвобождаем ресурсы GDI
 Image1.Picture.BitMap.FreeImage;           // освобождаем кучу.
 Image1.Picture.Bitmap.ReleaseHandle;      // обнуляем нах дескриптор
 Image1.Picture.Bitmap := nil;                      // заставляем перерисоваться


блин.

други! неужто проще нельзя??


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает.
© Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
SkilFul
Дата 19.5.2004, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 12.5.2004

Репутация: нет
Всего: 1



x77, огромное спасибо! Учту smile.gif
PM MAIL   Вверх
x77
Дата 19.5.2004, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22



SkilFul, рад помочь асу по скинам ;)



--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает.
© Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
devmstr
Дата 19.5.2004, 21:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11



Конечно можно намного проще
PatBlt(Image1.Canvas.Handle, 0,0,image1.ClientWidth,image1.ClientHeight,WHITENESS);
ООчень быстро(WinAPi)..
Приятной работы.


--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
x77
Дата 19.5.2004, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22



magician, битмап останется.

да не проблема залить, FormImage скопировать в канвас - и алес гут. а вот корректно освободить, без течки?


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает.
© Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
devmstr
Дата 19.5.2004, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11



Мы BitMap заливаем белым цветом.. Битмап чист для послед. работы
Извените, но неужели Вы после загрузки картинки в Image при завершении работы приложения как-то очищаете использованную память!!!! Эту функцию прекрастно выполняет Delphi. Ну во всяком случае меня так учили...


--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
December
Дата 19.5.2004, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57



Джентльмены, вы чё? Я понимаю, что лезть в дебри - фишка Винграда, но не настолько же! Средствами VCL:
Код

Image.Canvas.brush.Style:=bsSolid;
Image.Canvas.fillrect(Rect(0,0,Image.width,Image.height));

И ничего освобождать не надо.
Насчёт Clear я перепутал, конечно - это была моя процедурина с чем-то типа этого.
Код
PatBlt(Image.Canvas.Handle, 0,0,image.ClientWidth,image.ClientHeight,WHITENESS);



--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
x77
Дата 19.5.2004, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22



речь идёт об очистке самого имеджа. на нём есть картинка, её надо убрать. чтобы как будто её и не было. забудьте про канвас батмапа, он тут рояля не играет ни малейшего.


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает.
© Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1697 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.