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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.08.2016, 11:03   #1
yan11
Пользователь
 
Регистрация: 15.08.2016
Сообщений: 14
По умолчанию Критическая ошибка

Через минут 10 работы программа вываливается с критическими ошибками.

Как определить с чем связан вылет ?
Изображения
Тип файла: jpg 1.jpg (22.5 Кб, 101 просмотров)
Тип файла: jpg 2.jpg (18.9 Кб, 94 просмотров)

Последний раз редактировалось yan11; 17.08.2016 в 11:53.
yan11 вне форума Ответить с цитированием
Старый 17.08.2016, 11:57   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Видимо с отсутствием в коде проверки успешности выполнения какой-то функции и попытке читать после этого по некорректному адресу.

Код-то покажите.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 17.08.2016, 16:02   #3
yan11
Пользователь
 
Регистрация: 15.08.2016
Сообщений: 14
По умолчанию

800 строк кода сюда выкладывать ?
yan11 вне форума Ответить с цитированием
Старый 17.08.2016, 16:22   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

а почему нет? исходники проекта запаковать в архив, архив прикрепить к сообщению (см. "Расширенный режим" - "Управление вложениями")
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.08.2016, 18:02   #5
yan11
Пользователь
 
Регистрация: 15.08.2016
Сообщений: 14
По умолчанию

Выкладываю исходники сюда https://cloud.mail.ru/public/3xEG/shiDPE8Ni

В поле таймера пропишите 50, нажмите Start запустится таймер. Через 5-10 минут получаем примерно следующие ошибки.
Изображения
Тип файла: jpg 3.jpg (34.2 Кб, 80 просмотров)
Тип файла: jpg 4.jpg (31.7 Кб, 86 просмотров)
yan11 вне форума Ответить с цитированием
Старый 17.08.2016, 18:24   #6
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Дык вроде ж тема не про утечки памяти была.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 17.08.2016, 18:52   #7
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Навскидку...

function SearchPartOfScreen
Не создается bmMain, но происходит обращение к bmMain и в завершение всего
bmMain.Free; который не был создан

function SaveFullScreen
Есть bmMain := TBitmap.Create();, но нет bmMain.Free...

function GetCurrentCard()
Закомментировано создание bmMain := TBitmap.Create();
Тем не менее есть категоричное
finally
bmMain.Free;

(Об if (SearchBitmap(bmMain, bmSub, R)) then перед этим я уже и не говорю...
Очередное обращение к несозданному объекту)...

Дальше не стала смотреть.
Видно, что вы очень куда-то торопились.
А программы надо писать вдумчиво, внимательно и без спешки...
kropotkina-alice вне форума Ответить с цитированием
Старый 17.08.2016, 19:20   #8
Pavia
Лис
Старожил
 
Аватар для Pavia
 
Регистрация: 18.09.2015
Сообщений: 2,409
По умолчанию

Цитата:
Сообщение от kropotkina-alice Посмотреть сообщение
Навскидку...
bmMain.Free; который не был создан
Он как раз для этого и создан.

Use Free to destroy an object. Free automatically calls the destructor if the object reference is not nil. Any object instantiated at runtime that does not have an owner should be destroyed by a call to Free so that it can be properly disposed of and its memory released. Unlike Destroy, Free is successful even if the object is nil; so if the object was never initialized, Free won’t result in an error.

Перевожу последнее предложение, вызов Free не возвращает ошибку если объект не инициирован.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал .
Pavia вне форума Ответить с цитированием
Старый 17.08.2016, 19:37   #9
Pavia
Лис
Старожил
 
Аватар для Pavia
 
Регистрация: 18.09.2015
Сообщений: 2,409
По умолчанию

Код:

function SaveFullScreen(Way:string):boolean;
  DC:=GetDC(0); // - есть
  ReleaseDC(0, DC); //- нету. Утечка хэнделов
Код:
function SaveFullScreen(Way:string):boolean;
...
  Form1.Image1.Picture.Bitmap := bmMain;
Image и его приятели имеют хитрую структуру и алгоритмы поведения.
Обычно объекты присваиваться по ссылке, но не в этот раз. Тут идет присвоение объектов через метод Assign(), т.е. присвоение идёт по по элементам.
Поэтому далее имеем утечку Bitmap'ов.
Добавить:
Код:
bmMain.Free;
Аналогичная ошибка в
Код:
procedure Search(pattern: string; p_color: TColor);
...
  Form1.Image1.Picture.Bitmap := CaptureScreenRect(Rect(0,0,Screen.Width,Screen.Height));
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал .

Последний раз редактировалось Pavia; 17.08.2016 в 19:48.
Pavia вне форума Ответить с цитированием
Старый 17.08.2016, 20:53   #10
yan11
Пользователь
 
Регистрация: 15.08.2016
Сообщений: 14
По умолчанию

kropotkina-alice,,
Может быть вы не обратили внимание, но во всех случаях объект TBitmap создаёт и возвращает функция -

function CaptureScreenRect(aRect: TRect): TBitMap;


Pavia
Все эти функции не используются в Timer1.
Посмотрите пожалуйста процедуру, которая в таймере запускается.
TForm1.Button1Click(Sender: TObject);
yan11 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[sigplus] Критическая ошибка: Sparky WordPress и другие CMS 1 25.08.2011 10:42
критическая ошибка при выполнении программы Познающий Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 18.11.2009 16:51
КРИТИЧЕСКАЯ ОШИБКА benjaminfran Общие вопросы Delphi 11 15.02.2008 11:23