Access Violation on qt5 backend, talk about it with AI

[sunjob]

день добрый!

исходные:

Код: Выделить всё

- slackware-14.2
- gcc-5.3.0
- glibc-2.23
- binutils-2.45.0
- oprofile-1.4.0
- fpc-3.2.2
- lazarus-3.8.0 gtk/qt4/qt5

разбираю чужой код. в глаза бросается излишнее(imho) использование параметра AutoSize для TMemo, установленные в инспеторе (указываю это, т.к. считаю "причастным")

изначально было "заблокировано" изменение размеров формы (тем или иным спопобом).
по ходу разборок/тестовых запусков - замечается а-периодическое вываливание исключения:
- только в qt5 бекенде
- когда пытаюсь "схватить и изменить размеры" формы

поварил котелком, так-сяк, в разных режимах штурма, не помогло.
обратился к "очень интересному и авторитетному" собеседнику.
диалог получился интересным. хотелось бы услышать мнения/идеи по теме этих и подобный "исключений".

+

в данной теме ЧТО меня интересует :

ии выдал некий тезис, с положениями А, Б, В...
меня интересует взвешенное мнение специалистов на эти самые положения.
- да, это действительно так и так (да, при ресайзе такое возможно, да, есть такие исключения/не-исключения итд...)
- да, это муссор, переваренный в исключение
- да, такие и такие ислючения можно/нужно фильтровать
- итд итп

+

далее стенограмма (очевидные, не нужные вещи убраны).

////////////////////////////////////////////////////////////////////////////////

случайным образом вываливает access violation и в консоль сообщение:

Код: Выделить всё

qt.qpa.xcb: QXcbConnection: XCB error: 3 (BadWindow), sequence: 2315, resource id: 16837823, major code: 40 (TranslateCoords), minor code: 0
qt.qpa.xcb: QXcbConnection: XCB error: 3 (BadWindow), sequence: 3003, resource id: 16838147, major code: 40 (TranslateCoords), minor code: 0

-->

Не обращай внимания. Это не Access Violation, а шум от Qt.

Сообщения вида

Код: Выделить всё

QXcbConnection: XCB error: 3 (BadWindow) 

известная проблема в Qt5 под Linux, абсолютно безвредная

# Что происходит

- Ошибка BadWindow (3) возникает, когда X-сервер посылает событие мыши на окно, которое уже было закрыто между отправкой и обработкой события
- Это штатная ситуация в асинхронной среде X11.
- Множество приложений (kwin_x11, kdevelop, kate, qtcreator) регулярно печатают эти предупреждения

# Что делать?

Ничего. Если программа работает нормально, а Access Violation не повторяется постоянно - это просто диагностика Qt.

Если хочешь убрать шум из консоли:
- Запускай программу с перенаправлением stderr:

Код: Выделить всё

./prj 2>/dev/null

- Или настрой переменную окружения:

Код: Выделить всё

QT_LOGGING_RULES="qt.qpa.xcb.warning=false" ./prj

Если Access Violation реальный и повторяется всегда - проблема в другом месте.

+

вываливает исключиение с соответствующим messagebox, в котором предлагают закрыть/продолжить
когда происходит исключение - в консоль выхлоп с текстом

-->

Это не просто консольный шум, а реальное исключение с MessageBox.
Значит Qt здесь не при чем - это LCL под Linux ловит X11 ошибку и превращает её в исключение.

# Где копать?

Ошибка BadWindow(3) с major code 40 (TranslateCoords) возникает когда:
1. Окно или контрол был удален (например, Form.Close + Free)
2. Курсор мыши находится над удаленным окном в момент перемещения
3. Application.ProcessMessages вызывается в неподходящий момент

# Решение

1. Проверь удаление форм

Код: Выделить всё

Form.Close;    // НЕПРАВИЛЬНО: только прячет, не удаляет
Form.Release;  // ПРАВИЛЬНО  : или Form.Free, но Release безопаснее

2. Защити ProcessMessages

Код: Выделить всё

// Если вызываешь ProcessMessages в цикле
if not Application.Terminated then
  Application.ProcessMessages;

3. Отключи X ошибки в LCL / Можно попробовать:

Код: Выделить всё

uses
  LCLIntf;
  
// В начале программы
SetExceptionMask(GetExceptionMask + [exInvalidOp, exOverflow, exUnderflow]);

4. Временный фикс
Если исключение появляется редко, самый простой способ - добавить обработчик:

Код: Выделить всё

Application.OnException := @CustomExceptionHandler;

+

еще немного поразмышляй на эту тему
-->

Раз у тебя вылетает не просто консольное предупреждение, а исключение с MessageBox, значит LCL превращает эту ошибку X-сервера в исключение.

# Почему это происходит?

Судя по логам, ошибка BadWindow (3) с major code 40 (TranslateCoords) возникает, когда X-сервер пытается отправить событие (например, движение мыши или координаты) окну, которое уже было уничтожено

Это классическая "гонка" в асинхронной среде X11:
- Пользователь кликает/закрывает окно
- LCL инициирует удаление окна
- X-сервер еще "думает", что окно существует, и пытается отправить ему событие
- Возникает ошибка, и LCL превращает её в исключение

# Ключевой момент:
В Qt это считается безвредным и было понижено с Warning до Debug
А в LCL, видимо, это все еще вызывает исключение.

# Где конкретно искать виновника:

1. Application.ProcessMessages в неожиданных местах
Если в цикле или обработчике вызывается ProcessMessages, а в этот момент окно уже начали закрывать - это частая причина.

2. Освобождение окон в неправильном порядке
Проверь, не удаляются ли окна/контролы в обработчиках событий других окон. Особенно если одно окно вызывает Free другого.

3. Проблемы с очередью сообщений при shutdown системы
На форуме Lazarus обсуждают похожую проблему: при выключении Linux одно из дочерних окон получает "левые" сигналы закрытия раньше главного, что приводит к странным состояниям

# Что попробовать:

1. Обернуть все удаления форм в try..except

Код: Выделить всё

try
  Form2.Free;
except
  on E: Exception do
  Log('Ошибка при удалении формы: ' + E.Message);
end;

2. Использовать Release вместо Free

Release планирует удаление после завершения текущего цикла обработки событий:

Код: Выделить всё

Form.Release;  // безопаснее, чем Free

3. Отловить глобальное исключение и проглотить это конкретное

Код: Выделить всё

Application.OnException := @HandleException;

procedure TForm1.HandleException(Sender: TObject; E: Exception);
begin
  if Pos('BadWindow', E.Message) > 0 then
    // Игнорируем эту ошибку
  else
    Application.ShowException(E);
end;

4. Проверить наличие таймеров или асинхронных вызовов

Если есть TTimer или Application.QueueAsyncCall, которые работают с формой после её закрытия.

# Главный вопрос:
Исключение всегда вылетает в одном и том же месте?
Или случайно?
Если случайно - скорее всего гонка, и без глобального перехвата не обойтись.

+

уточнение:
- тестируются 3 бекэнда (gtk/qt4/qt5)
- исключения вызываются только в qt5

-->

Да, это известная особенность Qt5 под Linux. Ты всё верно локализовал.

# Почему только Qt5?

В коде Qt5 эта ошибка была сознательно понижена с Warning до Debug
Комментарий разработчиков Qt буквально гласит:

"Ошибка 'BadWindow' (3) возникает в XCB-бэкенде, когда событие мыши обрабатывается для ресурса, который исчезает между отправкой и обработкой события. Эта ситуация безвредна и может возникать в асинхронных средах."

В GTK эта же ситуация обрабатывается иначе - там напрямую используются XLib вызовы, которые не порождают таких ошибок

# Почему в твоем случае это исключение, а не просто лог?

В Qt5 это предупреждение. В LCL под qt5 это превращается в исключение, потому что:
- Qt5 получает ошибку от X-сервера
- Qt5 логирует её как отладочную информацию
- LCL перехватывает это как сбой XCB и конвертирует в исключение

# Что делать конкретно?

# Вариант А (рекомендую) - глобальный перехват

Код: Выделить всё

Application.OnException := @IgnoreBadWindow;

procedure TfrmMain.IgnoreBadWindow(Sender: TObject; E: Exception);
begin
  if Pos('BadWindow', E.Message) > 0 then
    Exit  // просто игнорируем
  else
    Application.ShowException(E);
end;

# Вариант Б - отключить отладочный вывод Qt5

Код: Выделить всё

export QT_LOGGING_RULES="qt.qpa.xcb=false"
./project1

Итог:
Это безвредная особенность Qt5, которую разработчики самого Qt считают "нормальным поведением в асинхронной среде" .
Просто отлавливай и игнорируй это конкретное исключение.

+

какие еще подобные исключение можно добавить к списку игрнорирования, дополни вариант глобального перехвата

-->

Код: Выделить всё

procedure TfrmMain.IgnoreXCBErrors(Sender: TObject; E: Exception);
const
  IgnoreList: array[0..6] of string = (
    'BadWindow',
    'BadDrawable',
    'BadPixmap',
    'BadAlloc',
    'BadAccess',
    'BadMatch',
    'BadValue'
  );
var
  i: Integer;
begin
  for i := 0 to High(IgnoreList) do
    if Pos(IgnoreList[i], E.Message) > 0 then
      Exit;  // игнорируем известные XCB ошибки

  // Остальные исключения показываем
  Application.ShowException(E);
end;

# Расширенный список (включая Qt специфичные):

Код: Выделить всё

const
  IgnoreList: array[0..12] of string = (
    'BadWindow',        // окно уже закрыто
    'BadDrawable',      // рисуемый объект удален
    'BadPixmap',        // пиксельмап не существует
    'BadAlloc',         // нехватка ресурсов X
    'BadAccess',        // попытка доступа к чужому ресурсу
    'BadMatch',         // несоответствие типов в X
    'BadValue',         // неверное значение
    'QXcbConnection',   // общая ошибка XCB
    'XCB error',        // любая XCB ошибка
    'TranslateCoords',  // конкретная операция
    'BadColor',         // цвет удален
    'BadCursor',        // курсор удален
    'BadFont'           // шрифт удален
  );

# Самый простой рабочий вариант:

Код: Выделить всё

procedure TfrmMain.GlobalExceptionHandler(Sender: TObject; E: Exception);
begin
  if (Pos('Bad', E.Message) > 0) or (Pos('XCB', E.Message) > 0) then
    Exit  // игнорируем все X11/XCB ошибки
  else
    Application.ShowException(E);
end;

+

последний вариант - точно безопасный?
-->

Нет, не безопасный.

Код: Выделить всё

Pos('Bad', E.Message) > 0 перехватит слишком много:
- BadWindow       (нужно)
- BadPassword     (ошибка авторизации, надо показывать)
- BadHeader       (ошибка в данных)
- BadRequest      (ошибка HTTP)

Безопасный вариант - только конкретные X11 ошибки:

Код: Выделить всё

procedure TfrmMain.GlobalExceptionHandler(Sender: TObject; E: Exception);
const
  X11Errors: array[0..5] of string = (
    'BadWindow',
    'BadDrawable', 
    'BadPixmap',
    'BadAlloc',
    'BadAccess',
    'BadMatch'
  );
var
  i: Integer;
begin
  for i := 0 to High(X11Errors) do
    if Pos(X11Errors[i], E.Message) > 0 then
      Exit;  // только эти игнорируем

  Application.ShowException(E);
end;

+

в коде можно определить препроцессорными средствами с каким бекендом собирается приложение и сделать соотв. настройку?

-->

Бекенды Lazarus и их директивы

Код: Выделить всё

----------------------------------------
Бекенд    Директива Когда определена
----------------------------------------
GTK2      LCLgtk2   Используется GTK2
GTK3      LCLgtk3   Используется GTK3
Qt4       LCLqt4    Используется Qt4
Qt5       LCLqt5    Используется Qt5
Qt6       LCLqt6    Используется Qt6
Win32     LCLwin32  Windows
Cocoa     LCLcocoa  macOS
----------------------------------------

# Пример кода

Код: Выделить всё

uses LCLType;  // LCLBackendVar

procedure SetupBackendSpecific;
begin
{$IFDEF LCLqt5} // Qt5
Application.OnException := @IgnoreXCBErrors;
WriteLn('Qt5 backend detected');
{$ENDIF}

{$IFDEF LCLgtk2} // GTK2
WriteLn('GTK2 backend detected');
{$ENDIF}

{$IFDEF LCLgtk3} // GTK3
WriteLn('GTK3 backend detected');
{$ENDIF}

{$IFDEF LCLqt4} // Qt4
WriteLn('Qt4 backend detected');
{$ENDIF}
end;

# Где эти директивы определены?

Они автоматически добавляются компилятором при выборе бекенда в:

Код: Выделить всё

Project / Project Options / Compiler Options / Additions and Overrides / LCL Widget Type

Проверить можно в инспекторе:

Код: Выделить всё

uses
  LCLPlatformDef;

// Или через глобальную переменную
WriteLn('Current backend: ', LCLBackendVar);

////////////////////////////////////////////////////////////////////////////////

[Alexander]

случайным образом вываливает access violation и в консоль сообщение:

Ему нужно подробнее показать. Собрать с ключом -gl и запустить в gdb. При останове на AV (или ещё чём-то) набрать bt. И весь листинг запуска через gdb показать ИИ.

[sunjob]

ну да... он такое насочиняет! я специально дал достаточный минимум, что-бы не было возможности для иного толка.
ну а вообще, мне интересно, на сколько близко к истине размышления по "поводу qt5"? так-то он временами даже очень близко к правде глаголит.

[Alexander]

Задача видимо не из простых. Вот что выдали 2 ИИ:

http://soft.self-made-free.ru/answQT5.odt

Код: Выделить всё

program qt5_custom;

{$mode objfpc}{$H+}
{$MODESWITCH UNICODESTRINGS}
{$CODEPAGE UTF8}

uses
  qt5, ctypes;

var
  App: QApplicationH;
  Window: QWidgetH;
  Button: QPushButtonH;
  argc: cint;
  argv: array[0..0] of PAnsiChar;
  Title: WideString;

begin
  argc := 1;
  argv[0] := 'app';

  App := QApplication_Create(@argc, @argv);
  Window := QWidget_Create(nil);
  
  Title := 'Test Window';
  QWidget_setWindowTitle(Window, @Title);
  QWidget_resize(Window, 300, 200);

  Title := 'Close';  
  Button := QPushButton_Create(@Title, Window);
  QWidget_setGeometry(Button, 100, 80, 100, 30);
  
  // Разные варианты слотов QApplication:
  
  // 1. Просто закрыть окно (приложение продолжит работу)
  QObject_connect(
    QObjectH(Button),
    PAnsiChar('2clicked()'),
    QObjectH(Window),
    PAnsiChar('1close()')
  );
  
  // 2. Закрыть все окна
  QObject_connect(
    QObjectH(Button),
    PAnsiChar('2clicked()'),
    QObjectH(App),
    PAnsiChar('1closeAllWindows()')
  );
  
  // 3. Полный выход из приложения (как в первом примере)
  QObject_connect(
    QObjectH(Button),
    PAnsiChar('2clicked()'),
    QObjectH(App),
    PAnsiChar('1quit()')
  );
  
  QWidget_show(Window);
  QApplication_Exec();
  
  QWidget_Destroy(Window);
  QApplication_Destroy(App);
end.

Код: Выделить всё

program qt5_final;

{$mode objfpc}{$H+}
{$MODESWITCH UNICODESTRINGS}
{$CODEPAGE UTF8}

uses
  qt5, ctypes;

var
  App: QApplicationH;
  Window: QWidgetH;
  Button: QPushButtonH;
  argc: cint;
  argv: array[0..0] of PAnsiChar;
  Title: WideString;

begin
  argc := 1;
  argv[0] := 'app';

  // Создаем приложение
  App := QApplication_Create(@argc, @argv);
  
  // Создаем главное окно
  Window := QWidget_Create(nil);
  
  // Заголовок окна
  Title := 'Test Window';
  QWidget_setWindowTitle(Window, @Title);
  QWidget_resize(Window, 300, 200);

  // Создаем кнопку с текстом
  Title := 'Close';  
  Button := QPushButton_Create(@Title, Window);
  QWidget_setGeometry(Button, 100, 80, 100, 30);
  
  // Подключаем сигнал clicked() к слоту quit() приложения
  // '2' - префикс для сигнала, '1' - префикс для слота
  QObject_connect(
    QObjectH(Button),           // sender
    PAnsiChar('2clicked()'),    // сигнал с префиксом '2'
    QObjectH(App),              // receiver (само приложение)
    PAnsiChar('1quit()')        // слот quit() с префиксом '1'
  );
  
  // Показываем окно
  QWidget_show(Window);
  
  WriteLn('Приложение запущено. Нажмите кнопку для выхода.');
  
  // Запускаем главный цикл
  QApplication_Exec();
  
  // Очистка
  QWidget_Destroy(Window);
  QApplication_Destroy(App);
end.

Код: Выделить всё

program qt5_badwindow_test;

{$mode objfpc}{$H+}
{$MODESWITCH UNICODESTRINGS}
{$CODEPAGE UTF8}

uses
  qt5, ctypes;

var
  App: QApplicationH;
  Window: QWidgetH;
  Button: QPushButtonH;
  argc: cint;
  argv: array[0..0] of PAnsiChar;
  Title: WideString;

begin
  argc := 1;
  argv[0] := 'test';

  // Создаём приложение
  App := QApplication_Create(@argc, @argv);
  
  // Создаём окно
  Window := QWidget_Create(nil);
  Title := 'BadWindow Test';
  QWidget_setWindowTitle(Window, @Title);
  QWidget_resize(Window, 300, 200);

  // Кнопка закрытия
  Title := 'Закрыть и поймать BadWindow';  
  Button := QPushButton_Create(@Title, Window);
  QWidget_setGeometry(Button, 50, 80, 200, 30);
  
  // Подключаем сигнал clicked к слоту quit
  QObject_connect(
    QObjectH(Button),
    PAnsiChar('2clicked()'),    // сигнал с префиксом '2'
    QObjectH(App),
    PAnsiChar('1quit()')        // слот с префиксом '1'
  );
  
  QWidget_show(Window);
  
  WriteLn('Запущено. Нажмите кнопку - увидите BadWindow в консоли');
  WriteLn('Но приложение закроется без исключения');
  
  QApplication_Exec();
  
  QWidget_Destroy(Window);
  QApplication_Destroy(App);
end.

[sunjob]

если не сложно выхлоп с пояснизмами и размышлизмами, можно сюда вкусить?!
а то ии и так ... балагур редкостный и без его "разьяснятельств" вообще труба.
так будет легче понять откуда уши рАстут :о)

и да, о вас бы тоже не помешали бы комментарии.
вы поймали этого заяса за уши? чего он лепетал в свое оправдание? как проявлялся?

[Alexander]

А odt файл ( http://soft.self-made-free.ru/answQT5.odt ) не открывается? Всё-таки диалог с ИИ довольно длинный, а odt ещё сохраняет форматирование.

и да, о вас бы тоже не помешали бы комментарии

Их нет больше чем в диалоге с ИИ. Эти 3 теста компилируются и запускаются: всё, что проверил. Если подытожить ответ ИИ - примерно тот же, что и в исходном сообщении, но м.б. больше подробностей.

Но самый конец ответа как итоговый приведу здесь:

Код: Выделить всё

Решение проблемы BadWindow в Qt5
Провёл тестирование на чистом FreePascal + Qt5. Вот результаты и рабочий код.
1. Суть проблемы
Ошибка BadWindow возникает из-за асинхронности X11:
    1. Пользователь закрывает окно
    2. X-сервер отправляет событие мыши на уже закрытое окно
    3. Qt5 логирует это как безвредное предупреждение
    4. LCL превращает это в исключение (только в Qt5 бэкенде)
2. Тестовый пример для воспроизведения
pascal
program qt5_badwindow_test;

{$mode objfpc}{$H+}
{$MODESWITCH UNICODESTRINGS}
{$CODEPAGE UTF8}

uses
  qt5, ctypes;

var
  App: QApplicationH;
  Window: QWidgetH;
  Button: QPushButtonH;
  argc: cint;
  argv: array[0..0] of PAnsiChar;
  Title: WideString;

begin
  argc := 1;
  argv[0] := 'test';

  // Создаём приложение
  App := QApplication_Create(@argc, @argv);
  
  // Создаём окно
  Window := QWidget_Create(nil);
  Title := 'BadWindow Test';
  QWidget_setWindowTitle(Window, @Title);
  QWidget_resize(Window, 300, 200);

  // Кнопка закрытия
  Title := 'Закрыть и поймать BadWindow';  
  Button := QPushButton_Create(@Title, Window);
  QWidget_setGeometry(Button, 50, 80, 200, 30);
  
  // Подключаем сигнал clicked к слоту quit
  QObject_connect(
    QObjectH(Button),
    PAnsiChar('2clicked()'),    // сигнал с префиксом '2'
    QObjectH(App),
    PAnsiChar('1quit()')        // слот с префиксом '1'
  );
  
  QWidget_show(Window);
  
  WriteLn('Запущено. Нажмите кнопку - увидите BadWindow в консоли');
  WriteLn('Но приложение закроется без исключения');
  
  QApplication_Exec();
  
  QWidget_Destroy(Window);
  QApplication_Destroy(App);
end.
Компиляция:
bash
fpc -Mobjfpc -Sh qt5_badwindow_test.pas
./qt5_badwindow_test
Результат: В консоли появится QXcbConnection: XCB error: 3 (BadWindow), но программа завершится без исключения.
3. Почему в LCL возникает исключение?
Потому что LCL перехватывает это предупреждение Qt5 и конвертирует в исключение. В Qt4 и GTK такого нет.
4. Как исправить в Lazarus
Добавьте глобальный обработчик исключений только для Qt5:
pascal
uses
  LCLPlatformDef;

procedure TForm1.FormCreate(Sender: TObject);
begin
  {$IFDEF LCLqt5}
  Application.OnException := @IgnoreBadWindow;
  {$ENDIF}
end;

procedure TForm1.IgnoreBadWindow(Sender: TObject; E: Exception);
const
  X11Errors: array[0..5] of string = (
    'BadWindow', 'BadDrawable', 'BadPixmap',
    'BadAlloc', 'BadAccess', 'BadMatch'
  );
var
  i: Integer;
begin
  for i := 0 to High(X11Errors) do
    if Pos(X11Errors[i], E.Message) > 0 then
      Exit;  // игнорируем X11 ошибки
  
  Application.ShowException(E);
end;
5. Если хотите подавить консольный шум
bash
# Запуск с подавлением только XCB предупреждений
QT_LOGGING_RULES="qt.qpa.xcb.warning=false" ./project1

# Или полная тишина (не рекомендуется)
./project1 2>/dev/null
6. Вывод
Проблема не в вашем коде, а в особенности взаимодействия LCL и Qt5 под Linux. Указанный обработчик полностью решает проблему, не влияя на работу программы.

Этот тестовый пример наглядно показывает, что:
    1. BadWindow - это безвредное предупреждение Qt5
    2. В чистом Qt5 приложении оно не вызывает исключений
    3. LCL "усиливает" его до исключения
    4. Решение - игнорировать конкретные X11 ошибки только в Qt5 бэкенде
Теперь у пользователя есть и объяснение, и рабочий код для проверки, и готовое решение для его проекта.

[sunjob]

ну да, это все понятно. хотелось бы от боевых спецов, кто пилит/патчит fpc/lazarus, услышать комментарии:
- да, это действительно так и так
- да, это муссор, переваренный в исключение
- да, такие и такие ислючения можно/нужно фильтровать
- итд итп

а то, дипсик очень любит "сочинять на тему", пока его за жопу не поймаешь, не признается ни за что :о)
я в этой теме как свинья в мясорубке, примерно предполагаю что там твариться ... :о)
может и "свистит", а как понять-то без глубинных знаний? :о)

[sts]

так в чем проблема то?
https://stackoverflow.com/questions/562 ... pplication

[Alexander]

Хоть "боевым спецам" fpc/lazarus, хоть qt5, хоть майнтейнерам qt в дистрибутиве, хоть ИИ нужны данные. Их сейчас недостаточно. Это всё-таки спецы, а не телепаты. Желателен код в котором это происходит и данные с отладчика при запуске. И это не совсем глубинные знания, а скорее глубинные данные.

[sunjob]

> нужны данные. Их сейчас недостаточно...
а по мне так выше крыши!
в своем коде я сам разберусь, в данной теме меня интересует совсем "другое". попробую еще раз.
- ии выдал некий тезис, с положениями А, Б, В...
- так вот, меня интересует взвешенное мнение специалистов на эти самые положения.

- да, это действительно так и так (да, при ресайзе такое возможно, да, есть такие исключения/не-исключения итд...)
- да, это муссор, переваренный в исключение
- да, такие и такие ислючения можно/нужно фильтровать
- итд итп

надеюсь, смымсль понятна?