Tserial abschiessen

[robinWie]

mit FOR-Schleifen hat man immer das Problem, dass das Prog erst geschlossen wird wenn die FOR-Schleife abgearbeitet ist. Darum mach ich das immer so:

Delphi-Quellcode:

for i := 0 to..
 begin
  if Application.Terminated then Exit //<=======
  //...
 end;

[mymuschy]

Guten Morgen!

Erstmal danke für die Fülle eurer Beiträge! Bin begeistert...

Ich hab jetzt nochmal 2 Dinge versucht.

Im OnClose Ereigniss:
tC_Serial.OnRxData := nil; bringt leider keine Verbesserung.
Und weil ich mir nicht sicher war, hab ich auch mal das versucht:

Delphi-Quellcode:

procedure TSS.tC_SerialRxData(Sender: TObject);
  Var C : Char;
begin
// ich bin leer
end;

So wie es aussieht liegt das Problem wo anders.
Ich hab auch schon versucht die RxQueueSize zu verkleinern bringt aber auch nix.

Was macht TSerial vor dem Aufruf von OnRxData? Da scheint doch das Problem zu liegen oder?

[Guste1]

Hallo,
kann das Problem ein ganz anderes sein?

Jedes Gerät hat eine Einstellung, 'alles senden' oder Werte nur 'auf Anforderung senden'[delphi].
Meistens ist 1 alles und 0 nur auf Anforderung.

PROCEDURE UEBERNAHME;
Var Data : String[10];
Begin
Data := ('MSV?2,1;'); //MSV?2,0; Durchlaufend
FrmMessung.SerMgc.TransmittData(Data,10);
End;

Dann Datenabfrage mit Ser_EventChar

Gruss Klaus