Changeset 4 for trunk/UAPI.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/UAPI.pas (modified) (3 diffs)

trunk/UAPI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UList;
+  Classes, SysUtils, UList, UKernel, DateUtils, UMemory;
 
 type
@@ -13 +13 @@
 
   TAPI = class
+    Kernel: TKernel;
     procedure WriteText(Text: string);
     procedure Sleep(Time: TDateTime);
   end;
 
-  { TApp }
-
-  TApp = class(TNamedObject)
-    API: TAPI;
-    constructor Create; virtual;
-    destructor Destroy; override;
-    procedure Run; virtual;
-  end;
 
 implementation
@@ -31 +24 @@
 
 procedure TAPI.WriteText(Text: string);
+var
+  Device: TDevice;
+  DataIn: TMemory;
 begin
-
+  Device := TDevice(Kernel.Devices.FindByName('Serial0'));
+  if Assigned(Device) then begin
+    DataIn := TMemory.Create;
+    DataIn.Size := Length(Text);
+    Move(Text[1], DataIn.Data^, DataIn.Size);
+    Device.Service(0, DataIn, nil);
+    DataIn.Free;
+  end else raise Exception.Create('Device Serial0 not found');
 end;
 
 procedure TAPI.Sleep(Time: TDateTime);
 begin
-
+  SysUtils.Sleep(Trunc(Time / OneMillisecond));
 end;
 
-{ TApp }
-
-constructor TApp.Create;
-begin
-  inherited Create;
-  API := TAPI.Create;
-end;
-
-destructor TApp.Destroy;
-begin
-  API.Free;
-  inherited Destroy;
-end;
-
-procedure TApp.Run;
-begin
-
-end;
 
 end.