Benutzer-Werkzeuge

Webseiten-Werkzeuge


Seitenleiste

Kommunikation und Netzwerk

k24:k24.9:k24.9.2:k24.9.2.1:start

24.9.2.1 Projekt DBusView

Das Programm DBusView nutzt die Eigenschaften DBus.Session.Applications und DBus.System.Applications, um Listen zu den am D-Bus registrierten Anwendungen zu erzeugen. Das gelingt, weil sowohl die Eigenschaft DBus.Session als auch DBus.System vom Datentyp DBusConnection sind und die Klasse DBusConnection die Eigenschaft Applications besitzt, die eine Liste mit den Namen aller am ausgewählten D-Bus angeschlossenen Anwendungen zurück gibt:

Abbildung 24.9.2.1.1: Registrierte Anwendungen auf dem Session-D-Bus und auf dem System-D-Bus

Der Quelltext ist erfreulich kurz:

' Gambas class file
 
Public Sub Form_Open()
  FMain.Resizable = False
  GetDBusSessionApplications()
  GetDBusSystemApplications()
End
 
Public Sub btnRefresh_Click()
  GetDBusSessionApplications()
  GetDBusSystemApplications()
End
 
Private Sub GetDBusSessionApplications()
 
  Dim i As Integer
  Dim aSessionList As String[]
 
  txaSession.Clear()
  aSessionList = DBus.Session.Applications.Sort(gb.Descent)
  For i = 0 To aSessionList.Max
    txaSession.Insert(aSessionList[i] & gb.NewLine)
  Next
  txaSession.Pos = 0
 
End
 
Private Sub GetDBusSystemApplications()
 
  Dim i As Integer
  Dim aSystemList As String[]
 
  txaSystem.Clear()
  aSystemList = DBus.System.Applications.Sort(gb.Descent)
  For i = 0 To aSystemList.Max
    txaSystem.Insert(aSystemList[i] & gb.NewLine)
  Next
  txaSystem.Pos = 0
 
End
 
Public Sub btnClose_Click()
  FMain.Close()
End

Download

Wir verwenden Cookies, um unser Internetangebot optimal zu gestalten. Durch weitere Nutzung dieser Webseite stimmen Sie der Verwendung von Cookies zu. Informationen zu Cookies erhalten Sie in unserer Datenschutzerklärung
k24/k24.9/k24.9.2/k24.9.2.1/start.txt · Zuletzt geändert: 09.04.2018 von honsek

Seiten-Werkzeuge