#ifndef _ICiFbEncActivator_H_
#define _ICiFbEncActivator_H_

#if (defined(WIN32) || defined(_WIN32) || defined(__WIN32__)) && !defined(__MINGW32__)
	#define CALL_CONV   __stdcall
	#define CI_LIB_EXP __declspec(dllexport)
	#define NO_VTBL __declspec(novtable)
#else
	#define CALL_CONV
	#define CI_LIB_EXP
	#define NO_VTBL
#endif

#define CI_LIB_API extern "C" CI_LIB_EXP

enum CIErrors
{
	Err_OK = 0,
	Err_IncorrectCall = -1,
	Err_IncorrectSize = -2,
	Err_CantAllocMemory = -3,
	Err_AlreadyInSameState = -4,
	Err_FirebirdState = -5,
	Err_IncorrectParam = -6,
	Err_NullPointer = -7
};

namespace CI {
#pragma pack(push,1)
	struct DBEncInf
	{
		size_t PageSize;
		size_t PagesCount;
		size_t ProcessedPage;
		bool isEncrypted;
		bool inProcess;
	};
#pragma pack(pop)
	class CI_LIB_EXP NO_VTBL ICiFbEncActivator
	{
	public:
		virtual int32_t CALL_CONV SetKey (const void *pKey, size_t nKeyLen) = 0;
		virtual int32_t CALL_CONV SetDBAccess(const char* pDBAlias, const char* pDBLogin, const char* pDBPass) = 0;
		virtual int32_t CALL_CONV Activate(void) = 0;
		virtual int32_t CALL_CONV Encrypt(void) = 0;
		virtual int32_t CALL_CONV Decrypt(void) = 0;
		virtual int32_t CALL_CONV GetState(DBEncInf& inf) = 0;
		virtual int32_t CALL_CONV GetStateSVC(char* pBuf, size_t& nBuf) = 0;
		virtual int32_t CALL_CONV GetFBStat(char* pBuf, size_t& nBuf) = 0;
		virtual void CALL_CONV Destroy(void) = 0;
	};
}

#endif

unit CI.ICiFbEncActivator;
interface
type
DBEncInf = record
	PageSize : NativeUInt;
	PagesCount : NativeUInt;
	ProcessedPage : NativeUInt;
	isEncrypted : Boolean;
	inProcess : Boolean;
end;
ICiFbEncActivator = class
  function SetKey(const pKey : Pointer; nKeyLen : NativeUInt) : Integer; virtual; stdcall; abstract;
  function SetDBAccess(const pDBAlias : PAnsiChar; const pDBLogin : PAnsiChar; const pDBPass : 
  function Activate : Integer; virtual; stdcall; abstract;
  function Encrypt : Integer; virtual; stdcall; abstract;
  function Decrypt : Integer; virtual; stdcall; abstract;
  function GetState(var inf : DBEncInf) : Integer; virtual; stdcall; abstract;
  function GetStateSVC(pBuf : PAnsiChar; var nBuf : NativeUInt) : Integer; virtual; stdcall; abstract;
  function GetFBStat(pBuf : PAnsiChar; var nBuf : NativeUInt) : Integer; virtual; stdcall; abstract;
end;

TActivatorFunction = function( out ppEncActivator : ICiFbEncActivator) : Integer; stdcall;

const
        Err_OK = 0;
	Err_IncorrectCall = -1;
	Err_IncorrectSize = -2;
	Err_CantAllocMemory = -3;
	Err_AlreadyInSameState = -4;
	Err_FirebirdState = -5;
	Err_IncorrectParam = -6;
	Err_NullPointer = -7;
implementation
end.

// Загружаем модуль
std::unique_ptr<HINSTANCE__, decltype(&::FreeLibrary)> mHandle(
	::LoadLibraryEx(L"C:\\TESTAPP\\CiFbEnc_x86.dll",0,LOAD_WITH_ALTERED_SEARCH_PATH),
	&::FreeLibrary);

if (!mHandle)
{
	MessageBox(
		NULL,
		L"Модуль CiFbEnc_x86.dll не найден или рядом с ним нет fbclient.dll",
		L"Загрузка модуля",
		MB_OK|MB_ICONERROR);

	return;
}
// Получаем активатор
typedef CALL_CONV int(__stdcall *CREATEFUNCPTR)(CI::ICiFbEncActivator**);
CREATEFUNCPTR GetActivator = 
(CREATEFUNCPTR)::GetProcAddress(mHandle.get(), "createCiFBEncActivator");

if (!GetActivator)
{
	MessageBox(
		NULL,
		L"Не удалось получить из модуля CiFbEnc_x86.dll процедуру" 
              "createCiFBEncActivator"
		 " - попробуйте посмотреть, что пишет tdump.",
		L"Загрузка модуля",
		MB_OK|MB_ICONERROR);

	return;
}

CI::ICiFbEncActivator* pActivator = NULL;
GetActivator(&pActivator);
if (!pActivator) { ShowMessage("ERROR GetActivator!"); return; }

// . . .
// пример обращения к объекту модуля активации
// . . .

pActivator->SetDBAccess("localhost:TESTDB", "SYSDBA", "masterkey");

char stat_buf[1024] = { 0 };
size_t bufsize = sizeof(stat_buf);

int res = pActivator->GetStateSVC(stat_buf, bufsize);
String sStatMsg = (String)stat_buf;
if (Err_OK == res)
{
	MessageBox(NULL, sStatMsg.c_str(), L"Статус БД", MB_OK|MB_ICONINFORMATION);
}
else
{
	String sErrMsg = L"ERROR GetStateSVC: " + sStatMsg;
	MessageBox(
		NULL,
		sErrMsg.c_str(),
		L"Статус БД",
		MB_OK|MB_ICONERROR);

}
. . .

// Уничтожаем экземпляр активатора
pActivator->Destroy();
pActivator = NULL;

var
pActivator : ICiFbEncActivator;
res : Integer;
CreateActivator: TActivatorFunction;
mHandle : HINST;
. . .
begin
// Загружаем модуль
mHandle := LoadLibraryEx(
PChar('C:\TESTAPP\CiFbEnc_x86.dll'), 0, LOAD_WITH_ALTERED_SEARCH_PATH);

if mHandle = 0 then
begin
     MessageBox(
        Application.Handle,
        'Модуль CiFbEnc_x86.dll не найден или рядом с ним нет fbclient.dll',
        'Загрузка модуля',
        MB_OK OR MB_ICONERROR);
      Exit;
end;

// Получаем активатор
CreateActivator := GetProcAddress(mHandle, 'createCiFBEncActivator');
if not Assigned(CreateActivator) then
begin
     MessageBox(
        Application.Handle,
        'Не удалось получить из модуля CiFbEnc_x86.dll процедуру createCiFBEncActivator'
        +
        ' - попробуйте посмотреть, что пишет tdump.',
        'Загрузка модуля',
        MB_OK OR MB_ICONERROR);

      Exit;
end;

pActivator := nil;
res := CreateActivator(pActivator);
if not Assigned(pActivator) then begin ShowMessage('ERROR CreateActivator!'); Exit; end;

// . . .
// пример обращения к объекту модуля активации
// . . .
var
. . .
stat_buf : array[0..1023] of AnsiChar;
bufsize : NativeUInt;
. . .
res := pActivator.SetDBAccess('localhost:TESTDB', 'SYSDBA', 'masterkey');

bufsize := SizeOf(stat_buf);
ZeroMemory(@stat_buf, bufsize);
res := pActivator.GetStateSVC(stat_buf, bufsize);

if Err_OK = res then
begin
       MessageBox(Application.Handle, PChar(String(stat_buf)),
       'Статус БД', MB_OK OR MB_ICONINFORMATION);
end
else
begin
       MessageBox(Application.Handle, PChar(String(stat_buf)),
       'Ошибка', MB_OK OR MB_ICONERROR);
end;
// . . .
 
// Уничтожаем экземпляр активатора
pActivator.Destroy;
pActivator := nil;

FreeLibrary(mHandle);
end;

// получение доступа к интерфейсу модуля активации
long ll_handle, ll_CreateActivator
string ls_path
boolean lb_freelib

ls_path = 'C:\TESTAPP\CiFbEnc_x86.dll'
// Загружаем модуль
ll_handle = LoadLibrary( ls_path)

if ll_handle=0 then
	MessageBox( "Загрузка модуля", &
		"Модуль CiFbEnc_x86.dll не найден или рядом с ним нет fbclient.dll", &
		StopSign!)
	RETURN
end if

// Получаем активатор
ll_CreateActivator = GetProcAddress(ll_handle, 'createCiFBEncActivator')
if IsNull( ll_CreateActivator) then
     MessageBox( "Получение активатора", &
       	"Не удалось получить из модуля CiFbEnc_x86.dll процедуру createCiFBEncActivator" + &
		"~n- попробуйте посмотреть, что пишет tdump.", &
		StopSign!)
	GOTO str_return
end if

/*
вот здесь сложность перевода на РВ "обращения к объекту модуля активации"
*/

str_return:
	// Освобождаем модуль
	lb_freelib = FreeLibrary( ll_handle)
	if NOT lb_freelib then
		MessageBox( "Освобождение модуля", &
			"Модуль CiFbEnc_x86.dll не был освобожден", &
			StopSign!)
	end if

#ifndef _ICiFbEncActivator_H_
#define _ICiFbEncActivator_H_

#if (defined(WIN32) || defined(_WIN32) || defined(__WIN32__)) && !defined(__MINGW32__)
	#define CALL_CONV   __stdcall
	#define CI_LIB_EXP __declspec(dllexport)
	#define NO_VTBL __declspec(novtable)
#else
	#define CALL_CONV
	#define CI_LIB_EXP
	#define NO_VTBL
#endif

#define CI_LIB_API extern "C" CI_LIB_EXP

enum CIErrors
{
	Err_OK = 0,
	Err_IncorrectCall = -1,
	Err_IncorrectSize = -2,
	Err_CantAllocMemory = -3,
	Err_AlreadyInSameState = -4,
	Err_FirebirdState = -5,
	Err_IncorrectParam = -6,
	Err_NullPointer = -7
};

namespace CI {
#pragma pack(push,1)
	struct DBEncInf
	{
		size_t PageSize;
		size_t PagesCount;
		size_t ProcessedPage;
		bool isEncrypted;
		bool inProcess;
	};
#pragma pack(pop)
	class CI_LIB_EXP NO_VTBL ICiFbEncActivator
	{
	public:
		... /* как вызвать эту функцию и принять структуру с результатом выполнения*/
		virtual int32_t CALL_CONV GetState(DBEncInf& inf) = 0;
                ...
	};
}

#endif

//test.cpp
...
#define EXPORT extern "C" __declspec(dllexport)
#define PBCALL __stdcall

EXPORT void PBCALL test()
{
...
const uint8_t key[24] = {
    	0x06,0xDE,0x81,0xA1,0x30,0x55,0x1A,0xC9,
    	0x9C,0xA3,0x42,0xA9,0xB6,0x0F,0x54,0xF0,
    	0xB6,0xF9,0x70,0x18,0x85,0x04,0x83,0xBF
     };

int res_SetKey = pActivator->SetKey(&Key, sizeof(Key));
...

//test.h
...
class CI_LIB_EXP NO_VTBL ICiFbEncActivator
	{
	public:
                ...
		virtual int32_t CALL_CONV SetKey (const void *pKey, size_t nKeyLen) = 0;
                ...
	};
...
}