VPF::создание DLL - Форум программистов

evgovs1991

Дата 15.10.2014, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 9.10.2014

Репутация: нет
Всего: нет

Пытаюсь подключить библиотеку но не получается

Код


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
// загрузка DLL
[color=red] dllInstance = LoadLibrary("Win32\Project3.dll");[/color]
 if (dllInstance)
 // получение указателя на функцию
  C = (FType *)GetProcAddress(dllInstance, "_Code");
 else ShowMessage("Не удалось загрузить 'Project3.dll'");
if (C)
  Edit2->Text = C(Edit1->Text.c_str());
 else ShowMessage("Функция 'Code' из 'Project3.dll' недоступна");
// выгрузка DLL
 FreeLibrary(dllInstance);
 C = NULL;
}
//---------------------------------------------------------------------------

Код


//---------------------------------------------------------------------------

#ifndef Unit5H
#define Unit5H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm5 : public TForm
{
__published:    // IDE-managed Components
    TEdit *Edit1;
    TEdit *Edit2;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
// Объявление типа указателя на DLL
 HINSTANCE dllInstance;
// Объявление типа указателя на функцию
 typedef char (__import * FType(char *));
 FType * C;
 FType * B;
public:        // User declarations
    __fastcall TForm5(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm5 *Form5;
//---------------------------------------------------------------------------
#endif

Dem_max

Дата 16.10.2014, 03:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1780
Регистрация: 12.4.2007

Репутация: 4
Всего: 39

Ну хотя бы потому что в одном месте у тебя объявлен тип wchar_t, а ты пытаешься использовать тип char

--------------------

Американские программисты долго не могли понять, почему русские при зависании Windоws всё время повторяют "Твой зайка написал" ("Yоur bunnу wrоte")

borisbn

Дата 16.10.2014, 06:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: 22
Всего: 135

LoadLibrary требует unicode-строку, а ты даёшь ANSI. Сделай либо так

Код

LoadLibrary("Win32\Project3.dll"L)

Либо так

Код

LoadLibraryA("Win32\Project3.dll")

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Общие вопросы \| Следующая тема »