Использование 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}

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

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

• Узнать имя класса компонента и его имя
• Есть ли одинаковые элементы в матрице? (Паскаль)
• Рассылка. Выпуск 206
• Как автоматически заполнить ListBox?
• Макрос на удаление любого столбца по условию в указанной ячейке (VBA)
• Кто над чем работает?
• Вставка данных в Excel после последней заполненной ячейки
• Как в делфи узнать, наступил ли новый день, месяц, год?
• Dynamic
• Детей будут усыплять :)