VPF::проблема с dll - Форум программистов

Domain

Дата 22.4.2010, 12:07 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем привет. Дело вот в чем. Читал книгу Архангельского, в которой описывалось как работать с dll. Сделал все как было написано.
Код dll.

UMyDLL.h :

Код


#ifndef _UMYDLL_H
#define _UMYDLL_H

#ifdef __DLL__
#define DLL_EI __declspec(dllexport)
#else
#define DLL_EI __declspec(dllimport)
#endif

extern "C" char* DLL_EI Code_Dec(char*s,char Key); 
#endif

UMyDLL.cpp :

Код


#include <vcl.h>
#include <windows.h>
#pragma hdrstop
#include "UMyDLL.h"
//---------------------------------------------------------------------------
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}
//---------------------------------------------------------------------------
char* Code_Dec(char*s,char Key)
{
for (int i=0;;i++)
{
 if (s[i]=='\0') break;
 s[i]=s[i] ^ Key;
}
return s;
}

В классе формы

Код


private:    
HINSTANCE dllInstance;
typedef char (__import*FType(char*,char));
FType * C_D;

Подключение

Код


dllInstance = LoadLibrary("MyDLL.dll");
if (dllInstance) {
C_D=(FType*)GetProcAddress(dllInstance,"_Code_Dec");
ShowMessage("dll is loaded") ;
}
else ShowMessage("error dll");

Использование

Код


if (C_D)
Edit1->Text=C_D(Edit1->Text.c_str(),'A');
else {ShowMessage("errrrrorr");}

Вообщем так... При сборке проблем нет, но когда нажимаю на кнопку, чтобы произвести соответствующие действия, мне выдает ошибку "is not a vailid integer value" . При подключении и отключении dll все окей, а как только вызываю эту функцию, вот что получается. И еще в Edit я пишу только текст, никаих цифр. Помоги разобраться в чем проблема

Peter

Дата 22.4.2010, 12:28 (ссылка)

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

Загрузка ...

Опытный

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

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

Ошибка в названии функции?

Код

GetProcAddress(dllInstance,"_Code_Dec");

а в длл:

Код

char* Code_Dec(char*s,char Key)

Первого знака подчёркивания ведь нет.

Исключение "is not a valid integer value" выбрасывается, видимо, в другом месте, здесь не указанном. Где-то, возможно, используется StrToInt().

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

всё, что делаете, делайте от души, как для Господа (Послание апостола Павла колоссянам, 3:23).

Domain

Дата 22.4.2010, 15:40 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Peter @ 22.4.2010, 12:28)

Исключение "is not a valid integer value" выбрасывается, видимо, в другом месте, здесь не указанном. Где-то, возможно, используется StrToInt().

да нет вроде. кроме того кода что я написал больше ничего нет.

Peter

Дата 22.4.2010, 16:40 (ссылка)

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

Загрузка ...

Опытный

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

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

А что с именем функции? Если заменить

Код

GetProcAddress(dllInstance,"_Code_Dec");

на

Код

GetProcAddress(dllInstance, "Code_Dec");

Как же другого кода нет? В проекте ведь есть форма, а в форме - поле редактирования? В свойствах поля редактирования не указано ли, что хотят целое число?

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

всё, что делаете, делайте от души, как для Господа (Послание апостола Павла колоссянам, 3:23).

Domain

Дата 22.4.2010, 20:05 (ссылка)

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

Загрузка ...

Бывалый

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

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

заменил на
GetProcAddress(dllInstance, "Code_Dec"); но не помогло. за то нашел почему is not a vailid integer value вылетает. но dll все равно не пашет

Это сообщение отредактировал(а) Domain - 22.4.2010, 20:24

Peter

Дата 23.4.2010, 12:09 (ссылка)

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

Загрузка ...

Опытный

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

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

На старте программы FType * C_D надо инициализировать в NULL. А то там может находиться мусор, и

Код

if (C_D)

будет всегда true.

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

всё, что делаете, делайте от души, как для Господа (Послание апостола Павла колоссянам, 3:23).

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