Решение проблемы с переводом функции `is_AOI` из C++ в Delphi

Delphi , Интернет и Сети , Браузер

Решение проблемы с переводом функции is_AOI из C++ в Delphi

При переводе функций из C++ в Delphi могут возникать различные проблемы, связанные с различиями в языках программирования и их синтаксисе. В данном случае пользователь столкнулся с ошибкой 125, которая указывает на неверные параметры при вызове функции is_AOI. Давайте разберемся с этой проблемой.

Оригинальный код на C++:

IDSEXP is_AOI(HIDS hCam, UINT nCommand, void *pParam, UINT SizeOfParam);

Перевод в Delphi:

function is_AOI(hCam: Cardinal; Command: Cardinal; Param: Pointer; ParamSize: Cardinal): integer; cdecl; external 'ueye_api.dll';

Пример использования функции в C++:

IS_SIZE_2D imageSize;
imageSize.s32Width = m_nSizeX;
imageSize.s32Height = m_nSizeY;
is_AOI(m_hCam, IS_AOI_IMAGE_SET_SIZE, (void*)&imageSize, sizeof(imageSize));

Пример использования функции в Delphi:

var
  size2D: TSize2D;

size2D.S32X := maxWidth;
size2D.S32Y := maxHeight;
ret := is_AOI(cam, IS_AOI_IMAGE_SET_SIZE, Pointer(@size2D), SizeOf(size2D));

Структура IS_SIZE_2D на C++:

typedef struct
{
    INT s32Width;
    INT s32Height;
} IS_SIZE_2D;

Перевод структуры в Delphi:

TSize2D = record
  S32X, S32Y: integer;
end;

Подсказки по решению проблемы:

• Использование типа Pointer для параметра Param в функции is_AOI является корректным.
• Тип hCam в C++ представляет собой указатель, и в Delphi его следует объявлять как NativeUInt или UIntPtr, чтобы избежать проблем в 64-битной версии.
• В Delphi 7 есть проблема с определением размера NativeUInt, которая исправлена в D2009. Для более старых версий Delphi можно использовать следующий код:

{$IFNDEF VER200}  //anything prior to Delphi 2009
type
  NativeUInt = Cardinal;
  NativeInt = Integer;
{$ENDIF}

• Ошибка 125 на самом деле является возвращаемым значением функции, а не ошибкой выполнения. Это означает, что проблема не в подписи функции, а в передаваемых параметрах.
• Если в качестве значений для size2D используются максимальные значения, это может привести к ошибке. Необходимо использовать разумные значения.

Исправленный код в Delphi:

var
  size2D: TSize2D;

size2D.S32X := 100; // Пример разумного значения
size2D.S32Y := 100; // Пример разумного значения
ret := is_AOI(cam, IS_AOI_IMAGE_SET_SIZE, @size2D, SizeOf(TSize2D));

Заключение:

Перевод функции is_AOI из C++ в Delphi был выполнен корректно, однако проблема заключалась в неправильной передаче параметров. Использование UIntPtr вместо Cardinal для типа hCam и замена Pointer на параметр с переменным типом (var Param) может сделать код более читаемым и удобным в использовании. Важно также убедиться, что все функции библиотеки вызываются в правильном порядке и с корректными параметрами.

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

При переводе функции `is_AOI` из C++ в Delphi необходимо уделить внимание корректной передаче параметров и обработке результатов, чтобы избежать ошибок, связанных с неправильными значениями аргументов.

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

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

:: Главная :: Браузер ::