Автоматическое сохранение картинки.

[Drugnir]

Для этого используется компонент TSaveDialog.
на Button->Click

if (SaveDialog1->Execute) {
  SaveDialog1->FileName = <название файла>;
  Image1->Picture->SaveToFile(SaveDialog1->FileName);
}

На OnCreate в Form можно прописать

SaveDialog1->Filter = "Bitmap (*.bmp)|*.BMP";

[PruSLas]

А TSavePictureDialog может больше подходит для этого? Хотя ж не важно...
Теперь осталось собрать все воедино А сравнение картинок наверно не буду делать - проще по-моему "если есть на TImage изображение - сохранить его и очистить TImage. И т.д."

[Drugnir]

Так будут доступны только Bitmap, а SavePictureDialog предлагает полный набор фильтров по изображениям. Т.е. там всего лишь набор форматов полный, а так это одно и то же.

[PruSLas]

Черт, не получается корректно очистить TImage. Поставил действие на таймер - каждую секунду проверяет TImage = NULL. Если там что-то есть - сохраняет скриншот. Проблема в том, что если там ничего нет - все равно появляется файл, весящий 0 байт. Вот код:

if (Image1->Picture->Bitmap != NULL) {
Image1->Picture->SaveToFile(TDateTime::CurrentDateT ime().FormatString("dd.MM.yyyy HH-mm-ss") + ".bmp");
Image1->Picture->Bitmap = NULL; }

Добавление строки Image1->Picture->Bitmap->Free(); результата не изменяет...Я конечно понимаю что проблема между стулом и монитором сидит, но все же надеюсь на помощь

[Drugnir]

Image1->Picture->Bitmap->FreeImage();
Image1->Picture->Bitmap = NULL;

или

Image1->Picture->Assign( NULL );

или

Image1->Picture = NULL;

Это очистит Image1. При создании формы это вставь и после каждого сохранения файла.

[PruSLas]

Неа Все равно продолжает усердно создавать файлы по 0 байт. Может легче как-то по-другому реализовать данный механизм (если есть картинка на TImage - сохранить на хард, если нет - ничего не делать). Событие завязано на таймер, опрашивает каждые 5 секунд...

[Drugnir]

Можно проверять пиксели

TColor cl;
cl = Image1->Picture->Bitmap->Canvas->Pixels[0][0];

Проверку в цикле по всем пикселям, если нашли отличный от cl, то это картинка, иначе Image пустой.
А в if проверка была Image1->Picture != NULL?

[PruSLas]

Да, проверка на Picture != NULL стоит. Здесь что ли ошибка?

[Drugnir]

if (!Image1->Picture->Graphic->Empty)

Вот так еще можно.

[PruSLas]

с этим кодом при значении False в (if (!Image1->Picture->Graphic->Empty)) выдает эту ошибку...