OberonCore

MODULE CommList;

   IMPORT SYSTEM, WinApi, Log;
   
   PROCEDURE Ports*;
   VAR
      bytesNeeded, returned, i: INTEGER;
      buffer: POINTER TO ARRAY OF SHORTCHAR;
      pInfo: WinApi.PORT_INFO_1;
   BEGIN
      IF (WinApi.EnumPorts(NIL, 1, NIL, 0, bytesNeeded, returned) = 0) &
         (WinApi.GetLastError() = WinApi.ERROR_INSUFFICIENT_BUFFER) THEN
         NEW(buffer, bytesNeeded);
         IF WinApi.EnumPorts(NIL, 1, buffer[0], bytesNeeded, bytesNeeded, returned) = 1 THEN
            FOR i:=0 TO returned - 1 DO
               pInfo := SYSTEM.VAL(WinApi.PORT_INFO_1, buffer[i * SIZE(WinApi.PORT_INFO_1)]);
               IF (pInfo.pName[0] = "C") & (pInfo.pName[1] = "O") & (pInfo.pName[2] = "M") THEN
                  Log.String(pInfo.pName$); Log.Ln
               END
            END
         END
      END
   END Ports;
   
END CommList.

^Q CommList.Ports

   PROCEDURE EnumPorts* ["WINSPOOL.drv", "EnumPortsA"] (pName: PtrSTR; Level: INTEGER; VAR [nil] pPorts: SHORTCHAR; cbBuf: INTEGER; VAR [nil] pcbNeeded: INTEGER; VAR [nil] pcReturned: INTEGER): BOOL;
   (*END EnumPorts;*)

PROCEDURE  Ports*;
   VAR res, size,  i:  INTEGER;
      sw: WinApi.HANDLE;
      dwType: INTEGER;
      str, keyName: ARRAY 64 OF SHORTCHAR;
      port: ARRAY 8 OF CHAR;
      con : CommV24.Connection;
   BEGIN
      IF Dialog.IsWine() THEN
         FOR i := 0 TO 255 DO
            Strings.IntToString(i, port);
            CommV24.Open('COM' + port, 9600, {}, con);
            IF con # NIL THEN
               CommV24.Close(con);
               Log.String('COM' + port); Log.Ln
            END
         END
      ELSIF Dialog.IsWindows() THEN
         res := WinApi.RegOpenKeyW(WinApi.HKEY_LOCAL_MACHINE, "hardware\devicemap\serialcomm", sw);
         IF res = WinApi.ERROR_SUCCESS THEN
            i := 0;
            size := LEN(str);
            WHILE res # WinApi.ERROR_NO_MORE_ITEMS DO
               size := LEN(str);
               res := WinApi.RegEnumValueA(sw, i, keyName, size, NIL, NIL, 0, NIL);
               IF res = WinApi.ERROR_SUCCESS  THEN
                  size := LEN(str);
                  res := WinApi.RegQueryValueEx(sw, keyName,  NIL, dwType, SYSTEM.ADR(str), size);
                  IF res = WinApi.ERROR_SUCCESS  THEN
                     Log.String(keyName$ + " " + str$); Log.Ln;
                  END
               END;
               INC(i)
            END;
            res := WinApi.RegCloseKey(sw)
         END
      END
   END Ports;