Hi Leute,
wie kann ich eine C++
DLL in Delphi einbinden? Habe mal eine TestDll in C erstellt wollte dann darauf zugreifen. Beim Delphi Programmstart gibt's dann eine Zugriffsverletzung. Hier mal der Code in Delphi:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
//c++ DLL
function _berechne(
var A, B : Integer) : Integer;
cdecl;
external '
c:\dll\MatheC.dll';
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var wert1 : integer;
var wert2 : Integer;
begin
Wert1 := 2;
Wert2 := 3;
Edit1.Text := intToStr(_berechne(Wert1,Wert2));
end;
end.
Hier die C++
Dll. Hab ich aus dem Netz:
----------------------------------------------------------------------------------------------------------------------------------
#include <windows.h>
#pragma argsused
int
WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}
// extern verfügbare funktionen:
extern "C" __declspec(dllexport)int berechne(int, int);
// implemetierungen aller funktionen
int __export berechne(int A, int B)
{
return A + B;
}
-----------------------------------------------------------------------------------------------------------------------------------
Kann mir jemand von euch helfen?
Danke im voraus.
Gruss
xthing