Indirizzare dati da un programma ad un altro e ad un Terminale
Da Gambas-it.org - Wikipedia.
Versione del 16 feb 2013 alle 07:24 di Vuott (Discussione | contributi)
Il caso in questione è quello in cui si inviano dati da un programma Gambas ad un altro programma Gambas e ad un Terminale.
Nel primo esempio, letti i dati da un file, vengono indirizzati contemporaneamente ad una finestra Terminale ed alla Console dell'IDE di Gambas. Per l'esempio seguente è necessario impostare anche il componente gb.desktop:
Private fl0 As File Private fl1 As File Private fl2 As File Public Sub Form_Open() ' Viene aperto un Terminale: Desktop.OpenTerminal End Public Sub Button1_Click() fl0 = Open "percorso_file_di_cui_intercettare_i_dati" For Read Watch ' Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta la console dell'IDE di Gambas: fl1 = Open "/dev/pts/N1" For Write ' ...o anche: Output ' Viene aperto il file speciale (da individuarsi preliminarmente) che rappresenta il Terminale aperto all'inizio: fl2 = Open "/dev/pts/N2" For Write ' ...o anche: Output End Public Sub File_Read() Dim s As String ' Legge i dati dal file: Read #fl0, s, -256 ' Ridirige i dati dalla console di Gambas all'altro programma: Output To #fl1 ' Scrive nell'altro programma: Print s; ' ...o anche: Write #fl1, s ' Quindi scrive nel programma: Print s; ' ...o anche: Write #fl1, s ' Ridirige, inoltre, i dati anche al Terminale: Output To #fl2 ' Scrive quindi anche in una "TextArea" del programma principale: TextArea1.Text = TextArea1.Text & s End