Пользователь не может найти DLL - PullRequest
Новая
       52

Пользователь не может найти DLL

0 голосов
/ 02 февраля 2019

У меня есть программа, которая вызывает библиотеку DLL, хранящуюся в той же папке, в которой она хранится. Когда я запускаю вызывающий код, либо из IDE, либо непосредственно из программы, он находит библиотеку DLL и не выдает ошибок.Но когда клиент запускает программу, он выдает ошибку «Невозможно загрузить DllSendOrder2018.dll».Такое поведение только началось.На старых версиях кода он загружается без ошибок (кроме другой проблемы, которую мне нужно исправить). 

procedure TFrmMain.BtnSendOrderClick(Sender: TObject);
var
  SendOrders : procedure; stdcall;
begin
  DLLHandleSend := LoadLibrary('DllSendOrder2018.dll');
  if DLLHandleSend <> 0 then
  begin
    @SendOrders := GetProcAddress(DLLHandleSend,'SendOrders');
    try
      SendOrders;
    except
      on E: Exception do
        ShowMessage(E.Message);
     end;
     FreeLibrary(DLLHandleSend);
  end
  else
    MessageDlg('Unable To Load DllSendOrder2018.dll',mtError,[mbOk],0);
  FldLookup.SetFocus;
end;

Есть ли лучшее место для установки DLL?

...