Changeset 26 for Comm/USerialPort.pas

Timestamp:

May 25, 2010, 1:51:46 PM (14 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.

File:

• Comm/USerialPort.pas (modified) (4 diffs)

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;