Блог

У меня есть приложение Delphi 5, в коде приложения вызывается функция в DLL, передающая целочисленные и строковые параметры, это хорошо работает, когда DLL вызывается статическим способом, при попытке динамического изменения не работает. как правильно передавать параметры для динамической работы? код выглядит следующим образом

основное приложение

   function Modulo_Pptos_Operacion(No_Orden : Integer; pathBD : string; PathBDConf :   String) : Integer ; stdcall;
 external 'LIB_Pptos_Oper.dll';

  Modulo_Pptos_Operacion(DmDatos.OrdenesNO_Orden.AsInteger,
   DmDatos.CiasPATHA.AsString, 'Alguna String');
 

DLL

   Modulo_Pptos_Operacion function (No_Orden: Integer; PathDB: AnsiString; PathDBConfig: AnsiString): Integer; StdCall;
 

ДИНАМИЧЕСКИЙ СБОЙ
основного приложения

   type
    TDLLPpto = function(No_Orden : Integer; PathDB : AnsiString; PathDBConfig : AnsiString) : Integer;
  var
    DLLHandle: THandle;
    : TDLLPpto;

  PROCEDURE CALL
    DLLHandle := LoadLibrary('LIB_Pptos_Oper.dll');
    DLLHandle <> 0 then
   begin
     @DLLPpto := GetProcAddress(DLLHandle, 'Modulo_Pptos_Operacion');
   end;
  ;
 

какой правильный путь?

Проблема, вероятно, в том, что вы смешиваете разные среды выполнения и, вероятно, разные кучи. Строки Delphi не являются допустимыми типами взаимодействия, поскольку их реализации варьируются от версии к версии.

В этом случае вы можете просто переключиться на использование строк с нулевым завершением, PAnsiChar .

В случае динамически загружаемой dll вы пропустили stdcall; директиву соглашения о вызове в объявлении TDLLPpto . Тем не менее, рекомендуется использовать PAnsiChar type для передачи строк через границы исполняемого файла.

Макет ansistring изменился с Delphi XE: теперь также есть поле кодовой страницы с отрицательным смещением, а в D5 его нет. НАПРИМЕР: строки из D5 и DXE совершенно несовместимы. Таким образом, вы должны использовать PAnsiChar или PWideChar в своем интерфейсе, либо заканчивающийся нулем (строки Delphi всегда заканчиваются нулем), либо ввести дополнительный параметр с длиной, если строка может содержать # $ 00 байт.

Также: разные версии Delphi имеют разные менеджеры памяти. Если строка выделяется основным приложением и освобождается библиотекой DLL (строки подсчитываются по ссылкам), указатель get передается неправильному менеджеру памяти, что обычно приводит к повреждению памяти и, следовательно, к неприятным нарушениям доступа и т.д.

Другим решением является использование WideString ; это как в D5, так и в DXE равно COM BSTR stringtype и управляется ОС, а не менеджером памяти Delphi. Они совместимы. Единственная проблема в том, что они медленные по сравнению со строками Delphi и не учитываются ссылки.

В целом: при использовании интерфейсов DLL старайтесь избегать string, используйте PAnsiChar или PWideChar, или WideString