Changeset 288 for PinConnection/UCommSerialPort.pas

Timestamp:

Oct 24, 2011, 9:01:08 AM (13 years ago)

Author:

george

Message:

• Added: TCommPin now support state number forwarding. State value is designed mainly for simulating parity bit and possibly other state bits.

File:

• PinConnection/UCommSerialPort.pas (modified) (3 diffs)

PinConnection/UCommSerialPort.pas

@@ -10 +10 @@
 
 type
+
+  { TCommSerialPort }
+
   TCommSerialPort = class(TSerialPort)
   private
     procedure Receive(Sender: TCommPin; Stream: TStream);
+    procedure SetStatus(Sender: TCommPin; AValue: Integer);
     procedure ReceiveData(Stream: TMemoryStream);
   public
@@ -32 +36 @@
 end;
 
+procedure TCommSerialPort.SetStatus(Sender: TCommPin; AValue: Integer);
+begin
+  try
+    Lock.Acquire;
+    if (AValue and 1) = 1 then Parity := paMark else Parity := paSpace;
+  finally
+    Lock.Release;
+  end;
+end;
+
 constructor TCommSerialPort.Create;
 begin
@@ -38 +52 @@
   Pin := TCommPin.Create;
   Pin.OnReceive := Receive;
+  Pin.OnSetSatus := SetStatus;
   OnReceiveData := ReceiveData;
 end;