Changeset 26 for Comm/USerialPort.pas
- Timestamp:
- May 25, 2010, 1:51:46 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Comm/USerialPort.pas
r23 r26 48 48 function GetBaudRateNumeric: Integer; 49 49 function GetName: string; 50 function GetReceiveBuffer:TMemoryStream; 50 51 procedure SetBaudRate(const AValue: TBaudRate); 51 52 procedure SetBaudRateNumeric(const AValue: Integer); … … 70 71 property RTS: Boolean read FRTS write SetRTS; 71 72 property DTR: Boolean read FDTR write SetDTR; 73 property ReceiveBuffer: TMemoryStream read GetReceiveBuffer; 72 74 73 75 property BaudRateNumeric: Integer read GetBaudRateNumeric write SetBaudRateNumeric; … … 132 134 133 135 procedure TSerialPort.Open; 134 var135 DefaultCommConfig: COMMCONFIG;136 Size: LongWord;137 Port: PChar;138 136 begin 139 137 Connect(FName); … … 197 195 begin 198 196 Result := FName; 197 end; 198 199 function TSerialPort.GetReceiveBuffer:TMemoryStream; 200 begin 201 Result := FReceiveThread.Stream; 199 202 end; 200 203
Note:
See TracChangeset
for help on using the changeset viewer.