Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

jpeg


Страницы:   1 2

mahab ©   (2006-10-23 19:36:00) 

Здравствуйте! У меня есть испорченный JPEG. Хотелось бы адекватно обработать исключительную ситуацию "Jpeg error #42" на загрузку в компонент Timage.Блок Try ... Except..end  не помогает.


Dmitrij_K   (2006-10-23 19:50:00) [21]


> Примерно так:
> If not OpenPictureDialog1.Execute then exit;
> Try
> Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
> except
> showmessage('Файл испорчен или недоступен');
> end;



> Try ... Except..end  не помогает.


помогает


mahab   (2006-10-23 19:48:00) [22]

Кстати попробуйте создать пустой текстовый файл измените расширение м загрузить в Timage с таким кодом.


mahab   (2006-10-23 19:45:00) [23]

Примерно так:
If not OpenPictureDialog1.Execute then exit;
Try
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
except
showmessage('Файл испорчен или недоступен');
end;


Ketmar   (2006-10-23 19:39:00) [24]

>[0] mahab(c) 23-Oct-2006, 19:36
>Блок Try ... Except.. end  не помогает.
а не пробовал кроме упоминания на форуме ещё и в исходный код его вписывать? %-)
если "не помогает", то что-то ты делаешь неверно. код показывай.


Dmitrij_K   (2006-10-23 19:38:00) [25]


> Try ... Except..end  не помогает.

Чё, правда?


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо