Changeset 10 for branches/ByteArray/Forms/FormConsole.pas

Timestamp:

Aug 7, 2024, 12:12:42 AM (2 months ago)

Author:

chronos

Message:

• Modified: Improved serial console handling.

File:

• branches/ByteArray/Forms/FormConsole.pas (modified) (3 diffs)

branches/ByteArray/Forms/FormConsole.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Device;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
+  Device, Serial;
 
 type
@@ -12 +13 @@
   TFormConsole = class(TFormDevice)
     Memo1: TMemo;
+    Timer1: TTimer;
+    procedure Timer1Timer(Sender: TObject);
+  private
+    FSerial: TSerial;
+    procedure SetSerial(AValue: TSerial);
   public
-    procedure ConsoleWrite(Data: Byte);
+    property Serial: TSerial read FSerial write SetSerial;
   end;
 
@@ -21 +27 @@
 {$R *.lfm}
 
-procedure TFormConsole.ConsoleWrite(Data: Byte);
+procedure TFormConsole.Timer1Timer(Sender: TObject);
 begin
-  Memo1.Lines.Text := Memo1.Lines.Text + Chr(Data);
+  Memo1.Lines.Text := Memo1.Lines.Text + FSerial.ReadOutputBuffer;
+end;
+
+procedure TFormConsole.SetSerial(AValue: TSerial);
+begin
+  if FSerial = AValue then Exit;
+  if Assigned(FSerial) then begin
+    FSerial.OnOutput := nil;
+  end;
+  FSerial := AValue;
+  if Assigned(FSerial) then begin
+    Memo1.Lines.Text := FSerial.ReadOutputBuffer;
+  end;
 end;