Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855763 Tue, 07 Dec 2021 07:29:01 +0000 DirectDraw в Lazarus https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855763 Fr0sT Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855059 Fri, 26 Nov 2021 06:44:37 +0000 DirectDraw в Lazarus https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855059 packed в декларации. Сверятся надо со структурами в MSDN]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855006 Thu, 25 Nov 2021 07:47:25 +0000 DirectDraw в Lazarus https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855006 Подскажите, пожалуйста, директиву компилятора для включения-выключения упаковки рекордов? Яндексение успеха пока не принесло.]]> Lem0nti Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855004 Thu, 25 Nov 2021 05:58:07 +0000 DirectDraw в Lazarus https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3855004 Курение исходников показало следующее - автор обёртки DirectDraw в Дельфих и джедаях один и тот же. Исходники отличаются лишь комбинацией ифдефов. Единственный класс, который использует DirectDrawCreateEx в джедаевском репозитории, это TDisplay. Но сам этот класс никем во всей ветке master у джедаев не используется.
Если у вас есть пример, дайте, пожалуйста, ознакомиться.]]> Lem0nti Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3854988 Wed, 24 Nov 2021 18:48:39 +0000 DirectDraw в Lazarus https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3854988 Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3854972 Wed, 24 Nov 2021 15:46:30 +0000 DirectDraw в Lazarus https://forum.sources.ru/index.php?showtopic=424316&view=findpost&p=3854972 Ситуация такая - идёт процесс адаптирования исходников одного проекта к работе и в Дельфи и в Лазарусе...
И вот я добрался до работы с DirectDraw: функция DirectDrawCreateEx при вызове сразу генерит ошибку. Код выглядит так:
    DirectDrawCreateEx(nil,m_ddraw,{$IFDEF FPC}@{$ENDIF}IID_IDirectDraw7,nil);

Посмотрев внимательно на объявление этой функции в файле p_ddraw в Лазарусе и сравнив его с Дельфовым DirectDraw, стало понятно следующее: эти функции объявлены по разному - в одном случае параметр iid это структура(D), в другом указатель(L). Переобъявил эту функцию таким образом как она объявлена в D и вроде всё стало норм, но выскочило в другом месте. После внимательного изучения этих двух файлов, оказалось что во многих объявлениях как экспортных функций, так и методов интерфейсов в D структуры, в L - указатели.
Подскажите, пожалуйста, что нужно предпринять, чтобы можно было работать в Лазарусе с DirectDraw?

Вариант с копированием файла DirectDraw и использованием его после лёгких правок в Лазарусе, уже опробовал - это привело к тому, что интерефйсы в Лазарусе просто не создаются там где создаются в Дельфях.]]> Lem0nti Delphi: Система, Windows API