Changeset 272 for PinConnection/UCommSerialPort.pas

Timestamp:

Aug 30, 2011, 3:50:15 PM (13 years ago)

Author:

george

Message:

• Fixed: Do not send or receive data for comm classes if not in active state.
• Fixed: TCommProtocol now raise ENotActive exception on try to send data while in inactive state.
• Fixed: Reseting event after data received in TCommThread class.

File:

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

PinConnection/UCommSerialPort.pas

@@ -29 +29 @@
 procedure TCommSerialPort.ReceiveData(Stream: TMemoryStream);
 begin
-  Pin.Send(Stream);
+  if Active then Pin.Send(Stream);
 end;
 
@@ -51 +51 @@
 procedure TCommSerialPort.Receive(Sender: TCommPin; Stream: TStream);
 begin
-  Stream.Position := 0;
-  repeat
-    try
-      Lock.Acquire;
-      if CanWrite(0) then
-        SendStreamRaw(Stream);
-    finally
-      Lock.Release;
-    end;
-    if Stream.Position <> Stream.Size then
-      Sleep(1);
-  until Stream.Position = Stream.Size;
+  if Active then begin
+    Stream.Position := 0;
+    repeat
+      try
+        Lock.Acquire;
+        if CanWrite(0) then
+          SendStreamRaw(Stream);
+      finally
+        Lock.Release;
+      end;
+      if Stream.Position <> Stream.Size then
+        Sleep(1);
+    until Stream.Position = Stream.Size;
+  end;
 end;