FreePascal.ru

Вам необходимо настроить режим FPU для потока

Попробуйте убрать virtual вот тут

function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} IID: TGUID; out Obj): Longint; virtual; stdcall;
function _AddRef: Integer; virtual; stdcall;
function _Release: Integer; virtual; stdcall;

Должно помочь. Но я не знаю, как вызов ...

"В ReleaseTable должно быть.."
Да ничего там не должно быть, как и самого ReleaseTable. Зачем пытаться перекрывать функционал RTL своими костылями? RTL сама освобождает объект закрытый в интерфейсе, ТС просто вызывает излишний Free для него, с учётом того что я отметил выше про наследование от ...

В ReleaseTable должно быть

Table := nil;

Но всё равно не работает. Я бы назвал такую ситуацию "ошибкой RTL", потому что нет причин не работать.

При выходе из блока

function Test: String;
var
TT: IMyTable;
begin
TT := GetTable;
Result := TT.GetTableName;
ReleaseTable(TT);
end;

в RTL ...

priboy писал(а):Lubuntu 23.04

Людей, пользующихся не LTS дистрибутивом здесь не очень много.

Можно посмотреть вывод в консоль после запуска?

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

*Rik* писал(а):Самый быстрый вариант оказался с ImageMagick, начал с него, только в систему я ни чего монтировать не стал, а просто использую командную строку для конвертации PDF в PNG.

ImageWand API => открыли PDF => прочитали постранично => отправили на печать.

Я бы воспользовался ImageMagick-ом. В fcl он уже есть.

У Вас


-FDC:\fpcupdeluxe\cross\bin\avr-embedded\
-FlC:\fpcupdeluxe\cross\lib\avr-embedded\$fpcsubarch\

и


-FuC:\fpcupdeluxe\fpc\units\avr-embedded\$fpcsubarch\
-FuC:\fpcupdeluxe\fpc\units\avr-embedded\$fpcsubarch\*
-FuC:\fpcupdeluxe\fpc\units\avr-embedded\$fpcsubarch\rtl


Могут содержать ...

Скорее всего версии ppu -шек не совпадают с версией компилятора, и IDE не может в этом деле разобраться.

Я сам вчера смог сломать "автодополнение", правда сам не понял как. Пересобрал FPC и всё снова заработало.

Почему он спрашивает про ppcavr.exe я не понял.

Это первую попытку найти компилятор ...

Компилятор ppcavrembedded (как-то так) положил в общую папку Lazarus: bin. Проект компилируется нормально, но если я напишу, например, port и нажму Ctrl+пробел, что б увидеть все имеющиеся порты, то курсор перескакивает на первую строку в первую позицию и ни какого выпадающего меню не проявляется ...

подскажите

А как выглядит проблема?

Для начала попробуйте открыть один из отладочных проектов -- в нем прописаны пути и никаких проблем быть не должно. К примеру arduinouno/apps/servo/servo.lpr

Так же должен быть собран компилятор под AVR с приблизительно такими параметрами:

make clean ...

Операция in предполагает использование битовой арифметики.
Для Byte ( 1 байт ) потребуется 256/8 Байт = 32Байтная маска.
Для Word ( 2 байта ) потребуется 65536/8 Байт = 8КБайтная маска.
Второй вариант уже явно перебор решать с помощью маски :-)

Вариант с использованием более сложного алгоритма ...

Главное, то что это фрагмент работает !

Можно я поправлю "Главное, то что это фрагмент иногда работает"

А внешних изменений он может вообще не пережить.

С "is" разумеется красивее ( но лучше ли это?).

Сила не в красоте, а в правоте )))

Код, в котором вначале сравниваются типы двух объектов ...

if TypeOf(e.Current) = TypeOf(Panel1) then TPanel(e.Current).Hide;
Такой код предполагает полное совпадение классов, т.е. вот так:
if e.Current.ClassType = Panel1.ClassType then TPanel(e.Current).Hide;
Что тоже странно, потому что Panel1 может быть любого класса не обязательно TPanel.

Логичный ...