Changeset 404 for PinConnection/USerialPort.pas

Timestamp:

Aug 13, 2012, 10:03:31 AM (12 years ago)

Author:

chronos

Message:

• Modified: Linux support for PinConnection SerialPort, Common OpenURL, UpdateChecker.
• Modified: ModularSystem show module name if required dependency not found.

File:

• PinConnection/USerialPort.pas (modified) (3 diffs)

PinConnection/USerialPort.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, SynaSer, StdCtrls, Dialogs, UCommon, UThreading,
-  DateUtils;
+  DateUtils, FileUtil;
 
 type
@@ -74 +74 @@
     property BaudRateNumeric: Integer read GetBaudRateNumeric write SetBaudRateNumeric;
     property OnReceiveData: TReceiveDataEvent read FOnReceiveData write FOnReceiveData;
+    procedure LoadAvailableToStrings(Strings: TStrings; Check: Boolean = False);
     constructor Create;
     destructor Destroy; override;
@@ -169 +170 @@
   FreeAndNil(FReceiveThread);
   CloseSocket;
+end;
+
+procedure TSerialPort.LoadAvailableToStrings(Strings: TStrings; Check: Boolean = False);
+var
+  I: Integer;
+  TestPort: TSerialPort;
+  Files: TStringList;
+begin
+  Strings.Clear;
+  {$IFDEF Windows}
+  if Check then
+  try
+    TestPort := TSerialPort.Create;
+    for I := 0 to Strings.Count - 1 do
+    with TestPort do begin
+      Name := Strings[I];
+      Active := True;
+      if Active then begin
+        Strings.AddObject(Name, TObject(I));
+      end;
+      Active := False;
+    end;
+  finally
+    TestPort.Free;
+  end else begin
+    for I := 1 to 255 do
+      Strings.AddObject('COM' + IntToStr(I), nil);
+  end;
+  {$ENDIF}
+  {$IFDEF Linux}
+  if Check then begin
+    Files := FindAllFiles('/dev', 'tty*', False);
+    Strings.Assign(Files);
+    Files.Free;
+  end else begin
+    for I := 1 to 63 do
+      Strings.AddObject('/dev/ttyS' + IntToStr(I), nil);
+  end;
+  {$ENDIF}
 end;