Hallo,
ich habe eine C++
DLL, die folgendendermaßen aufgebaut ist:
Code:
extern "C" short EXPORT test (double *x)
{
MessageBox (GetActiveWindow(), _fcvt(x[0], 2, &
dec, &sign), "DLLTEST",MB_OK|MB_ICONINFORMATION);
}
In Delphi möcht ich nun die Funktion aufrufen und die Parameter übereben:
Delphi-Quellcode:
type
TExte =
array of Extended;
type
TTest =
function (x: TExte): Smallint;
stdcall;
var
vekX : TExte;
begin
dll:= LoadLibrary('
test.dll');
@test := GetProcAddress(
dll,'
test');
SetLength(vekX,1);
vekX[0]:= 5;
r:=test(vekX);
end;
Das klappt aber nicht, denn die MsgBox zeigt nichts an-was mach ich da falsch?
Danke Tim