VPF::Подключение dll в проект Delphi - Форум программистов

SVlexs510

Дата 22.6.2011, 06:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Подключаю “CAMDT_DLL.dll” к проекту в Delphi.
Драйвер писался на языке C.
Описание глобальных функций и процедур находятся в файле “CAMDT_DLL_global.h”.

Проблема возникла при подключении функции со структурами.
В “CAMDT_DLL_global.h”:

Код


extern "C" __declspec(dllexport) int camdt_dll_confASens(T_ASENS_CONF&, CAMDT_DLL_CONF_Enum); //загрузить настройки воздуха +++

Структура T_ASENS_CONF находиться в “typedef_asens.h”
____

В проекте Delphi я сделал следующее:
1. Эта структура переделана в “Unit2.pas”
2. Описание функции:

Код


function camdt_dll_confASens(PT_ASENS_CONF: word; ACAMDT_DLL_CONF_Enum: word):integer; cdecl; external 'CAMDT_DLL.dll';

3. Инициализация структуры:

Код


var Test2: T_ASENS_CONF;
  with Test2 do
  begin
  low:= 1; 
  high:= 3; 
  low_on:= 2;
  end;

4. Вызов функции

Код


res:=camdt_dll_confASens(Test2^,WORD(CAMDT_DLL_CONF_WRITE))

___

Подскажите, пожалуйста, в чем может быть ошибка?

P.s.: Не могу закрепить архив проекта.
Лежит тут: DelphiDLL.rar

cat512

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

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

Загрузка ...

Опытный

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

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

Если первый параметр - структура, передающаяся по ссылке, то почему в декларации дельфийской вункции тип данных word? Как минимум там должен быть либо Pointer либо запись передающаяся по ссылке. Второй парам. перечеслимый тип (либо byte)

SVlexs510

Дата 23.6.2011, 14:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Согласен.

В С:

Код


typedef enum{
    CAMDT_DLL_CONF_WRITE   = (uint32_t)0,   //Запись
    CAMDT_DLL_CONF_READ    = (uint32_t)1,   //Чтение если есть изменения
    CAMDT_DLL_CONF_SYNC    = (uint32_t)2   //Безусловное чтение из DLL, в случае несинхронных данных возвратит 0
}CAMDT_DLL_CONF_Enum;

В Unit2:

Код


type

CAMDT_DLL_CONF_Enum = (
    CAMDT_DLL_CONF_WRITE   = 0,   
    CAMDT_DLL_CONF_READ    = 1,   
    CAMDT_DLL_CONF_SYNC    = 2  
);

В Unit1:

Код


CAMDT_DLL_CONF_WRITE, CAMDT_DLL_CONF_READ, CAMDT_DLL_CONF_SYNC: byte;
...
function camdt_dll_confASens(PT_ASENS_CONF: pointer; ACAMDT_DLL_CONF_Enum: byte):integer; cdecl; external 'CAMDT_DLL.dll';
...
res:=camdt_dll_confASens(^Test2,BYTE(CAMDT_DLL_CONF_WRITE));

Но проблема не решилась (

Это сообщение отредактировал(а) SVlexs510 - 23.6.2011, 14:29

Присоединённый файл ( Кол-во скачиваний: 4 )

Unit1.pas 5,56 Kb

Dik0n

Дата 23.6.2011, 14:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата

res:=camdt_dll_confASens(^Test2,BYTE(CAMDT_DLL_CONF_WRITE));

как это вообще компилится ? надо

Код


res:=camdt_dll_confASens(@Test2, BYTE(CAMDT_DLL_CONF_WRITE));

Попробуй так

Код


function camdt_dll_confASens(var ASENS_CONF: T_ASENS_CONF; ACAMDT_DLL_CONF_Enum: CAMDT_DLL_CONF_Enum): integer; cdecl; external 'CAMDT_DLL.dll';

Вызывать

Код


var
  conf: T_ASENS_CONF;
  enum: CAMDT_DLL_CONF_Enum;

  camdt_dll_confASens(conf, enum);

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

▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой

SVlexs510

Дата 23.6.2011, 16:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо за подсказку Dik0n, компилируется и 1, и 2 способом.

Но как мне задать conf и enum?

Это сообщение отредактировал(а) SVlexs510 - 23.6.2011, 16:37

Dik0n

Дата 23.6.2011, 17:12 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(SVlexs510 @ 23.6.2011, 16:17

)

Но как мне задать conf и enum?

не совсем понял о чем речь...

Код


//  conf это 
T_ASENS_CONF = record
...
end;
// enum это
CAMDT_DLL_CONF_Enum = (
    CAMDT_DLL_CONF_WRITE,   
    CAMDT_DLL_CONF_READ,   
    CAMDT_DLL_CONF_SYNC);

Это сообщение отредактировал(а) Dik0n - 23.6.2011, 17:25

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

▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой

SVlexs510

Дата 24.6.2011, 13:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Dik0n, спасибо за помощь! Задачу дорешал)

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