Visualizza wikitesto di Usare due programmi Gambas contemporaneamente mediante Process, lo standard Output e lo standard Input

E' possibile utilizzare due o anche più programmi Gambas contemporaneamente, che si passano valori attraverso lo "''standard Output'' " e lo "''standard Input'' " <SUP>&#091;[[#Note|Nota 1]]&#093;</sup>, mediante "''Process''".

Facciamo un esempio in cui abbiamo un programma principale e uno secondario.

Avremo il programma principale che avvia il programma secondario (che chiameremo: ''secondo.gambas'') e lo gestisce con ''Process''.
<BR>Il programma principale invia mediante ''Process'' un dato numerico al programma secondario.
<BR>Il programma secondario intercetta quindi con l'evento ''_Read()'' il dato passato dallo "Standard Input", lo mostra in una ''TextLabel'' e lo modifica sommandolo ad un altro valore. Dopo ciò esso invierà il dato, come modificato, al programma principale mediante lo "Standard Output".
Il programma principale intercetterà il dato, inviatogli dal programma secondario, mediante l'evento "_Read()" della Classe ''Process'' leggendolo dal flusso del processo rappresentato dalla variabile di tipo ''Process''.
 Private scnd As Process
 
 
 '''Public''' Sub Button1_Click()
 
 <FONT Color=gray>' ''Avviamo il programma secondario e lo gestiamo con "''Process''":''</font>
  scnd = Exec ["<FONT Color=gray>''/percorso/del/programma/secondo.gambas''</font>"] For Read Write As "secondo"
 
 '''End'''
 
 
 '''Public''' Sub Button2_Click()
 
 <FONT Color=gray>' ''Inviamo al programma secondario il valore numerico:''</font>
  Write #scnd, 99 As Byte
 
 '''End'''
 
 
 <FONT Color=gray>' ''Se potrà essere letto almeno un byte dal processo "secondo", verrà sollevata questa subroutine:''</font>
 '''Public''' Sub secondo_Read()
 
  Dim b As Byte
 
 <FONT Color=gray>' ''Legge i dati scritti dal programma secondo:''</font>
  Read #scnd, b
 
 <FONT Color=gray>' ''Qui mostriamo in console il dato intercettato:''</font>
  TextLabel1.Text = "Dato intercettato modificato = " & CStr(b)
  
 '''End'''



Il programma secondario (chiamato: ''secondo.gambas'') che intercetta attraverso lo "Standard Input" il dato inviatogli, e lo re-invia - come modificato - al programma principale attraverso lo "Standard Output", sarà questo:
 Private flIn As File
 
 
 '''Public''' Sub Form_Open()
 
 <FONT Color=gray>' ''Apre lo standard Input per la lettura...''</font>
  flIn = Open "/dev/stdin" For Read Watch
 
 '''End'''
 
 
 '''Public''' Sub File_Read()
 
  Dim out As File
  Dim b As Byte
 
 <FONT Color=gray>' ''Legge il dato passato dallo standard Input:''</font>
  Read #flIn, b
 
  flIn.Close
 
 <FONT Color=gray>' ''Mostra nella propria TextLabel il dato intercettato:''</font>
  TextLabel1.Text = CStr(b)
 
 <FONT Color=gray>' ''Effettua la modifica del dato intercettato:''</font>
  Inc b
 
 <FONT Color=gray>' ''Apre lo standard Output per la Scrittura...''</font>
  out = Open "/dev/stdout" For Write
 
 <FONT Color=gray>' ''...e vi scrive il nuovo valore della variabile "b":''</font>
  Write #out, b As Byte
 
  out.Close
 
 '''End'''


----
Al termine dell'intera procedura avremo nella TextLabel del programma secondario scritto il dato: 99, mentre nella TextLabel del programma principale scritto il dato come modificato: 100.




=Note=
[1] Quando un programma viene eseguito, il sistema operativo genera tre file chiamati rispettivamente: "''standard input''", "''standard output''" e "''standard error''". 
<BR>Di norma lo "''standard input''" è riferito alla tastiera, mentre lo "''standard output''" e lo "''standard error''" sono riferiti allo schermo. Ogni rapporto e riferimento ai file avviene attraverso un proprio Puntatore al file, chiamato "''descrittore di file''". I ''descrittori'' di questi tre file sono rappresentati con i numeri: 0, 1 e 2.
<BR>0 = "''standard input'' ": il programma legge i dati scritti/inviati dalla periferica.
<BR>1 = "''standard output'' ": il programma scrive/invia dati alla periferica, la quale legge i dati inviati dal programma.
<BR>2 = "''standard error'' ": il programma scrive/invia messaggi d'errore al video.