Changeset 87

Timestamp:

Sep 5, 2012, 9:16:25 PM (12 years ago)

Author:

chronos

Message:

• Added: Missing package PersistentData.

Location:

trunk/Packages

Files:

• PersistentData (added)
• PersistentData/Backend (added)
• PersistentData/Backend/UPDClientINI.pas (added)
• PersistentData/Backend/UPDClientMemory.pas (added)
• PersistentData/Backend/UPDClientMySQL.pas (added)
• PersistentData/Backend/UPDClientRegistry.pas (added)
• PersistentData/Backend/UPDClientXMLRPC.pas (added)
• PersistentData/Demo (added)
• PersistentData/Demo/Demo.ico (added)
• PersistentData/Demo/Demo.lpi (added)
• PersistentData/Demo/Demo.lpr (added)
• PersistentData/Demo/Demo.lps (added)
• PersistentData/Demo/Demo.res (added)
• PersistentData/Demo/UFormMain.lfm (added)
• PersistentData/Demo/UFormMain.pas (added)
• PersistentData/PersistentData.lpk (added)
• PersistentData/PersistentData.pas (added)
• PersistentData/UPDClient.pas (added)
• PersistentData/UPDServer.pas (added)
• PersistentData/UPersistentData.pas (added)
• synapse/synaser.pas (modified) (3 diffs)

trunk/Packages/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 := '';