Прежде всего, я использую Mingw 4.8 в качестве компилятора C ++ DLL в коде: блоки 13.12 и Lazarus 1.4.2 для работы с кодом Freepascal. (Windows 7). < /P>
Мне нужно генерировать DLL в C ++ или C, которые можно вызвать из программы Freepascal. Не выглядит очень сложно создавать простую программу, но я не могу найти хорошую информацию о том, как импортировать и использовать C /C ++ DLL.function hello():Integer; external 'function' index 1;
…
Label1.Caption:=IntToStr(hello());
< /code>
C ++ Header DLL: < /p>
#ifndef function_H
#define function_H
#ifdef __cplusplus
extern "C" {
#endif
#ifdef BUILDING_DLL
#define FUNCTION_DLL __declspec(dllexport)
#else
#define FUNCTION_DLL __declspec(dllimport)
#endif
int __stdcall FUNCTION_DLL hello( );
#ifdef __cplusplus
}
#endif
#endif
< /code>
c ++ файл: < /p>
#include
#include "function.h"
__stdcall int hello( )
{
return 8;
}
< /code>
Но когда я пытаюсь передать какой-либо аргумент или делать что-то сложное с функцией, он начинает давать случайные числа. < /p>
Это новый код: < /p>
function function1(t1:Integer):Integer; external 'function' index 1;
…
entero:=8;
Label1.Caption:=IntToStr(function1(entero2));
< /code>
Также я обновил код C ++ для этого: < /p>
#include
#include "function.h"
__stdcall int function1(int t1)
{
return t1*2;
}
< /code>
#ifndef funtion_H
#define funtion_H
#ifdef __cplusplus
extern "C" {
#endif
#ifdef BUILDING_DLL
#define FUNCTION_DLL __declspec(dllexport)
#else
#define FUNCTION_DLL __declspec(dllimport)
#endif
int __stdcall FUNCTION_DLL function1(int t1);
#ifdef __cplusplus
}
#endif
#endif
< /code>
Я также читаю сценарии Pascal: Использование сборок DLLS и .NET и попытался реализовать вызов DLL, как это: < /p>
function function1(t1: Integer): Integer; external 'function1@files:function.dll';
< /code>
Но я получаю ошибку, в которой говорится, что: < /p>
Функция точки входа в процедуру1 не может быть обнаружена в функции
dynamic libric>
Подробнее здесь: https://stackoverflow.com/questions/314 ... freepascal
