cdecl-Callback und TForm

[himitsu]

Und wieder diese allseits beliebte Frage:
Du greifst da auf die VCL drauf zu ... In welchem Context läuft aber diese Callback-Prozedur?


Auch wenn es nix mit dem Problem zu tun hat.
Man muß ja nicht immer alles eins zu eins übersetzen ...
und darf auch entsprechend die passenden Delphi/Sprach-Features ausnutzen

Delphi-Quellcode:

type 
  TFloatArray   = packed array[0..31] of Single;  // packed: sicher ist sicher
  TDLL_ShowData = procedure(const aData : TFloatArray); cdecl;

function InitNeXusDevice(aFunc : TDLL_ShowData) : LongWord; cdecl;
  external 'NeXusDLL.dll';

function StartNeXusDevice(var aSampleRate : LongWord) : LongWord; cdecl;
  external 'NeXusDLL.dll';

function StopNeXusDevice : LongWord; cdecl;
  external 'NeXusDLL.dll';