Устранение ошибок доступа в 64-битных DLL для Delphi: инструкция

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

При работе с 64-битными библиотеками на языке программирования Delphi может возникать проблема, связанная с доступом к памяти, особенно при передаче строковых параметров между DLL и хост-приложением. В данной статье мы рассмотрим, как устранить ошибку доступа при работе с типами данных PWideChar в контексте вызова функции из DLL, написанной на Delphi, приложением на C#.

Пример кода, вызывающего ошибку

В коде, представленном в описании проблемы, функция GetName из DLL, написанной на Delphi, предназначена для заполнения строки PWideChar. При компиляции в 32-битной версии все работает корректно, однако при переходе на 64-битную версию возникает ошибка доступа при присваивании значения параметру name.

function GetName(var id: Integer; var name: PWideChar): Integer; stdcall;
var
  tempstr: string;
begin
  tempstr := GetNameByID(id); // Предполагаем, что функция существует
  name := PWideChar(tempstr); // Ошибка доступа при выполнении этого присваивания
  Result := 0;
end;

Подходы к решению проблемы

Передача строки через параметр var

Ошибка в коде заключается в том, что функция GetName пытается изменить содержимое параметра name, передаваемого по ссылке. Однако, в предоставленном примере кода, параметр temp инициализируется нулевым указателем, что приводит к ошибке. Необходимо использовать корректно выделенную память для строки.

Выделение памяти под строку

Функция GetName должна работать с памятью, выделенной хост-приложением, а не пытаться выделить память внутри себя. Это достигается путем передачи размера строки в функцию, как дополнительный параметр.

Пример исправленной функции

function GetName(id: Integer; name: PWideChar; namesize: Integer): Integer; stdcall;
var
  tempstr: UnicodeString;
  size: Integer;
begin
  tempstr := GetNameByID(id);
  size := Length(tempstr) + 1;
  if (name <> nil) and (namesize >= size) then
  begin
    Move(PWideChar(tempstr)^, name^, size * SizeOf(WideChar));
    Dec(size);
  end;
  Result := size;
end;

Вызов функции из хост-приложения

Хост-приложение должно выделить память под строку и передать указатель и размер строки в функцию GetName.

procedure TryGetName;
var
  returnedName: string;
  size: Integer;
begin
  size := GetName(0, nil, 0); // Получаем необходимый размер строки
  SetLength(returnedName, size - 1); // Выделяем память
  GetName(0, PWideChar(returnedName), size); // Вызываем функцию
  // Используем returnedName как нужно...
end;

Альтернативный подход: возврат строки из функции

Функция GetName может выделить память для строки внутри себя и вернуть указатель на нее, а хост-приложение должно будет освободить выделенную память.

function GetName(id: Integer): PWideChar; stdcall;
var
  tempstr: UnicodeString;
  size: Integer;
begin
  tempstr := GetNameByID(id);
  size := (Length(tempstr) + 1) * SizeOf(WideChar);
  Result := PWideChar(CoTaskMemAlloc(size));
  if Result <> nil then
    Move(PWideChar(tempstr)^, Result^, size);
end;

Вызов функции из хост-приложения (альтернативный подход)

procedure TryGetName;
var
  returnedName: PWideChar;
begin
  returnedName := GetName(0); // Получаем указатель на строку
  if returnedName <> nil then
  try
    // Используем returnedName как нужно...
  finally
    CoTaskMemFree(returnedName); // Освобождаем память
  end;
end;

Заключение

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

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

В инструкции рассматривается устранение ошибок доступа при работе с 64-битными DLL в Delphi, связанных с передачей строковых параметров.

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

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

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