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

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

Подгрузка битмапов с проверкой [D6, WinXP]

PC ©   (2004-11-02 13:55:00) 

Т.е. мне нужно, чтобы прога при отсутствии файла или его "инвалидности" не валилась, а говорила юзверю об этом. Написал такую функцию:

function SafeLoadImage(filename:string; var image:TImage; AOwner:TComponent):boolean;
begin
  image := TImage.Create(AOwner);
  try
     image.Picture.LoadFromFile(filename);
  except
     on EFOpenError do
     begin
        ShowMessage('Îøèáêà ïðè çàãðóçêå ôàéëà'+filename);
        result := false;
        exit;
     end;
  end;
  result := true;
end;

Все равно валится. Че делать? Среда Delphi 6. Заранее спасибо.

---

Pentium133   (2004-11-02 14:52:00) [1]

>  Просто надо было запускать приложение не из среды...

Можно и в среде. Только отключи "Debuger Options -Stop on Delphi Exceptions"

---

PC   (2004-11-02 14:49:00) [2]

Все, пасиба, вопрос отпал сам собой. Просто надо было запускать приложение не из среды...

---

PC   (2004-11-02 14:36:00) [3]

>может надо Parent'а указать?
Его я потом указываю.
>Что значит "валится"?
Ну вылетает такое неприятное окошечко... Типа там "Project *.exe raised exception class EFOpenError with message 'Cannot open file *.bmp'. Process stopped. Use Step or Run to continue.". Вот.

---

Pentium133   (2004-11-02 14:12:00) [4]

Что значит "валится"?

---

ssk   (2004-11-02 14:09:00) [5]

может надо Parent'а указать?

---

Наверх