Συνάρτηση CreateUnoService

Δημιουργεί μια υπηρεσία Uno με το ProcessServiceManager.

Σύνταξη:

oService = CreateUnoService( UNO service name )

tip

Για έναν κατάλογο με τις διαθέσιμες υπηρεσίες, επισκεφτείτε τη σελίδα αναφοράς com::sun::star Module reference page.


Παράδειγμα:

Το παρακάτω παράδειγμα δημιουργεί τη συνάρτηση FileExists που χρησιμοποιεί την υπηρεσία com.sun.star.ucb.SimpleFileAccess για να ελέγξει εάν μια δεδομένη διαδρομή είναι ένα υπάρχον αρχείο.


    Function FileExists(sPath as String) as Boolean
        Dim svcSFA as Object
        Set svcSFA = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
        Dim bExists as Boolean : bExists = svcSFA.exists(sPath)
        Dim bIsFolder as Boolean : bIsFolder = svcSFA.IsFolder(sPath)
        FileExists = bExists And Not bIsFolder
    End Function
  
tip

Οι υπηρεσίες UNO διαθέτουν εκτενή ηλεκτρονική τεκμηρίωση στον ιστότοπο api.libreoffice.org. Επισκεφτείτε τη σελίδα SimpleFileAccess Service για να μάθετε περισσότερα σχετικά με τις μεθόδους αναφοράς υπηρεσία που χρησιμοποιούνται στο παραπάνω παράδειγμα.


Παράδειγμα:

Ο παρακάτω κώδικας χρησιμοποιεί την υπηρεσία com.sun.star.ui.dialogs.FilePicker για την εμφάνιση ενός διαλόγου ανοιχτού αρχείου:


Sub Main
    fName = FileOpenDialog ("Παρακαλώ επιλέξτε ένα αρχείο")
    print "επιλεγμένο αρχείο: "+fName
End Sub
 
Function FileOpenDialog(title As String) As String
    res = com.sun.star.ui.dialogs.ExecutableDialogResults
    filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
    filepicker.Title = title
    If res.OK = filepicker.execute() Then 
        files = filepicker.getSelectedFiles()
        FileOpenDialog=files(0)
    EndIf
End Function

Παρακαλούμε, υποστηρίξτε μας!