Changeset 346 for Network/synapse

Timestamp:

Apr 20, 2012, 10:19:53 AM (13 years ago)

Author:

chronos

Message:

• Fixed: Opening nonstandard serial port devices under Linux (e.g. /dev/ttySAC0).

File:

• Network/synapse/synaser.pas (modified) (3 diffs)

Network/synapse/synaser.pas

@@ -250 +250 @@
 
   {:@abstract(Main class implementing all communication routines)}
-  TBlockSerial = class(TObject)
+  TBlockSerial = class
   protected
     FOnStatus: THookSerialStatus;
@@ -813 +813 @@
 begin
   FComNr := PortIsClosed;
-  if pos('COM', uppercase(Value)) = 1 then
-    FComNr := StrToIntdef(copy(Value, 4, Length(Value) - 3), PortIsClosed + 1) - 1;
-  if pos('/DEV/TTYS', uppercase(Value)) = 1 then
-    FComNr := StrToIntdef(copy(Value, 10, Length(Value) - 9), PortIsClosed - 1);
+  if Pos('COM', UpperCase(Value)) = 1 then
+    FComNr := StrToIntdef(Copy(Value, 4, Length(Value) - 3), PortIsClosed + 1) - 1;
+  if Pos('/DEV/TTYS', UpperCase(Value)) = 1 then begin
+    FComNr := StrToIntdef(Copy(Value, 10, Length(Value) - 9), PortIsClosed);
+  end;
 end;
 
@@ -1900 +1901 @@
   SerialCheck(ioctl(integer(FHandle), TCFLSH, TCIOFLUSH));
   {$ELSE}
-  SerialCheck(fpioctl(integer(FHandle), TCFLSH, TCIOFLUSH));
+  SerialCheck(fpioctl(integer(FHandle), TCFLSH, Pointer(TCIOFLUSH)));
   {$ENDIF}
   FBuffer := '';