Работа с dll написанной на Delphi

[mihalech19]

Использую библиотеку программы Invisible Secrets. А именно jpgcarrier.dll . Она шифрует\дешифрует файлы совмещая их при этом с jpg изображением. Вот документация по ее использованию: tech.zip
Пишу так:

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
typedef bool (__stdcall *DllTestFunc)(PChar password);
typedef int (__stdcall *DllTestFunc2)(PChar inFile,PChar outFile, PChar Key);
typedef int (__stdcall *DllTestFunc3)(HANDLE app);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HANDLE DllTestHandle = LoadLibrary(L"jpgcarrier.dll");
DllTestFunc3 SetWndHandle = (DllTestFunc3)GetProcAddress((HINSTANCE__*)DllTestHandle,"SetWndHandle");
DllTestFunc ActivateLibrary = (DllTestFunc)GetProcAddress((HINSTANCE__*)DllTestHandle,"ActivateLibrary");
DllTestFunc2 DecryptFile = (DllTestFunc2)GetProcAddress((HINSTANCE__*)DllTestHandle,"DecryptFile");
if(SetWndHandle)
SetWndHandle(Application->Handle);
else
ShowMessage(L"Function is not founded 1");
if(ActivateLibrary)
ActivateLibrary(L"1036FB0C1E1331CDCD43C70D43F00D1B0D44EA333AA266BB45");
else
ShowMessage(L"Function is not founded 2");
if(DecryptFile)
DecryptFile(L"blabla.jpg", L"blabla.rar", L"password");
   else
ShowMessage("Function is not founded 3");
FreeLibrary((HINSTANCE__*)DllTestHandle);
 }

DecryptFile не находит, как-будто функция ActivateLibrary() не активировала библиотеку. Может дело в том, что сама библиотека написана на Delphi и я ей что-то не то передаю. Тип данных например

[Stilet]

HANDLE DllTestHandle = LoadLibrary(L"jpgcarrier.dll");

А где проверка на ошибку загрузки либы?
Впрочем ладно.
Поставь проверку хотя бы на то что вернет ActivateLibrary()

[mihalech19]

ActiveLibrary False возвращает , поэтому я и грешу на типы данных

[Stilet]

Хм... На какой версии делфи написана ДЛЛ?
Если посмотреть на спецификацию

function ActivateLibrary(password:pchar):boolean;

В доХЕшных делфи этот тип означал ANSI, т.е. однобайтовый символ.

ActivateLibrary(L"1036FB0C1E1331CDC D43C70D43F00D1B0D44EA333AA266BB45") ;

Я правильно понимаю: макрос L"" это преобразование в юникод?

[mihalech19]

Я пробовал уже PAnsiChar - не работает

[Stilet]

Для начала L убери )
Хотя бы чтоб проверить.

[mihalech19]

Я убирал) Оно бы не скомпилировалось, если бы не убрал) В документации написано , строка должна быть null-terminated.

[Stilet]

Ну Борланд по идее должен сам позаботиться о том чтоб поставить ноль в конце строки.

[mihalech19]

Ума не приложу, что я не так делаю. Ведь сама программа как-то использует эту библиотеку

[FataLL]

А что значит "DecryptFile не находит"? Не находит что именно?