FreePascal.ru

Да, использовать Вулкан, при том, что используются функции OpenGL не выше 2.0, как-то не практично.
Вот у меня всё руки не дойдут просто тупо заменить библиотеку libgl из Минт 18.3 в Минт 19, если это прокатит, будет здорово, хотя решение не нормальное.

Добавлено спустя 2 минуты 26 секунд:
Да ...

pupsik Дался вам этот OnPaint в этом событии ничего такого что я могу в событии по кнопке написать не происходит. Смысл в том, что ошибка возникает во время закрытия программы в том случае если были использованы функции OpenGL. Если использовать только SwapBuffers (или MakeCurrent) то ошибки не ...

Снег Север Не поможет. Сделал тест с тремя кнопками: 1-я создаёт контекст, 2-я заполняет зелёным фоном, 3-я удаляет компонент OpenGLContol. После нажатия на 3-ю кнопку зелёный квадрат с формы исчезает (без ошибок)
при закрытии формы та же ошибка.

zub Да систему ставил с диска скаченного с сайта LinuxMint (xfce 19), потом драйвера на видео из менеджера драйверов (чего-то там nvidia 370), потом обновление и Лазарус из deb пакетов, скаченных с сайта Lazarus IDE.
Пытался сравнить 2 вывода strace в Минт 18 и в Минт 19, думал может будет понятно ...

zub Библиотеки gtk, дрова, те которые сам Минт поставил из менеджера драйверов (карта NVidia GeForce).
У меня есть подозрение, что-то не так с библиотекой libgl (в 19-м Минте), т.к. исполняемый файл запускал на Linux Mint 17,18 и никаких ошибок при закрытии не было.
Идея появилась просто стащить ...

olegy123 Вы вместо того, чтобы писать столько, воспроизвели бы тот пример, тогда бы вы увидели, что этот "пук в пустоту.." вполне себе окрашивает область OpenGLControl в зелёный цвет.

olegy123 Видимо вы даже не смотрели тестовый пример. Там на форме один компонент OpenGLControl и одна кнопка, так что MakeCurrent тут не нужен.


Если у кого-то установлен Минт 19 и Лазарус 1.8.4 отпишитесь пожалуйста, возникает ли у вас подобная проблема.
Ещё немного потестировав, выяснил, что ...

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, OpenGLContext, Forms, Controls, Graphics, Dialogs, StdCtrls, gl;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
OpenGLControl1: TOpenGLControl;
procedure Button1Click(Sender: TObject ...

для zoltanleo:
после закрытия программы в терминале выводится это:
An unhandled exception occurred at $00007FD1466177C8:
EAccessViolation:
$00007FD1466177C8

для fedan:
я правильно понимаю, что нужно только последнее, что выводилось, а то этот starce просто мега простыню выдаёт.
последнее, что он ...

Установил минт 19, теперь программы использующие компонент OpenGLControl после закрытия выдают ошибку.
Попробовал сделать пустое приложение с OpenGLControl для проверки, оказалось, что если использовать MakeCurent или SwapBuffers, то по закрытии будет ошибка.
Использую Лазарус 1.8.4
Может кто-то ...

serbodПараметры накопления могу зависеть от того, что там выдала обработка. Но в некоторых случаях Ваше предложение работать будет, спасибо за совет, возьму его на вооружение в некоторых режимах.

Тема закрыта, ответ я получил. Еще раз спасибо MysticCoder.

скалогрызДа в примере с поршнем вполне справится один поток. В реальной проге каждый поток разделён на 2 части, есть часть, которая выпоняет накопление и часть, которая обрабатывает накопление, копить одновременно потоки не могут, а обрабатывать пожалуйста, вот тут и будет параллельность.

MysticCoder Благодарю за Ваше решение, оно работает. Попробую его на реальной проге.
Вот циклограмма:
1- по очерёдная работа потоков
2- момент когда основной поток решил целых 5 секунд лицезреть значение счётчика.
https://cloud.mail.ru/public/LRz4/gAYEBSDnV
https://cloud.mail ...

MysticCoder Попрубую Ваш вариант. Правда решение для Линкуса нужно, но думаю можно его перетащить на Линукс.

скалогрыз Очередь из одного потока, потому как один работает (т.е. не стоит в очереди), другой ждёт в очереди, т.е. длина очереди 1.
По поводу изменений условий, я бы так не сказал ...

olegy123 Это вы тут хорошо написали, но попробуйте сделать реальную программу и посмотрите как это будет работать. Только Sleep после выхода из КС не годится, зачем мне задержка потока, который после выхода из КС должен что-то полезное делать.
И я бы на Вашем месте посмотрел всё обсуждение, Ваш ...