Danke jetzt klappts!
wenn ich aus C++ nun wieder was an Delphi inform eines arrays zurückgeben will, bei dem ich genau weiß, dass er 3 Werte haben soll:
Code:
short Test (double *x, double *resu, int anz)
{
CString h1;
h1.Format("%f", x[2]);
MessageBox (GetActiveWindow(), h1, "DLLTEST",MB_OK|MB_ICONINFORMATION);
// ==7
resu= new double(3);
resu[0]=-5; resu[1]=-7;
}
Delphi-Quellcode:
type
Ttest = function (x,resu : PDbl; anz: integer): Smallint; stdcall;
var
vekX,resu : array of double;
begin
vekX[0]:=5; vekX[1]:=7;
SetLength(resu,3);
r:= test(@(vekX[0]), @(resu), 2);
ShowMessage (FloatToStr (resu[1])); // == -7
end;
scheint das nicht zu klappen...