Исправление ошибки компиляции в Pascal Script: назначение обработчика события `OnExternalProc` при импорте функций из C++ DLL

Delphi , Файловая система , DLL и PlugIns

Исправление ошибки компиляции в Pascal Script: назначение обработчика события OnExternalProc при импорте функций из C++ DLL

При работе с встраиваемым скриптовым языком Pascal Script, разработчики часто сталкиваются с необходимостью использования внешних библиотек, написанных на C++. В частности, могут возникнуть трудности при импорте функций из динамически подключаемых библиотек (DLL), созданных на C++. В данной статье мы рассмотрим типичную проблему, с которой может столкнуться разработчик, и предложим решение, основанное на использовании обработчика событий OnExternalProc.

Проблема

Рассмотрим типичную ситуацию: у вас есть функция, написанная на C++, которая скомпилирована в DLL.

Файл functions.h:

#ifndef FUNCTIONS_H
#define FUNCTIONS_H

int DLLsquare(int x);
#endif  /* FUNCTIONS_H */

Файл functions.cpp:

#include "functions.h"
int DLLsquare(int x){
    return x*x;
}

Вы успешно скомпилировали этот код в DLL, но теперь сталкиваетесь с необходимостью импортировать функцию в скрипт на Pascal Script. Вы пытаетесь это сделать следующим образом:

program TestDLL;

function Square(x: Integer): Integer;
external 'DLLsquare@libTestDLL.dll';

begin
end.

Однако компиляция завершается с ошибкой:

(7:1): Ожидается символ ';' в строке 6
Компиляция не удалась.

Решение

Ошибка, с которой вы столкнулись, связана не с синтаксисом объявления внешней функции, а с отсутствием обработчика событий OnExternalProc. В Pascal Script для работы с внешними функциями необходимо назначить этот обработчик.

Вы можете реализовать обработчик самостоятельно, либо использовать функцию DllExternalProc из модуля _uPSC_dll. Рекомендуется также вызвать функцию RegisterDll_Compiletime для компонента компилятора, что автоматически назначит обработчик события OnExternalProc и зарегистрирует функции UnloadDll и DLLGetLastError.

Пример кода

program TestDLL;

uses
  uPSC_dll; // Подключаем модуль с функцией DllExternalProc

function Square(x: Integer): Integer;
external 'DLLsquare@libTestDLL.dll';

procedure OnExternalProc(const ProcName: PChar; const ProcAddr: Pointer);
begin
  DllExternalProc(ProcName, ProcAddr);
end;

procedure RegisterComponents;
begin
  RegisterDll_Compiletime(Self); // Регистрация компонента для работы с DLL
  OnExternalProc := @OnExternalProc; // Назначение обработчика событий
end;

begin
  RegisterComponents; // Вызов регистрации компонента
end.

Заключение

При работе с внешними функциями в Pascal Script важно не забывать про необходимость назначения обработчика событий OnExternalProc. Это позволит корректно обрабатывать вызовы функций из DLL. Если вы столкнулись с ошибкой "Ожидается символ ';'", убедитесь, что вы правильно настроили обработку внешних функций, следуя приведенным выше рекомендациям.

Дополнительные замечания

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

Создано по материалам из источника по ссылке.

При решении проблемы импорта функций из C++ DLL в Pascal Script необходимо назначить обработчик события `OnExternalProc` для корректной работы с внешними функциями.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DLL и PlugIns ::