Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.01.2015, 17:09   #1
Дронн
 
Регистрация: 12.07.2014
Сообщений: 6
По умолчанию ошибка при загрузке картинки в Image

Среда программирования Delphi7. При многократном вызове Image2.Picture.LoadFromFile вылетает ошибка debugger exception notification с сообщением unknown picture file extension (.) и прога вылетает. Перед каждым вызовом Image2.Picture.LoadFromFile картинка обнуляеться image2.Picture:=nil; помогите разобраться в чем дело

Последний раз редактировалось Дронн; 02.01.2015 в 17:14.
Дронн вне форума Ответить с цитированием
Старый 02.01.2015, 17:16   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

код выкладывай. Экстрасенсы напились и в нокауте до второго пришествия чуваков с опохмелом

Последний раз редактировалось Человек_Борща; 02.01.2015 в 17:23.
Человек_Борща вне форума Ответить с цитированием
Старый 02.01.2015, 17:26   #3
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Цитата:
картинка обнуляеться image2.Picture:=nil
С какой целью?
WinCoder вне форума Ответить с цитированием
Старый 02.01.2015, 17:49   #4
Дронн
 
Регистрация: 12.07.2014
Сообщений: 6
По умолчанию

Код большой и в основном не по теме))
Интересно то, почему при 20 загрузках все нормально, а при 21 вылетает ошибка. Закономерности в вылетах нет, т.е. может зависнуть и на 10 разе, и на 20.
Надеялся что image2.Picture:=nil думал поможет - нифига
Дронн вне форума Ответить с цитированием
Старый 02.01.2015, 17:52   #5
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Цитата:
Код большой и в основном не по теме
А нафига нам весь код? Ты выдели проблемный блок в отдельный пример, и показывай.
WinCoder вне форума Ответить с цитированием
Старый 02.01.2015, 18:00   #6
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Цитата:
Код большой и в основном не по теме))
Ну вот сам тогда с ним и разбирайся.
Человек_Борща вне форума Ответить с цитированием
Старый 02.01.2015, 18:00   #7
Дронн
 
Регистрация: 12.07.2014
Сообщений: 6
По умолчанию

что то вроде этого

var
filename: string;
koordX: integer;
koordY: integer;

begin
z:=form1.Image1.Canvas.Pixels[koordX, koordY];

if z=1959605 then filename:='1.bmp';
if z=62207 then filename:='2.bmp';
if z=5026082 then filename:='3.bmp';
......
Image2.Picture.LoadFromFile (filename);

end;
Дронн вне форума Ответить с цитированием
Старый 02.01.2015, 18:02   #8
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Код:
try
Image2.Picture.LoadFromFile (filename);
except
Memo1.Text := ('Ошибка загрузки файла "' + filename + '"');
end;
Мысль ясна? Потому, что если
Код:
if z=1959605 then filename:='1.bmp';
 if z=62207 then filename:='2.bmp';
 if z=5026082 then filename:='3.bmp';
эти условия не выполнены, то filename = ''

Последний раз редактировалось WinCoder; 02.01.2015 в 18:06.
WinCoder вне форума Ответить с цитированием
Старый 02.01.2015, 18:04   #9
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Хороший код А если цвет пикселя 666666, то какой FileName?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 02.01.2015, 18:08   #10
Дронн
 
Регистрация: 12.07.2014
Сообщений: 6
По умолчанию

Цитата:
Сообщение от WinCoder Посмотреть сообщение
Код:
try
Image2.Picture.LoadFromFile (filename);
except
Memo1.Text := ('Ошибка загрузки файла "' + filename + '"');
end;
Мысль ясна?
Пробовал, не помогло. Причем это все в 2-м (try ... try.. except... exept).
Дронн вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Out of Memory в делфи при загрузке картинки в BDImage, ае=) ТипичныйСтудент Помощь студентам 3 19.05.2013 22:57
как убрать мерцание при загрузке в Image DelhiProgramer Мультимедиа в Delphi 8 16.09.2012 17:29
Ошибка при загрузке tae1980 Microsoft Office Excel 2 23.01.2012 10:58
ОШИБКА ПРИ ЗАГРУЗКЕ Костян Пират Операционные системы общие вопросы 5 21.02.2009 12:14
Ошибка при загрузке.... Ronni10 Операционные системы общие вопросы 6 10.01.2008 22:20