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

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

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

Код:

C++

__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

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++

#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

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++

#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

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++

#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);
}

@cuteprog 0 / 0 / 0 Регистрация: 23.03.2013 Сообщений: 15
	08.04.2013, 00:37 [ТС]	25
	Спасибо!!! Заработало Сообщение от palva У вас же в паскале параметры передаются как var Уберите var будет по значению. если убирать var, то похоже оно адреса суммирует а не значения 0

@palva 4241 / 2938 / 687 Регистрация: 08.06.2007 Сообщений: 9,817 Записей в блоге: 4
	08.04.2013, 00:39	26
	Почему адреса? var это передача по ссылке, что соответствует в си передаче по адресу. 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	07.04.2013, 21:31	21
	Сообщение от palva С подключением def файла к проекту тоже не получается. Ничего и не должно получится. 0

ValeryS Модератор 8908 / 6677 / 918 Регистрация: 14.02.2011 Сообщений: 23,523
	08.04.2013, 00:03	23
	Сообщение от cuteprog Что исправить? Почитай про соглашения о вызовах хотя бы здесь http://programming-lang.com/ht... ndex4.html паскаль и С по разному передают параметры и чистят стек у тебя видать чистит стек вызываемая функция а проге на С это не нравится 0