Hallo Leute,
Ich sitze grade an einem Programm, welches ein Messgerät (angeschlossen über USB) benutzen soll. Zur Steuerung des Messgerätes habe ich vom Hersteller eine
DLL bekommen, diese exportiert 3 Funktionen:
Delphi-Quellcode:
PDWORD = ^DWORD;
PFloatArray = ^TFloatArray;
TFloatArray = array[0..31] of Single;
TDLL_ShowData = procedure (aData : PFloatArray); cdecl;
function InitNeXusDevice(aFunc : TDLL_ShowData) : DWORD; cdecl; external 'NeXusDLL.dll';
function StartNeXusDevice(aSampleRate : PDWORD) : DWORD; cdecl; external 'NeXusDLL.dll';
function StopNeXusDevice : DWORD; cdecl; external 'NeXusDLL.dll';
Die Callback-Funktion sieht folgendermaßen aus:
Delphi-Quellcode:
procedure cbNexus(aData : PFloatArray); cdecl;
var
i : integer;
fa : TFloatArray;
begin
fa := aData^;
for i := 0 to 31 do
begin
Form3.OnData(nil, i, fa[i], Time-fStartTime);
end;
end;
Die Methode Form3.OnData macht nichts weiter, als die Daten in ein Memo zu schreiben:
Delphi-Quellcode:
procedure TForm3.OnData(Sender: TObject; aChannel: integer; aValue: single; aTime: TTime);
begin
memo1.Lines.Add(Format('%i: %10.2f',[aChannel, aValue]));
end;
Das Problem ist nun, das der Zugriff auf Form3 zu einer
AV führt. Schreibe ich die Messwerte einfach nur in eine Datei oder ins Eventlog läuft alles.
Woran könnte das liegen?