[alex-63]

Проблема загрузки DLL из objectArx.
Где искать ошибку?
Есть код который работает в проекте MFC Application.
Но почему то библиотека DLL, собранная в Visual Prologe
отказывается загружаться в objecArx.
*hLibrary = LoadLibrary( lpszLibrary ) ) выдает NULL.
Есть ли ограничения в ObjectArx и
как выяснить причину ошибки в LoadLibrary ?

Код:

[Выделить все]

 //-----------------------------------------------------------------------------
//----- acrxEntryPoint.cpp
//-----------------------------------------------------------------------------
#include "StdAfx.h"
#include "resource.h"

//-----------------------------------------------------------------------------
#define szRDS _RXST("AK")



//GetProcAddresses
//Argument1: hLibrary - Обработчик загружаемой библиотеки
//Argument2: lpszLibrary - Загружаемая библиотека
//Argument3: nCount - Количество загружаемых функций
//[Arguments Format]
//Argument4: Function Address - Адрес функции
//Argument5: Function Name -  Желаемое для нас имя функции
//[Repeat Format]
//
//Returns: FALSE if failure
//Returns: TRUE if successful
BOOL GetProcAddresses(HINSTANCE *hLibrary,LPCWSTR lpszLibrary,INT nCount,...)
{
   va_list va;
   va_start( va, nCount );

   if ( ( *hLibrary = LoadLibrary( lpszLibrary ) ) != NULL )
   {
      FARPROC * lpfProcFunction = NULL;
      LPSTR lpszFuncName = NULL;
      INT nIdxCount = 0;
      while ( nIdxCount < nCount )
      {
         lpfProcFunction = va_arg( va, FARPROC* );
         lpszFuncName = va_arg( va, LPSTR );
         if ( ( *lpfProcFunction = GetProcAddress( *hLibrary,
                                             lpszFuncName ) ) == NULL )
         {
            lpfProcFunction = NULL;
            return FALSE;
         }
         nIdxCount++;
      }
   }
   else
   {
      va_end( va );
      return FALSE;
   }
   va_end( va );
   return TRUE;
}





//-----------------------------------------------------------------------------
//----- ObjectARX EntryPoint
class CtestLoadDLLApp : public AcRxArxApp {

public:
    CtestLoadDLLApp () : AcRxArxApp () {}

    virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt) {
        // TODO: Load dependencies here

        // You *must* call On_kInitAppMsg here
        AcRx::AppRetCode retCode =AcRxArxApp::On_kInitAppMsg (pkt) ;
        
        // TODO: Add your initialization code here

        return (retCode) ;
    }

    virtual AcRx::AppRetCode On_kUnloadAppMsg (void *pkt) {
        // TODO: Add your code here

        // You *must* call On_kUnloadAppMsg here
        AcRx::AppRetCode retCode =AcRxArxApp::On_kUnloadAppMsg (pkt) ;

        // TODO: Unload dependencies here

        return (retCode) ;
    }

    virtual void RegisterServerComponents () {
    }


    // - AKtestLoadDLL._vip command (do not rename)
    static void AKtestLoadDLL_vip(void)
    {
        // Add your code for command AKtestLoadDLL._vip here
// функции из User32.dll
typedef int ( WINAPI *MESSAGEBOX ) ( HWND , LPCSTR, LPCSTR, DWORD );
typedef int ( WINAPI *MESSAGEBOXEX ) (HWND , LPCSTR, LPCSTR, DWORD , WORD);
// функция из vipdb.dll
typedef int ( WINAPI *exportedPredicate ) (void);

MESSAGEBOX lpfMsgBox = NULL;
MESSAGEBOXEX lpfMsgBoxEx = NULL;

exportedPredicate lpfexportedPredicate  = NULL;

HINSTANCE hLib;
   if(GetProcAddresses( &hLib, _T("User32.dll"), 2,
                        &lpfMsgBox, "MessageBoxA",
                        &lpfMsgBoxEx, "MessageBoxExA" ) )
   {
       lpfMsgBox( 0, "Test1", "Test1", MB_OK );
       lpfMsgBoxEx( 0, "Test2", "Test2", MB_OK, MAKELANGID( LANG_ENGLISH,
                                                     SUBLANG_ENGLISH_US ) );
   }
   if ( hLib != NULL )
      FreeLibrary( hLib );

   hLib=NULL;
// NOT OK  но работает в MFC Aplication
if(GetProcAddresses( &hLib, _T("vipdb.dll"), 1, // :confused:
                        &lpfexportedPredicate, "exportedPredicate") )
   {
       lpfexportedPredicate();
       ::MessageBox( 0, _T("Test3"), _T("lpfexportedPredicate"), MB_OK );
   }
   if ( hLib != NULL )
      FreeLibrary( hLib );
    }
} ;

//-----------------------------------------------------------------------------
IMPLEMENT_ARX_ENTRYPOINT(CtestLoadDLLApp)

ACED_ARXCOMMAND_ENTRY_AUTO(CtestLoadDLLApp, AKtestLoadDLL, _vip, vip, ACRX_CMD_TRANSPARENT, NULL)

[Александр Ривилис]

1. vipdb.dll где находится? Поробуй задать с полным путём доступа.
2. От каких dll зависит vipdb.dll? Находятся ли они в путях доступа?
3. Одна ли и та же разрядность у arx-файла и vipdb.dll (т.е. x32 или x64)?

[alex-63]

Данный проект работает в VC++.
Но не загружается из objectArx ?
Не могу понять в чем причина.
Все перепробовал зависимые файлы куда только не переписывал.
Не помогает.
Был бы очень благодарен если бы кто собрал выше указанный код
для AutoCAD у себя. Может причина в системе?

[Александр Ривилис]

Ответь сначала на все поставленные вопросы.
При попытке загрузить любую из vip7kernel.dll vip7run.dll vipdb.dll GetLastError возвращает 487 (ERROR_INVALID_ADDRESS).
В чем причина - не знаю и ковырять нет времени. Предполагаю, что без длительной возни заставить работать из arx-файла не получится.

[alex-63]

Почему то используя вместо LoadLibrary
LoadLibraryEx( lpszLibrary,NULL,DONT_RESOLVE_DLL_REFERENCES ) ) все получилось.
Причем при неявном линковании AutoCAD еще при загрузке
выдавал сообщение AcRxDynamicLinker failed to load acad.exeUnable to load
AKTest.arx file.

[Александр Ривилис]

Сообщение от alex-63 Почему то используя вместо LoadLibrary LoadLibraryEx( lpszLibrary,NULL,DONT_RESOLVE_DLL_REFERENCES ) ) все получилось.

Флаг DONT_RESOLVE_DLL_REFERENCES отвечает в первую очередь за вызов (точнее "не вызов") DLLMain.
Возможно в DLLMain этих dll-ек делается что-то такое, что не всегда допустимо. Тут можно только гадать...

[alex-63]

Похоже что единственное ограничение чтобы DLL подгружаемые в arx были скомпилированы без ключа /BASE.
Спасибо Александр Ривилис за помощь. (это от радости пальцы "кривые" клавиатура маленькая ...)
Проблема решена.

[Александр Ривилис]

Удалено.