Подключение dll в MSVS 2010 C++

@cuteprog · Регистрация: 23.03.2013

Студворк — интернет-сервис помощи студентам

Код:

C++
1
2
3
4
__declspec(dllimport) int summe(int a);
void main(){
    summe(3);
}

При компиляции выдает следующую ошибку:
error LNK2019: unresolved external symbol "__declspec(dllimport) int __cdecl summe(int)" (__imp_?summe@@YAHH@Z) referenced in function _main.

Сам dll файл был создан в Delphi, вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
library mydll;
 
  function summe(var a: integer):integer; export;
  begin
    result:=a;
  end;
 
Exports 
summe index 1 name 'summe';
begin
end.

Для генерации mydll.lib файла был создан mydll.def со следующим содержимым:
EXPORTS
summe

Полученный в результате mydll.lib поместил в папку с проектом и прописал его в Linker -> Input -> Additional Dependencies.
Файл mydll.dll поместил в папку с exe-шником.

Что нужно сделать, что-бы оно заработало?

go · 07.04.2013, 21:31

Сообщение от palva

С подключением def файла к проекту тоже не получается.

Ничего и не должно получится.

@cuteprog · 07.04.2013, 23:45 **[ТС]**

Сообщение от ValeryS

Может тебе не заморачиватся с lib если есть dll
подключай явно

Поменял код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <windows.h>
#include <iostream>
void main(){
    int n;
    HMODULE hLib;
    hLib = LoadLibrary("mydll.dll");// открыли библиотеку
    int (*pFunction)(int,int);// прототип
    (FARPROC &)pFunction = GetProcAddress(hLib, "summe"); // указатель на функцию
    n=pFunction(2,3); // вызов функции
    std::cout<<n<<"\n";
    system("Pause");
    FreeLibrary(hLib);
}

Выдает ошибку при вызове функции:
Unhandled exception at 0x003a383a in dll_only.exe: 0xC0000005: Access violation reading location 0x00000002.

Код Delphi:

Delphi
1
2
3
4
5
6
7
8
9
10
11
library mydll;
 
  function summe(var a,b: integer):integer; stdcall; export;//добавил stdcall;
  begin
    result:=a+b;
  end;
 
Exports 
summe index 1 name 'summe';
begin
end.

Что исправить?

ValeryS · 08.04.2013, 00:03

Сообщение от cuteprog

Что исправить?

Почитай про соглашения о вызовах
хотя бы здесь
http://programming-lang.com/ht... ndex4.html
паскаль и С по разному передают параметры и чистят стек
у тебя видать чистит стек вызываемая функция а проге на С это не нравится

@palva · 08.04.2013, 00:12

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream>
#include <windows.h>
 
typedef int (__stdcall *funtype)(int *, int *);
 
void main(){
    int n;
    int par1, par2;
    HMODULE hLib;
    funtype pFunction;
    hLib = LoadLibraryA("mydll.dll");// открыли библиотеку
    pFunction = (funtype)GetProcAddress(hLib, "summe"); // указатель на функцию
    par1 = 2;
    par2 = 3;
    n=pFunction(&par1, &par2); // вызов функции
    std::cout<<n<<"\n";
    system("Pause");
    FreeLibrary(hLib);
}

Добавлено через 2 минуты
У вас же в паскале параметры передаются как var
Уберите var будет по значению.

@cuteprog · 08.04.2013, 00:37 **[ТС]**

Спасибо!!! Заработало

Сообщение от palva

У вас же в паскале параметры передаются как var
Уберите var будет по значению.

если убирать var, то похоже оно адреса суммирует а не значения

@palva · 08.04.2013, 00:39

Почему адреса? var это передача по ссылке, что соответствует в си передаче по адресу.

@cuteprog · 08.04.2013, 00:54 **[ТС]**

Сообщение от palva

Почему адреса? var это передача по ссылке, что соответствует в си передаче по адресу.

при таком варианте:

Delphi
1
function summe(a,b: integer):integer; stdcall; export;//получаетя что 2+3 = 2490012

а при

Delphi
1
function summe(var a,b: integer):integer; stdcall; export;//2+3=5

@palva · 08.04.2013, 01:08

Проверяю:

Delphi
1
2
3
4
5
6
7
8
9
10
11
library mydll;
 
  function summe(a, b: integer): integer; stdcall; export;//добавил stdcall;
  begin
    result:=a+b;
  end;
 
Exports
summe index 1 name 'summe';
begin
end.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <iostream>
#include <windows.h>
 
typedef int (__stdcall *funtype)(int, int);
 
void main(){
    HMODULE hLib = LoadLibraryA("mydll.dll");
    funtype pFunction = (funtype)GetProcAddress(hLib, "summe");
    int n=pFunction(2, 3);
    std::cout<<n<<"\n"; // 5
    system("Pause");
    FreeLibrary(hLib);
}

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	08.04.2013, 00:39
	Почему адреса? var это передача по ссылке, что соответствует в си передаче по адресу. 0