как использовать DLL в программе?

Форум — Ответы ( К темам )

? Annihilator: как использовать DLL в программе? (10-05-2003 13:37:52) http://metalsoft.nm.ru
Люди, помогите, кто знает: как через программу можно запустить библиотеку DLL, мне нужно некое подобие RunDLL32, только запуск из свего приложения. (все параметры описанные в этом DLL я знаю) У меня есть исходники одной программки, которые компилируются в DLL, как плагин к другой проге, я просто хочу использовать эту DLL в своём приложении. Кто знает — помогите, пожалйста.
Павел (10-05-2003 18:23:49)

Для использования DLL в своей программе эту DLL надо сначала загрузить в память функцией:

HINSTANCE hL = LoadLibrary("c:\\MyMp3.dll");
if(!hL) {
ShowMessage("Не найдена библиотека MyMp3.dll !");
Application->Terminate();
}

Для использования какой-либо функции из этой dll
используется функция GetProcAddress():

// например, у нас в dll лежат функции mp3play() и mp3stop()
// которые мы хотим у себя использовать, причем
// функция mp3stop() без параметров, а функция mp3play()
// имеет 1 параметр типа указатель на структуру PlayRecord*

typedef struct {
AnsiString FileName;
DWORD SeekAtStart;
HWND Owner;
DWORD Result;
} PlayRecord;

PlayRecord DATA;

// создаем указатели на эти функции
void (_cdecl *mp3play)(PlayRecord* );
void (_cdecl *mp3stop)(void);

// присваиваем им значения
mp3play= (void(_cdecl*)(PlayRecord*))GetProcAddress(hL,"mp3play");
mp3stop= (void(_cdecl*)(void))GetProcAddress(hL,"mp3stop");

// вызываем эти функции из dll далее у себя в программе:

mp3play(&DATA);
mp3stop();

Потом не забудьте ее выгрузить из памяти:(например при закрытии формы)
if(hL) FreeLibrary(hL);

------------------------------------------
Или другой пример: (некая dll для работы со сканером: Chipher.Dll)

Описываем в .h файле:
private: // User declarations
HINSTANCE hInst;

Далее в программе:
// загрузка библиотеки
hInst = LoadLibrary("Chipher.Dll");
if (!hInst) { Label1->Caption = "Невозможно загрузить DLL"; return; }

// получаем адрес нужной нам процедуры из dll и запускаем ее.
// здесь это функция: int Chipher_INIT(int, bool);

// указатель на ф-цию
int ((pascal *Chipher_INIT)(int Port, bool isWait));

// присваиваем значение этому указателю — т.е. получаем адрес нашей функции
Chipher_INIT = (int ((pascal *)(int, bool)))GetProcAddress(hInst, "Chipher_INIT");

// вызываем функцию Chipher_INIT, адрес которой мы получили из dll
// с помощью GetProcAddress
int err = Chipher_INIT(2, true);
if (err) {
Label1->Font->Color = clRed;
Label1->Caption = "Ошибка инициализации сканера";
return;
}

// получаем число записей, готовых к передаче
long ((pascal *Chipher_COUNT)());
Chipher_COUNT = (long ((pascal *)()))GetProcAddress(hInst, "Chipher_COUNT");
long cnt = Chipher_COUNT();
if (cnt <= 0){
Label1->Caption = "Ошибка получения количества записей";
return;
}

// ... и так далее

// выгрузить Dll библиотеку
FreeLibrary(hInst);

Annihilator (19-05-2003 16:05:10) http://metalsoft.nm.ru

БОЛЬШОЕ СПАСИБО!!!

?	Annihilator: как использовать DLL в программе? (10-05-2003 13:37:52) http://metalsoft.nm.ru
Люди, помогите, кто знает: как через программу можно запустить библиотеку DLL, мне нужно некое подобие RunDLL32, только запуск из свего приложения. (все параметры описанные в этом DLL я знаю) У меня есть исходники одной программки, которые компилируются в DLL, как плагин к другой проге, я просто хочу использовать эту DLL в своём приложении. Кто знает — помогите, пожалйста.
Павел (10-05-2003 18:23:49)
Для использования DLL в своей программе эту DLL надо сначала загрузить в память функцией: HINSTANCE hL = LoadLibrary("c:\\MyMp3.dll"); if(!hL) { ShowMessage("Не найдена библиотека MyMp3.dll !"); Application->Terminate(); } Для использования какой-либо функции из этой dll используется функция GetProcAddress(): // например, у нас в dll лежат функции mp3play() и mp3stop() // которые мы хотим у себя использовать, причем // функция mp3stop() без параметров, а функция mp3play() // имеет 1 параметр типа указатель на структуру PlayRecord* typedef struct { AnsiString FileName; DWORD SeekAtStart; HWND Owner; DWORD Result; } PlayRecord; PlayRecord DATA; // создаем указатели на эти функции void (_cdecl mp3play)(PlayRecord ); void (_cdecl mp3stop)(void); // присваиваем им значения mp3play= (void(_cdecl)(PlayRecord))GetProcAddress(hL,"mp3play"); mp3stop= (void(_cdecl)(void))GetProcAddress(hL,"mp3stop"); // вызываем эти функции из dll далее у себя в программе: mp3play(&DATA); mp3stop(); Потом не забудьте ее выгрузить из памяти:(например при закрытии формы) if(hL) FreeLibrary(hL); ------------------------------------------ Или другой пример: (некая dll для работы со сканером: Chipher.Dll) Описываем в .h файле: private: // User declarations HINSTANCE hInst; Далее в программе: // загрузка библиотеки hInst = LoadLibrary("Chipher.Dll"); if (!hInst) { Label1->Caption = "Невозможно загрузить DLL"; return; } // получаем адрес нужной нам процедуры из dll и запускаем ее. // здесь это функция: int Chipher_INIT(int, bool); // указатель на ф-цию int ((pascal Chipher_INIT)(int Port, bool isWait)); // присваиваем значение этому указателю — т.е. получаем адрес нашей функции Chipher_INIT = (int ((pascal )(int, bool)))GetProcAddress(hInst, "Chipher_INIT"); // вызываем функцию Chipher_INIT, адрес которой мы получили из dll // с помощью GetProcAddress int err = Chipher_INIT(2, true); if (err) { Label1->Font->Color = clRed; Label1->Caption = "Ошибка инициализации сканера"; return; } // получаем число записей, готовых к передаче long ((pascal Chipher_COUNT)()); Chipher_COUNT = (long ((pascal )()))GetProcAddress(hInst, "Chipher_COUNT"); long cnt = Chipher_COUNT(); if (cnt <= 0){ Label1->Caption = "Ошибка получения количества записей"; return; } // ... и так далее // выгрузить Dll библиотеку FreeLibrary(hInst);
Annihilator (19-05-2003 16:05:10) http://metalsoft.nm.ru
БОЛЬШОЕ СПАСИБО!!!