动态调用和重用 DLL 函数

Question

我创建了一个包含一些功能的 DLL 文件，并希望在一个程序的不同功能中多次重用。但是当调用相同的 DLL 函数时，访问冲突错误出现在程序的第二个函数之后。

我目前正在使用 GetProcAddress。例如：

function xyz:boolean
var
   dllHandle : cardinal;
   EnBFStr : TEnBFStr;
   StrToHex : TStrToHex;
   Encodeddata , HexString : UnicodeString;

   begin
     dllHandle := LoadLibrary('Utilities.dll') ;
     if dllHandle <> 0 then
     begin
        Encodeddata:='Sample';
        @EnBFStr := GetProcAddress(dllHandle, 'EncodeBlowFishString') ;
        @StrToHex := GetProcAddress(dllHandle, 'UniStrToUniHexStr') ;
        if Assigned (EnBFStr) then
           Encodeddata:=EnBFStr('Key','Text') ; //Sample would be replaced

        if Assigned (StrToHex ) then
           HexString :=StrToHex(Encodeddata) ; //call the function

        FreeLibrary(dllHandle) ;
 end;

还有其他函数正在加载库并多次调用这些 DLL 函数。此外，在同一个过程/函数中，我们在 (IF Else) 条件下多次调用这些 DLL 函数。

在程序的早期部分，我尝试检查是否存在 DLL 文件。另外，我尝试直接加载函数作为另一种选择：

function EncodeBlowFishString (Const Key:UnicodeString; Const DecodedString:UnicodeString; ): UnicodeString; stdcall;
external 'Utilities.dll' name 'EncodeBlowFishString';

function UniStrToUniHexStr(Const aString:UnicodeString): UnicodeString; stdcall;
external 'Utilities.dll';

Answer 1

您违反了 DLL 的内存分配规则。返回值由被调用者分配，但由调用者释放。两种解决方案：

1. 使用ShareMem，如新库项目顶部的注释中所述。
2. 使用标准互操作性技术确保分配和解除分配始终发生在同一个模块中。

顺便说一句，每次要使用 DLL 时都加载和卸载它是非常浪费的。仅加载一次 DLL。

此外，我想指出，加密是在二进制数据上运行的，在我看来，您正在通过使用文本来存储一个痛苦的世界。