Changeset 283 for PinConnection

Timestamp:

Oct 10, 2011, 1:34:34 PM (13 years ago)

Author:

george

Message:

• Fixed: Changing serial port name.

Location:

PinConnection

Files:

• UCommProtocol.pas (modified) (2 diffs)
• USerialPort.pas (modified) (1 diff)

PinConnection/UCommProtocol.pas

@@ -111 +111 @@
   end;
 
-implementation
-
 resourcestring
   SResponseError = 'Command %0:s response error %1:s';
@@ -120 +118 @@
   SProtocolDecodeError = 'Data decode error';
   SProtocolNotActive = 'Device protocol not active';
+
+implementation
+
 
 procedure TCommProtocol.DataReceive(Sender: TCommPin; Stream: TStream);

PinConnection/USerialPort.pas

@@ -109 +109 @@
 
 procedure TSerialPort.SetName(const AValue: string);
-begin
+var
+  LastState: Boolean;
+begin
+  if FName = AValue then Exit;
+  LastState := FActive;
+  Active := False;
   FName := AValue;
+  Active := LastState;
 end;