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

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

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

• Загрузить в ListView список файлов и директорий
• Условное форматирование в vba
• Создание меню из текстового файла
• Загрузка программы без ОС
• Сериализовать объект в delphi
• Растянуть TImage на весь экран
• Область заголовка окна
• Прозрачность формы PNG, 2xTCV и др.
• Рассылка. Выпуск 53.
• Как сделать изображение на заднем фоне