Changeset 31 for Comm

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

Location:

Comm

Files:

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

Comm/UCommSerialPort.pas

@@ -45 +45 @@
 destructor TCommSerialPort.Destroy;
 begin
-  FreeAndNil(DataPin);
+  OnReceiveData := nil;
+  DataPin.Destroy;
   inherited;
 end;

Comm/USerialPort.pas

@@ -77 +77 @@
     constructor Create;
     destructor Destroy; override;
+    procedure Assign(Source: TObject);
   end;
 
@@ -175 +176 @@
   FReceiveThread.Destroy;
   inherited Destroy;
+end;
+
+procedure TSerialPort.Assign(Source:TObject);
+begin
+  if Source is TSerialPort then begin
+    Name := TSerialPort(Source).Name;
+    BaudRate := TSerialPort(Source).BaudRate;
+    Parity := TSerialPort(Source).Parity;
+    StopBits := TSerialPort(Source).StopBits;
+    DataBits := TSerialPort(Source).DataBits;
+    FlowControl := TSerialPort(Source).FlowControl;
+    DTR := TSerialPort(Source).DTR;
+    RTS := TSerialPort(Source).RTS;
+  end else raise Exception.Create('Assignment error');
 end;