|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ascces violation at address при смене картинки в timage
Здравствуйте, почти два дня искал ошибку, нашёл. Но не пойму почему она возникает. Я ничего не освобождаю, не меняю, а косяк есть.
специально вынес кусок кода на отдельную кнопку и поток, вот: Код:
repeat rand_koll:=0+random(2); sop1:=inttostr(rand_koll)+'.png'; if Pos('0.png', sop1) <> 0 then t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\0.png') else t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\1.png'); until stop=true; ошибка возникает мгновенно, а если сделать так: Код:
repeat rand_koll:=0+random(2); sop1:=inttostr(rand_koll)+'.png'; sleep(50); //добавить небольшую задержку if Pos('0.png', sop1) <> 0 then t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\0.png') else t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\1.png'); until stop=true; Мне хотелось бы узнать в чём разница? При том если задержку поставить менее 50, то ошибка тоже почти сразу возникает. Помогите разобраться, что бы потом не допускать ошибок. |
#2
|
||||
|
||||
Зачем лишние телодвижения на проверки, когда
Код:
repeat sop1:='Data\images\icon\race\'+inttostr(random(2))+'.png'; t_sop1_pic.Picture.LoadFromFile(Path + sop1); until stop=true; Есть предположение, ошибка возникает внутри модуля PNG, не успевает отработать подгрузку полностью - проверяйте при каждой итерации цикла на содержимое контейнер или принудительно его обнуляйте перед загрузкой новой картинки Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Цитата:
просто в проге немного не так, там sop0 получает исходник страницы сайта через инди, а sop1(2,3,...,12), парсят свой кусок кода из sop0, и дальше подключаются функции для его обработки и выводу данных на форму. Кстати, sleep(50) поставил перед всеми sop(1-12), и с момента как написал эту тему, до сих пор всё работало идеально. Кстати nil без задержки тоже не решает проблему. Значит придётся перед каждой загрузкой ставить задержку? Только вот что, если у меня работает при задержке 50мс, есть ли гарантия что этой задержки хватит и для других компов? Или на более древних нужна задержка больше? |