Changeset 26 for Comm

Timestamp:

May 25, 2010, 1:51:46 PM (15 years ago)

Author:

george

Message:

• Přidáno: Knihovna VectorObject pro vykreslování vektorových objektů.
• Přidáno: Knihovna PersistentForm pro uchování stavu oken v registrech.
• Přidáno: LastOpenedList pro uchování naposledy otevřených souborů.
• Upraveno: Aktualizace různých knihoven.

Location:

Comm

Files:

• UCommFrame.pas (modified) (3 diffs)
• UCommPin.pas (added)
• UCommSerialPort.pas (modified) (3 diffs)
• UPin.pas (deleted)
• USerialPort.pas (modified) (4 diffs)

Comm/UCommFrame.pas

@@ -7 +7 @@
 uses
   Classes, UMemoryStreamEx, Dialogs, SysUtils,
-  Forms, UPin;
+  Forms, UCommPin;
 
 const
@@ -28 +28 @@
     function GetStreamCRC8(Stream: TStream): Byte;
   public
-    RawDataPin: TPin;
-    FrameDataPin: TPin;
+    RawDataPin: TCommPin;
+    FrameDataPin: TCommPin;
     PacketLoss: Real;
     procedure RawDataReceive(Stream: TStream);
@@ -47 +47 @@
 begin
   ReceiveBuffer := TMemoryStreamEx.Create;
-  RawDataPin := TPin.Create;
+  RawDataPin := TCommPin.Create;
   RawDataPin.OnReceive := RawDataReceive;
-  FrameDataPin := TPin.Create;
+  FrameDataPin := TCommPin.Create;
   FrameDataPin.OnReceive := FrameDataReceive;
   PacketLoss := 0.005;

Comm/UCommSerialPort.pas

@@ -6 +6 @@
 
 uses
-  Classes, USerialPort, UPin, SysUtils;
+  Classes, USerialPort, UCommPin, SysUtils;
 
 type
@@ -16 +16 @@
     procedure ReceiveData(Stream: TMemoryStream);
   public
-    DataPin: TPin;
+    DataPin: TCommPin;
     destructor Destroy; override;
     constructor Create;
@@ -38 +38 @@
 begin
   inherited;
-  DataPin := TPin.Create;
+  DataPin := TCommPin.Create;
   DataPin.OnReceive := Receive;
   OnReceiveData := ReceiveData;

Comm/USerialPort.pas

@@ -48 +48 @@
     function GetBaudRateNumeric: Integer;
     function GetName: string;
+    function GetReceiveBuffer:TMemoryStream;
     procedure SetBaudRate(const AValue: TBaudRate);
     procedure SetBaudRateNumeric(const AValue: Integer);
@@ -70 +71 @@
     property RTS: Boolean read FRTS write SetRTS;
     property DTR: Boolean read FDTR write SetDTR;
+    property ReceiveBuffer: TMemoryStream read GetReceiveBuffer;
 
     property BaudRateNumeric: Integer read GetBaudRateNumeric write SetBaudRateNumeric;
@@ -132 +134 @@
 
 procedure TSerialPort.Open;
-var
-  DefaultCommConfig: COMMCONFIG;
-  Size: LongWord;
-  Port: PChar;
 begin
   Connect(FName);
@@ -197 +195 @@
 begin
   Result := FName;
+end;
+
+function TSerialPort.GetReceiveBuffer:TMemoryStream;
+begin
+  Result := FReceiveThread.Stream;
 end;