Исправление ошибки доступа при вызове функций из DLL на C++ в Delphi

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

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

Описание проблемы

Разработчик столкнулся с ошибкой доступа при вызове функции CEFReadB из DLL, которая предназначена для чтения байтов. Присваивание значений массива в поле записи TStatusPrintingRecord приводит к ошибке доступа. Если же использовать простую булеву переменную, то ошибка не возникает. Требуется помощь в устранении этой проблемы.

Пример кода

function TdmCustom.CheckBon(var valueBits: TStatusPrintingRecord): Boolean;
var
  cmd: String;
  MemArea: PAnsiChar;
  pdwByteRead, lpdwSysError: LPDWORD;
  aNrComanda: String;
  Arr: array of AnsiChar;
begin
  // Инициализация переменных
  // Вызов функции SendCommandToPrinter
  lastError := CEFReadB(MemArea, pdwByteRead, lpdwSysError);
  // Работа с памятью и присваивание значений
  if lastError = 0 then
  begin
    valueBits.S8_isBonFiscalDeschis := Arr[8] = '1';
    // Другие операции
  end;
  // Возврат результата
end;

Заголовочный файл функции DLL

function CEFReadB(lpMemArea: PAnsiChar; var pdwByteRead: LPDWORD; var lpdwSysError: LPDWORD): DWORD; cdecl; external DLLName name 'CEFReadCustom' delayed;

Анализ проблемы

В сообщениях на форуме разработчику было указано несколько потенциальных ошибок в коде:

1. Использование & в Delphi не соответствует его использованию в C++. Вместо этого следует использовать @.
2. Необходимо корректно передавать параметры функции, особенно если они используются по ссылке (VAR).
3. Типы параметров pdwByteRead и lpdwSysError должны быть объявлены как DWORD, а не как указатели на них (LP).
4. Необходимо выделить память для MemArea перед вызовом функции CEFReadB.
5. Необходимо передать размер выделенной памяти в параметре pdwByteRead.

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

function CEFReadB(lpMemArea: PAnsiChar; var ByteRead: DWORD; var SysError: DWORD): DWORD; cdecl; external DLLName name 'CEFReadCustom' delayed;

function TdmCustom.CheckBon(var valueBits: TStatusPrintingRecord): Boolean;
var
  cmd: String;
  MemArea: AnsiString;
  LastError, ByteRead, SysError: DWORD;
  aNrComanda: String;
begin
  // Инициализация размера буфера
  ByteRead := 50;
  SetLength(MemArea, ByteRead);
  // Вызов функции SendCommandToPrinter
  // Вызов функции CEFReadB с корректными параметрами
  LastError := CEFReadB(PAnsiChar(MemArea), ByteRead, SysError);
  if LastError = 0 then
  begin
    // Проверка на достаточность данных
    if ByteRead >= 9 then
    begin
      // Присваивание значений полям записи
      valueBits.S8_isBonFiscalDeschis := MemArea[8] = '1';
      // Другие операции
    end
    else
      Exit(False);
  end;
  // Возврат результата
end;

Заключение

После внесения вышеуказанных исправлений в код, ошибка доступа должна быть устранена. Важно помнить о правильной передаче параметров в функции DLL, особенно если они используются по ссылке или являются указателями. Также важно корректно обрабатывать возвращаемые функции значения и размер полученных данных.

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

Разработчик в Delphi столкнулся с ошибкой доступа при вызове функции из DLL, написанной на C++, из-за некорректной передачи параметров и работы с памятью.

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

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

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