Code kommt...
Ist soweit ich weiß alles standardmäßig programmiert...
Delphi-Quellcode:
(* Der Thread zur Durchführung der Messung *)
TReadCOM1Thread = class(TThread)
protected
procedure execute; override;
private
function initAnalyzer: integer;
function eraseBufferIn: integer;
procedure convertValue (answerStr: string; var valueReal: Real; var valueStr: string);
public
constructor create;
function startRemote: integer;
function stopRemote: integer;
end;
(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
(* Der Konstruktor für den Thread *)
(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
constructor TReadCOM1Thread.create;
begin
inherited Create(False);
FreeOnTerminate:=True;
end;
(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
(* Diese Funktion startet den Thread für die Messung *)
(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
function TCOM_Remote.startMeasurement: Integer;
begin
Form1.Label11.Caption := '0.000 nT ';
Form1.Label12.Caption := 'Keine Fehler.';
measure := TReadCOM1Thread.create; // Thread (Messung) starten
result := 0
end;
(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
(* *)
(* Thread ausführen *)
(* *)
(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
procedure TReadCOM1Thread.Execute;
var
mSec: integer; // msec des Zeitformats
timeStamp1: TDateTime; // Zeitstempel
...
begin
setLength (tempFile, 2); // Zunächst 2 Files zur Datenspeicherung
timeStamp2 := now; // Zeitstempel initialisieren
...
end;
[edit=alcaeus]Delphi-tags eingefuegt. In Zukunft bitte selbst machen. Mfg, alcaeus[/edit]