Individuare ed estrarre il PID di un programma

Da Gambas-it.org - Wikipedia.

Vedremo come ottenere il PID del programma principale, ed il PID di un programma esterno |1|.


Ottenere il PID del programma Gambas principale

Si potrà ottenere il PID del programma Gambas principale attivo mediante la proprietà specifica di Gambas:

Application.Handle

oppure quella analoga:

Application.Id


Ottenere il PID di un programma esterno al programma principale Gambas

Per individuare e raccolgiere il PID di un programma esterno a quello Gambas principale, si potranno adottare diverse modalità in base ai casi:


Caso in cui il programma esterno non sia gestito dal programma.gambas mediante process

Soluzioni con il solo uso delle funzioni di Gambas

Uso della Classe "Desktop" del Componente gb.desktop e della Classe X11 del Componente gb.desktop.x11

Questa prima modalità mostrata richiede siano attivati i Componenti gb.desktop e gb.desktop.x11, dei quali saranno utilizzati rispettivamente il Metodo "Desktop.FindWindow( )", per ottenere l'ID della finestra del programma esterno al programma principale Gambas, e il Metodo "X11.GetWindowProperty( )", per ottenere dunque l'identificativo del processo (PID) del programma esterno al programma principale Gambas.

Mostriamo un esempio pratico:

Public Sub Button1_Click()
 
 Dim wid As Integer
 Dim pid As Integer[]
 
' Otteniamo innanzitutto l'identificativo della finestra del programma esterno:
  wid = Desktop.FindWindow("Calcolatric*", Null, Null)[0]
  Print Hex(wid)
   
' Quindi otteniamo il PID del processo del programma esterno:
  pid = X11.GetWindowProperty(wid, "_NET_WM_PID")
  Print pid[0]
  
End


Cercare il PID nel percorso /proc/, partendo dal nome del processo del programma

Public Sub Button1_Click()

 Dim cartella, comm As String

  For Each cartella In Dir("/proc", Null, gb.Directory)

     If Exist("/proc/" & cartella & "/comm") Then
       comm = File.Load("/proc/" & cartella & "/comm")

' Mostra il numero del PID del programma:
       If comm Begins "nome_processo_programma" Then Print cartella

     Endif
   
  Next
  
End


Cercare il PID nel percorso /proc/, partendo dal titolo della finestra del programma

Public Sub Button1_Click()

 Dim s1, s2, pid As String
   
  s1 = InputBox("Inserire il titolo della finestra del programma:")   |2|
   
  For Each pid In Dir("/proc")
   
    If Exist("/proc/" & pid & "/cmdline") Then
      s2 = File.Load("/proc/" & pid & "/cmdline")

      If s2 Like "*" & s1 & "*" Then
' Mostra il PID del programma:
        TextLabel1.Text = pid
        Exit
      Endif
   
    Endif
   
  Next
  
End


Soluzioni con comandi bash:

mediante uso di: pgrep -f nome_programma

Public Sub Button1_Click()

Dim index As String
Dim sotto$ As String[]
 
' Otteniamo il PID dei processo (programma) aperto:
   Shell "pgrep -f nome_programma"] To index

' La variabile index sarà composta da due righe, contenenti caratteri numerali e separate da un ritorno a capo.
' Le andremo a distinguere in due sotto-stringhe distinte:
   sotto$ = Split(Trim$(index), "\n")

' Poiché la prima parola, restituita da "pgrep", è proprio il numero del PID del programma,
' andiamo a leggere la prima sotto-stringa dell'array. Qui è contenuto il PID del programma:
   Print sotto$[0]

End


mediante uso di: ps

Public Sub Button1_Click()

 Dim s1, s2As String
 Dim ss As String[]

  Shell "ps -C \"nome_del_programma\"" To s1

   s2 = Replace(s1, "\n", " ")
 
   ss = Split(s2, " ", "", True)
 
' Mostriamo il nome del programma lanciato ed il suo PID:
    Print ss[ss.max]; " = "; ss[4]

End


Caso in cui il programma esterno sia stato lanciato dal nostro programma.gambas e sia gestito mediante process

Private hp As Process
Private pid As Integer

Public Sub Button1_Click()

 hp = Shell "nome_programma"

' Individuiamo il numero del PID, che sarà uguale al valore di .Id + 1 :   |3|
   pid = hp.Id + 1

   Print pid

End


Utilizzo delle funzioni esterne del API di X11

Infine, per individuare il PID di un programma, sia di quello Gambas principale che di altro esterno, si potrà fare uso delle funzioni della libreria X11.

Per analogia di argomento rinviamo a questa pagina della WIKI.



Note

[1] Attenzione ! L'intento è quello di ottenere il PID del programma in quanto processo, non l'ID della finestra del programma !

[2] Poiché spesso il titolo della finestra non coincide esattamente con il nome del processo del programma, si avrà cura di inserire solo alcuni caratteri del titolo, che richiama il nome del programma, successivi al primo del titolo medesimo. Esempio, se il titolo della finestra fosse: TitoloFinestra, scriveremo: "itol".

[3] Il numero del PID, ottenuto con il metodo " .Id" di Process, di un programma esterno gestito mediante "process", è uguale al numero del PID + 1. Questo perché il processo figlio assume un numero di PID successivo a quello del processo padre (in questo caso della Shell). In tal caso il valore restituito dalla proprietà Process.Id rappresenta in realtà il numero del PID della Shell.