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

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

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

Подскажите как?

Image1.Picture.Bitmap := nil;

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

SkilFul

Код

Image1.Picture.Bitmap.Free;

Удачи!

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

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

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

Цитата

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

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

Добавлено @ 19:37

Цитата

Image1.Picture.Bitmap := nil;

Работает! Ура!

Это сообщение отредактировал(а) SkilFul - 19.5.2004, 19:38

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

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

Код

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

блин.

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

x77, огромное спасибо! Учту

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

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

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

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

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

Джентльмены, вы чё? Я понимаю, что лезть в дебри - фишка Винграда, но не настолько же! Средствами 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);

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

Это, конечно, если нужен сабж, а не секьюрный еомпонент, скрывающий рисунок.

December, ты получишь белый прямоугольник. и что? под очисткой TImage я понимаю не заливку канваса bitmap неким цветом, а снос битмапа как такового. может я прогнал с постановкой, ну да втор рассудит.

я понимаю так:

1. есть пустой Image
2. делаем LoadFromFile
3. надо вернуть Image в исходное состояние.

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

мне уже самому интересно.

Я не понимаю, что ты собрался освобождать.
Что, если ты последовательно загрущишь в Image 50 картинок(просто применяя метод LoadFromFile без никакой очистки) 49 у тебя остануться в памяти мертвым грузом!!!!!!!!!!!!!!!!!!!!!!! Я еще раз подчеркиваю, что это не так. Нет я признаю, что я могу ошибаться, но все же!

magician, ты прав. речь не о том.

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

как это корректно реализовать?

x77, никакой утечки не будет. Bitmap - это свойство... Если присваиваешь nil, то произойдет простой .Free (см. метод SetGraphic)... Так что мудрить сильно не надо.

Правильно говорит p0s0l. Внимательно смотрим исходники:

Код

procedure TPicture.SetGraphic(Value: TGraphic); var  NewGraphic: TGraphic; begin  NewGraphic := nil;  if Value <> nil then  begin    NewGraphic := TGraphicClass(Value.ClassType).Create;    NewGraphic.Assign(Value);    NewGraphic.OnChange := Changed;    NewGraphic.OnProgress := Progress;  end;  try    FGraphic.Free;    FGraphic := NewGraphic;    Changed(Self);  except    NewGraphic.Free;    raise;  end; end;

вау

Image.Picture.Assign(nil);