Здравствуйте.
Я написал пример на Harbour, который передаёт массив (PHB_ITEM) во внешнюю DLL.
Но для того, чтобы пройтись по его элементам, в моей DLL необходимо импортировать функции наподобии hb_itemNew, hb_arrayLen, hb_arrayGet, hb_itemRelease.
Если я подключаю harbour-32.lib, то моя DLL отказывается загружаться без harbour-32.dll который весит больше моего примера на Harbour.

Как можно заставить мою DLL подгружать методы из скомпилированного EXE примера вместо harbour-32.dll?
Или единственный способ это вручную импортировать все указатели на используемые функции ?

Исходники:

build.bat - Скрытый текст

цитата:

call "C:\Program Files (x86)\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" x86
set HB_ROOT=C:\MiniGUI\HarbourMSVC

%HB_ROOT%\bin\win\msvc\hbmk2 demo.prg

set INCLUDE=%INCLUDE%;%HB_ROOT%\include
set LIB=%LIB%;%HB_ROOT%\lib\win\msvc
cl.exe /MT demo_lib.cpp /link /DLL /OUT:demo_lib.dll
del *.obj
del *.exp
pause

Demo_lib.prg - Скрытый текст

цитата:

#include <windows.h>
#include <stdio.h>
#include <hbapi.h>
#include <hbapiitm.h>

#pragma comment(lib,"harbour-32.lib")

BOOL APIENTRY DllMain(HMODULE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
{
return TRUE;
}

int ITERATE_ARRAY(PHB_ITEM pArray) {
int i, local = 0;
int result = 0;
PHB_ITEM pItem = hb_itemNew( NULL );
for (i=0;i<=hb_arrayLen(pArray);i++) {
if (!hb_arrayGet(pArray, i, pItem))
continue;

if (HB_IS_ARRAY(pItem))
result += ITERATE_ARRAY(pItem);

if (HB_IS_INTEGER(pItem))
result += hb_itemGetNI(pItem);
}
hb_itemRelease(pItem);
return result;
}

extern "C" __declspec(dllexport) int ARRAY_SUM(PHB_ITEM pArray) {
int result = ITERATE_ARRAY(pArray);
return result;
}

Demo.prg - Скрытый текст

цитата:

PROCEDURE Main
aData := { NIL, .T., 244.44, 2,4,4,5,5, {10,10, .T.}, {20, 255.55}, {NIL},{{{{{44}}}}} }
? "aData := { NIL, .T., 244.44, 2,4,4,5,5, {10,10, .T.}, {20, 255.55}, {NIL},{{{{{44}}}}} }"
? "SUM: ", ARRAY_SUM(aData)
? PRINT_FUNC_POINTER()
INKEY(0)
RETURN

#pragma BEGINDUMP
#include <hbapi.h>
#include <hbapierr.h>
#include <windows.h>

typedef int(*FUNC_ARRAY_SUM)(PHB_ITEM item);
typedef HB_SIZE(*FUNC_ARRAY_LEN)(PHB_ITEM item);

HB_FUNC(PRINT_FUNC_POINTER) {
char buffer[64];
FUNC_ARRAY_LEN test_pointer = &hb_arrayLen;
sprintf_s(buffer, 64, "Func address: %p", test_pointer);
hb_retc(buffer);
}

HB_FUNC(ARRAY_SUM) {
PHB_ITEM pArray;
HINSTANCE hModule;
FUNC_ARRAY_SUM func;
char buffer[255];
int result = 0;

pArray = hb_param( 1, HB_IT_ARRAY );
if(!pArray) {
FreeLibrary(hModule);
hb_errRT_BASE( EG_ARG, 1111, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
return;
}

hModule = LoadLibrary("demo_lib.dll");
if (!hModule) {
sprintf_s(buffer, 255, "[ERROR %d] Can't load DLL: demo_lib\n", GetLastError());
hb_retc(buffer);
return;
}

func = (FUNC_ARRAY_SUM) GetProcAddress(hModule, "ARRAY_SUM");
if (!func) {
FreeLibrary(hModule);
sprintf_s(buffer, 255, "[ERROR %d] Can't load function: ARRAY_SUM\n", GetLastError());
hb_retc(buffer);
return;
}

result = func(pArray);
FreeLibrary(hModule);
hb_retni(result);
}
#pragma ENDDUMP