Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Подгрузка битмапов с проверкой   Найти похожие ветки 

← →
PC ©   (2004-11-02 13:55) [0]

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

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. Заранее спасибо.

---

← →
ssk ©   (2004-11-02 14:09) [1]

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

---

← →
Pentium133 ©   (2004-11-02 14:12) [2]

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

---

← →
PC ©   (2004-11-02 14:36) [3]

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

---

← →
PC ©   (2004-11-02 14:49) [4]

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

---

← →
Pentium133 ©   (2004-11-02 14:52) [5]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.044 c