Changeset 415 for PinConnection/USerialPort.pas

Timestamp:

Aug 20, 2012, 8:32:04 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Serial COM port enumeration on Windows.

File:

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

PinConnection/USerialPort.pas

@@ -8 +8 @@
   Classes, SysUtils, SynaSer, StdCtrls, Dialogs, UCommon, UThreading,
   DateUtils, FileUtil, SpecializedList;
+
+const
+  MaxPort = 255;
 
 type
@@ -180 +183 @@
   try
     TestPort := TSerialPort.Create;
-    for I := 0 to Strings.Count - 1 do
+    for I := 0 to MaxPort - 1 do
     with TestPort do begin
-      Name := Strings[I];
+      Name := 'COM' + IntToStr(I);
       Active := True;
       if Active then begin
-        Strings.AddObject(Name, TObject(I));
+        Strings.AddObject(Name, nil);
       end;
       Active := False;
@@ -192 +195 @@
     TestPort.Free;
   end else begin
-    for I := 1 to 255 do
+    for I := 1 to MaxPort do
       Strings.AddObject('COM' + IntToStr(I), nil);
   end;
   {$ENDIF}
   {$IFDEF Linux}
-  if Check then begin
+  if Check then
+  try
     Files := FindAllFiles('/dev', 'tty*', False);
     Strings.Assign(Files);
+  finally
     Files.Free;
   end else begin