Ταυτοποίηση λειτουργικού συστήματος

Η ταυτοποίηση του λειτουργικού συστήματος μπορεί να επιβεβαιωθεί με γλώσσα Python ή Basic.

Η ιδιότητα ComputerName είναι διαθέσιμη μόνο για Windows. Οι κλήσεις Basic στη βοήθεια μακροεντολών Python ξεπερνούν τους περιορισμούς Basic του Collabora Office.

Χρήση κλάσης Python:

""" the_module """
import os, platform
class Platform():
    @property
    def ComputerName(self): return platform.node()
    @property
    def DirSeparator(self): return os.sep
    @property
    def isLinux(self): return (self.OSName=='Linux')
    @property
    def isMacOSX(self): return (self.OSName=='Darwin')
    @property
    def isWindows(self): return (self.OSName=='Windows')
    @property
    def OSName(self): return platform.system()
    @property
    def PathDelimiter(self): return os.pathsep

Χρήση αρθρώματος κλάσης Basic:

Λείπει η εγγενής αναγνώριση MacOS X στη Basic του Collabora Office. Η ταυτοποίηση του λειτουργικού συστήματος είναι δυνατή χρησιμοποιώντας τη διασύνδεση προγραμματισμού εφαρμογών (API) του Collabora Office.

Option Compatible
Option ClassModule
Option Explicit

Public Property Get ComputerName As String
    If isWindows Then ComputerName = Environ("ComputerName")
End Property ' Platform.ComputerName

Public Property Get DirSeparator As String
    DirSeparator = GetPathSeparator()
End Property ' Platform.DirSeparator

Public Property Get IsLinux As Boolean
    isLinux = ( GetGUIType()=4 ) ' Applies to macOS as well
End Property ' Platform.isLinux

Public Property Get IsMacOSX As Boolean
    isMacOSX = ( OSName="MAC" )
End Property ' Platform.isMacOSX

Public Property Get IsWindows As Boolean
    isWindows = ( GetGUIType()=1 )
End Property ' Platform.isWindows

Public Property Get OSName As String
    ' Επιστροφή ονόματος λειτουργικού συστήματος ως "MAC", "UNIX", "WIN"
    ' Συμπεραίνεται από τη συνάρτηση "Tools.UCB.ShowHelperDialog"
    With GlobalScope.Basiclibraries
        If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    Dim keyNode As Object ' com.sun.star.configuration.ConfigurationAccess
    keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help")
    OSName = keyNode.GetByName("System")
End Property ' Platform.OSName

Public Property Get PathDelimiter As String
    Select Case OSName
        Case "MAC", "UNIX" : PathDelimiter = ":"
        Case "WIN" : PathDelimiter = ";"
     End Select
End Property ' Platform.PathDelimiter

Παραδείγματα:

Με Python

>>> from < the_module > import Platform

>>> print(Platform().isMacOSX) # object property

True

>>> input(Platform().OSName) # object property

Darwin

Από μενού Εργαλεία – Μακροεντολές - Εκτέλεση μακροεντολής....

from < the_module > import Platform
import screen_io as ui
p = Platform()
ui.MsgBox(''.join(['isMacOS: ',str(p.isMacOSX)]),0,p.OSName)

Με Basic του Collabora Office

Sub Platform_example()
    Dim p As New Platform ' στιγμιότυπο κλάσης λειτουργικού συστήματος
    MsgBox p.isLinux ' ιδιότητα αντικειμένου
    Print p.isWindows, p.OSName ' ιδιότητες αντικειμένου
End Sub ' Platform_example

Είσοδος/Έξοδος στην οθόνη

Συνάρτηση GetGuiType

Συνάρτηση GetPathSeparator

Κλήση Python Scripts από Basic

παραδείγματα προγραμματισμού Python

Βοήθεια δεσμών ενεργειών Python του Collabora Office