Интеграция DLL на Delphi в программы на Go: решено через строковые буферы

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

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

Проблема

Разработчик столкнулся с проблемой, при которой после вызова функции из DLL на Delphi, возвращающей результат в строковый буфер, содержимое буфера в Go оказывалось пустым или вызывало ошибку. Проблема была выявлена для двух методов вызова: syscall.Syscall и windows.Call.

Контекст

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

Решение

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

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

Для корректной работы с буферами в Go, необходимо использовать указатель на первый элемент слайса, а не на сам слайс. В примере с использованием windows.Call это будет выглядеть так:

ret, _, callErr := getRandomSID.Call(uintptr(unsafe.Pointer(&Buffer[0])),
                                     uintptr(unsafe.Pointer(&BufSize)))

А в примере с использованием syscall.Syscall - так:

ret, _, callErr := syscall.Syscall(uintptr(getRandomSID),
                                   nargs, 0,
                                   uintptr(unsafe.Pointer(&(*Buffer)[0])),
                                   uintptr(unsafe.Pointer(BufSize)),
                                   )

Альтернативный ответ (не требуется)

В данном случае альтернативный ответ не требуется, так как проблема была решена исправлением кода.

Пример кода на Object Pascal (Delphi)

program SIDGeneratorDLL;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

function GetRandomSID(Buffer: PChar; var BufSize: Integer): LongBool; stdcall;
begin
  // Здесь должен быть код для генерации случайного SID и записи результата в Buffer
  // BufSize содержит размер буфера, который должен быть изменен, если функция изменяет его
  // Например, если функция увеличивает размер буфера, она должна установить BufSize в новое значение
  // и вернуть False, чтобы указать, что буфер слишком мал
  // В данном примере функция просто возвращает True, предполагая, что буфер достаточен
  Result := True;
end;

begin
  // Основной код программы
end.

Заключение

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

Примечание

В примерах кода использованы низкоуровневые вызовы, которые могут быть небезопасными и сложными для отладки. В реальных приложениях рекомендуется использовать более высокоуровневые абстракции, предоставляемые Go, для работы с внешними библиотеками.

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

Интеграция функций из DLL, написанных на Delphi, в программы на Go через корректную передачу строковых буферов.

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

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

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