Changeset 4 for trunk/UFormMain.pas

Timestamp:

Nov 23, 2014, 12:56:33 AM (9 years ago)

Author:

chronos

Message:

• Added: Now applications can write text to serial device which is displayed on form.

File:

• trunk/UFormMain.pas (modified) (5 diffs)

trunk/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UKernel;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  UKernel, UMemory;
 
 type
@@ -13 +14 @@
 
   TForm1 = class(TForm)
+    Memo1: TMemo;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
-    { private declarations }
+    SerialText: string;
+    procedure SerialDeviceReceiveDataSync;
+    procedure SerialDeviceReceiveData(Data: TMemory);
   public
     Kernel: TKernel;
@@ -28 +32 @@
 
 uses
-  UList, UAPI, UClock, UPlatformBase;
+  UList, UApp, UAPI, UClock, UPlatformBase, UThreadEx;
 
 {$R *.lfm}
@@ -37 +41 @@
 var
   NewApp: TApp;
+  SerialDevice: TBaseSerialDevice;
 begin
   Kernel := TKernel.Create;
   Kernel.SchedulerClass := TBaseScheduler;
   Kernel.FileSystemClass := TBaseFileSystem;
-
+  SerialDevice := TBaseSerialDevice.Create;
+  SerialDevice.Name := 'Serial0';
+  SerialDevice.OnReceiveData := SerialDeviceReceiveData;
+  Kernel.Devices.Add(SerialDevice);
   NewApp := TAppClock.Create;
   Kernel.Apps.Add(NewApp);
@@ -56 +64 @@
 end;
 
+procedure TForm1.SerialDeviceReceiveDataSync;
+begin
+  Memo1.Lines.AddText(SerialText);
+end;
+
+procedure TForm1.SerialDeviceReceiveData(Data: TMemory);
+begin
+  SetLength(SerialText, Data.Size);
+  Move(Data.Data^, SerialText[1], Data.Size);
+  TThreadEx.Synchronize(TThreadEx.CurrentThread, SerialDeviceReceiveDataSync);
+end;
+
 end.