А есть ли картинка?

[bill]

Привет всем! У меня простой вопрос - как узнать есть ли картинка в image. Вроде должна быть какая то функция которая выводила бы true если есть и false соот-но.
Но я признаться честно не нашел такой. Так как же это узнать?

[Virtson]

if Image.Picture = nil ..

[Alex21]

Virtson, это только для растра.
Не знаю про функцию, но можно сделать так:

cx:=Image1.Width;
cy:=Image1.Height;
 
Image1.AutoSize:=true;
if Image1.Width>0 then
  ShowMessage('Есть картинака')
  else ShowMessage('Пусто');
 
Image1.AutoSize:=false;
Image1.Width:=cx;
Image1.Height:=cy;

Использовать Bitmap - проблематично, т.к. картинка может быть не BMP.
P.S.: это решение - как крайний вариант. )

[Net]

image1.Picture.Graphic.Empty.

[bill]

Сообщение от Net

image1.Picture.Graphic.Empty.

Я как раз и думал раньше что это и есть та самая функция. НО она ругается(выдает ошибку если нет картинки)

[pinhead]

Я как раз и думал раньше что это и есть та самая функция. НО она ругается(выдает ошибку если нет картинки)

Если она ругается то поместите её в конструкцию try...finally...end.

[Iceman]

если image1.Timage дает none то нету там картинки. и ещё если canvas.pixels в цвет формы то скорее всего нету.

[mutabor]

Net правильно написал
А ошибка скорее всего потому что объекты Graphic и Picture еще не созданы.
С вручную созданными TBitmap и TJpegImage у меня никогда проблем не было с этим свойством.

Подумал немного над вопросом.
Интересный вариант предложил Alex21.
Вот мой вариант попроще: создать глобальную переменную и при загрузке картинки писать в нее true, при освобождении (если оно надо) false.

[bill]

Сообщение от pinhead

Если она ругается то поместите её в конструкцию try...finally...end.

Пробовал. Смысла не вижу в этом.

Сообщение от mutabor

создать глобальную переменную и при загрузке картинки писать в нее true, при освобождении (если оно надо) false.

mutabor, я мог бы давно сделать это. Но проблема в том что я могу загружать картинку автоматически- нажимаю на as.bmp открыть с помощью и выбираю свою программу. Если я это сделаю то глобальная переменная не поможет.
Вот в чем подводный камень.
Alex21 действительно предложил интересный вариант.

[bill]

mutabor навел меня на мысль о создании глоб. переменной.
Вопрос разрешился. Спасибо всем кто участвовал в обсуждении. Ну а кто не понял привожу часть кода -
В общем я создал пре-ю(a) типа tbitmap. на formcreate я сделал
a:=tbitmap.create;
a:=image1.picture.bitmap;
а потом в обработчике нужного события я сделал
if a.empty then showmessage('картинки нет') else showmessage('картинка есть');