Найден 131 результат

xdsl
03.03.2021 20:35:25
Форум: Lazarus
Тема: lazarus & ffplay
Ответы: 7
Просмотры: 6150

Re: lazarus & ffplay

Не уверен, что поможет, но на чистом v4l можно получать кадры видеопотока с помощью моего проекта: m
Он, правда, для лего-роботов изначально разработан, там особо не разгонишся с тяжелой обработкой, поэтому на входе только YUYV-формат, его вроде как большинство камер поддерживают. Никаких внешних ...
xdsl
15.02.2021 09:54:09
Форум: Lazarus
Тема: проблемы CodeTools
Ответы: 3
Просмотры: 2818

Re: проблемы CodeTools

Спасибо, я в конце концов так и поступил, но это половинчатое решение, и не раз и навсегда.
Это решение для одного проекта. Для другого приходится делать также. При смене места библиотеки, снова править конфиги всех проектов, вместо того, чтобы поправить одно место в fpc.cfg.

Добавлено спустя 1 ...
xdsl
15.02.2021 09:25:13
Форум: Обучение Free Pascal
Тема: synapse40 взять тело страницы https:
Ответы: 6
Просмотры: 31797

Re: synapse40 взять тело страницы https:

Если под линуксом, достаточно такого:

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

uses fphttpclient,opensslsockets;
begin
 writeln(TFPHTTPClient.simpleGet('https://yandex.ru/'));
end.
xdsl
15.02.2021 09:19:18
Форум: Помощь за вознаграждение
Тема: Задание с Массивами
Ответы: 5
Просмотры: 41381

Re: Задание с Массивами

java73 писал(а):
скалогрыз писал(а):да ладно! не будь таким суровым!
вот решение!

не лень было? )))))))))))))

Судя по коду - это изощренное издевательство над субъектом.
Судя по субъекту - он этого не понял)
xdsl
15.02.2021 09:13:52
Форум: Lazarus
Тема: проблемы CodeTools
Ответы: 3
Просмотры: 2818

проблемы CodeTools

Указываешь в fpc.cfg с помощью -Fi каталог включаемых файлов, пишешь в проекте {$i myfile.inc}, компилирует нормально, а CodeTools в упор не видит этого файла. Соответственно отказывает автодополнение и прочие фишки.
Исправляется вызовом "/Сервис/Пересмотреть каталог исходного кода FPC", либо touch ...
xdsl
22.11.2019 07:41:12
Форум: Free Pascal Compiler
Тема: возвращение к программированию
Ответы: 165
Просмотры: 134142

Re: возвращение к программированию

Считал число PI с помощью схождения ряда Лейбница (https://ru.wikipedia.org/wiki/Ряд_Лейбница). А это какой алгоритм?
xdsl
10.04.2019 12:40:33
Форум: Free Pascal Compiler
Тема: Большие числа
Ответы: 60
Просмотры: 87897

Re: Большие числа

Мне только одно непонятно, как вводить число N? Это явный стёб со стороны препода.
Сразу представляю такой диалог:
Студент:
- Фигня задача, простой перебор ...
Преподаватель:
- Фигня, говоришь ... Вот тебе N = 10^10000, иди перебирай, надоест - приходи, поговорим.

А задача - математическая ...
xdsl
10.04.2019 12:25:28
Форум: Free Pascal Compiler
Тема: остановка приложения с потоками (linux консоль)
Ответы: 17
Просмотры: 18136

Re: остановка приложения с потоками (linux консоль)

В своем проекте я решил проблему так:
1. В запущенном потоке разрешаю внешнее убиение нити: pthread_setcanceltype(PTHREAD_CANCEL_ASYNCHRONOUS,nil);
2. Перед завершением программы убиваю нить через system.killThread

Такой подход не рекомендуется везде, прям как использование goto. Но работает во ...
xdsl
08.04.2019 13:37:46
Форум: Free Pascal Compiler
Тема: Олимпиадная задача
Ответы: 21
Просмотры: 23600

Re: Олимпиадная задача

Ну и чепуху намекнули, учета воды-суши нет.
Бери мой код за основу, делай обратную трассировку и все у тебя получится ;)
xdsl
08.04.2019 11:18:14
Форум: Free Pascal Compiler
Тема: Олимпиадная задача
Ответы: 21
Просмотры: 23600

Re: Олимпиадная задача

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

Итак, есть массив ...
xdsl
30.10.2018 13:34:34
Форум: Free Pascal Compiler
Тема: Вызов процедуры с неверным количеством параметров
Ответы: 29
Просмотры: 29032

Re: Вызов процедуры с неверным количеством параметров

Часть, где нужна озвученная фишка, еще не в библиотеке, ее внедрение я планирую на ноябрь.
Поэтому вкратце: даю возможность юзеру, использующему библиотеку RubiRobotLib, параллельно выполнять отдельные процедуры. Это бывает нужно, когда требуется асинхронно манипулировать различными моторами, в ...
xdsl
26.10.2018 09:10:41
Форум: Free Pascal Compiler
Тема: Вызов процедуры с неверным количеством параметров
Ответы: 29
Просмотры: 29032

Re: Вызов процедуры с неверным количеством параметров

На x86 дефолтный тип вызова - "pascal".
дефолтный тип вызова это "register". ( документация )
Это так, каюсь . Сам не знаю, почему такую ересь написал, имел в виду именно "register"
Соглашение по вызову имеют смысл только для x86, платформы, для x86-64, арм-ов и других они просто игнорируются ...
xdsl
25.10.2018 14:16:06
Форум: Free Pascal Compiler
Тема: Вызов процедуры с неверным количеством параметров
Ответы: 29
Просмотры: 29032

Re: Вызов процедуры с неверным количеством параметров

Изменил программу на рекурсивный вариант, ввел более 10 параметров, чтобы исчерпать регистры и учел некоторые другие предложения форумчан:
type tx=procedure(a:integer; b:double; c:extended; c1,c2,c3,c4,c5,c6,c7,c8,c9,a1,a2,a3,a4,a5:integer);cdecl;

var cnt:integer=3;
procedure x ...
xdsl
23.10.2018 10:05:17
Форум: Free Pascal Compiler
Тема: Вызов процедуры с неверным количеством параметров
Ответы: 29
Просмотры: 29032

Re: Вызов процедуры с неверным количеством параметров

Дайте угадаю. Архитектура x64? Скорее всего, вы используете побочный эффект соглашения вызова System V fastcall на x64, когда первые 6 или 13 (?) параметров передаются через регистры, а чистку жизнедеятельности делает вызывающая сторона, по максимуму в вашем случае. Смотрите ассемблерный ...
xdsl
22.10.2018 09:08:53
Форум: Free Pascal Compiler
Тема: Вызов процедуры с неверным количеством параметров
Ответы: 29
Просмотры: 29032

Re: Вызов процедуры с неверным количеством параметров

Вообще, есть альтернатива, если есть время и желание с ней разбираться - VarDispProc.
Пока единственный стоящий ответ, правда не на мой вопрос. К тому-же у меня все работает под Linux, виндовые фишки меня как-то не особо волнуют. Хотя если покопаться, что-то можно и нарыть.
В большинстве остальных ...