cdecl-Callback und TForm

[sirius]

Zitat von Gloegg_FHBI:

Wie kriege ich denn jetzt die DLL dazu im Kontext der VCL zu laufen?

Das Memo macht eigentlich kaum riskante Sachen (meist nur ein Haufen an Sendmessages), aber zur Absicherung kannst du ja folgendes implementieren:

Delphi-Quellcode:

const WM_Nexus=WM_User;


procedure cbNexus(aData : PFloatArray); cdecl; 
begin
  sendmessage(Form3.Handle,WM_Nexus,0,integer(aData));  //Das Handle von Form3 könnte man auch noch irgendwo zwischenspeichern
end;


//und in Form3 machst du folgendes:
type
  TForm3=class(TForm)
   ...
  private
   procedure WMNexus(var msg:TMEssage);message WM_Nexus; //hier könnte man TMEssage noch anpassen, ist aber nur Comfort
  ...



procedure TForm3.WMNexus(var msg:TMEssage);
var 
  aData: PFloatArray; 
  i : integer; 
  fa : TFloatArray; 
begin 
  aData:=PFloatArray(msg.lParam);
  fa := aData^;  //warum hier nochmal kopieren?
  for i := 0 to 31 do 
  begin    
    OnData(nil, i, fa[i], Time-fStartTime); 
  end; 
end;