Использование OpenCL в Delphi-коде под Win64

Posted by obzor under Delphi

Для ускорения расчётов в программе, написанной на Delphi XE2 (…XE6), ранее использовались потоки (объект TThread) на CPU. Сейчас возникла идея использовать возможности GPU. Простой, как казалось, путь — подключить модули (заголовочные файлы к OpenCL.dll по сути) — и использовать возможности OpenCL от Khronos Groupe.

Работает всё это, но…только при компиляции дельфового проекта под Win32. А мне нужны большие массивы, динамические: компиляция всей научной программы под Win64 просто необходима (используем иногда до 12 Гбайт оперативки CPU).

При компиляции под Win32 работает, а под Win64 — нет!!

wendstor

1. Изменить OpenCL.dll на OpenCL64.dll в функции LoadOpenCL или завести константу:

const
  {$IFDEF WIN32}
  DLL_OPENCL = 'OpenCL.dll';
  {$ENDIF}
  {$IFDEF WIN64}
  DLL_OPENCL = 'OpenCL64.dll';
  {$ENDIF}  

...........
function LoadOpenCL: boolean;
begin
  OpenCL_handle:=LoadLibrary(DLL_OPENCL);

2. Изменить size_t на NativeInt или

uses
  {$IFDEF WINDOWS}
  Windows, System.SysUtils;
  {$ENDIF}

  {$IFDEF WIN32}
  size_t     = longword;
  {$ENDIF}
  {$IFDEF WIN64}
  size_t     = NativeInt;
  {$ENDIF}

тема на форуме

Случайные статьи

• Как сбросить БИОС (BIOS) на ноутбуке Sony.
• Узнать имя класса компонента и его имя
• Есть ли в массиве А[n] числа В и С и определить, какое из чисел встречается в массиве чаще
• Чтение параметров запуска программы
• Исходник нахождения обратной матрицы
• Как сделать всплывающее окно для выбора списка городов средствами JavaScrpit?
• Игра, 2D файтинг.
• Исходники программы для создания тестов
• Составить алгоритм и программу для вычисления в цикле суммарного результата
• Удалить все комментарии JS в текстовом файле