B4J Question JShell continuous output

[walterf25]

Hi All, i was wondering if is there a way to receive the StdOut output continuously, i have a python script that I am running and i need to check the output every 1 second, the script runs for about 2 minutes, but I need to check the output every 1 second to validate the output information, is there a way to run the script and check it's output every 1 second, if so how would i go about doing this?

Thanks,
Walter

 

[DonManfred]

Do you mean something like this?

Sub Process_Globals
dim t as timer
end sub
Sub AppStart (Form1 As Form, Args() As String)
    t.Initialize("Timer",500)
    ' ...
end sub

Sub btnGO_Click
    Dim args As List
    args.Initialize
    'args.Add("-oF")
    'args.Add("GTIFF")
    args.Add("-o")
    args.Add(lblDest.Text)
    For Each item As String In lv.Items
        args.Add(item)
    Next
    shl.Initialize("shl", "gdal_merge.bat" , args)
    shl.WorkingDirectory = "C:\OSGeo4W64\"
    shl.Run(-1)  ' No timeout- Let it run...
    running = True
    t.Enabled = True   ' Timer enabled
End Sub
Sub Timer_Tick
   ' change the content of the memo field with the new temporary output
    If running  Then
        memo.Text = shl.GetTempOut
    End If
End Sub
Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
   t.Enabled = False
   running = False
   If Success And ExitCode = 0 Then
       Log("Success")
       Log(StdOut)
       memo.Text = StdOut
   Else
       Log("Error: " & StdErr)
       memo.Text = StdErr
   End If
  
End Sub

 

[walterf25]

Do you mean something like this?

Sub Process_Globals
dim t as timer
end sub
Sub AppStart (Form1 As Form, Args() As String)
    t.Initialize("Timer",500)
    ' ...
end sub

Sub btnGO_Click
    Dim args As List
    args.Initialize
    'args.Add("-oF")
    'args.Add("GTIFF")
    args.Add("-o")
    args.Add(lblDest.Text)
    For Each item As String In lv.Items
        args.Add(item)
    Next
    shl.Initialize("shl", "gdal_merge.bat" , args)
    shl.WorkingDirectory = "C:\OSGeo4W64\"
    shl.Run(-1)  ' No timeout- Let it run...
    running = True
    t.Enabled = True   ' Timer enabled
End Sub
Sub Timer_Tick
   ' change the content of the memo field with the new temporary output
    If running  Then
        memo.Text = shl.GetTempOut
    End If
End Sub
Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
   t.Enabled = False
   running = False
   If Success And ExitCode = 0 Then
       Log("Success")
       Log(StdOut)
       memo.Text = StdOut
   Else
       Log("Error: " & StdErr)
       memo.Text = StdErr
   End If
 
End Sub

I actually tried that but i don't see anything when I run shl.GetTempOut, i can see the timer running but no output at all.

Regards,
Walter

 

[Roycefer]

This link shows you how to redirect StOut and StErr to a file: https://askubuntu.com/questions/420981/how-do-i-save-terminal-output-to-a-file .

Then you can watch that file with the jFileWatcher library from within your B4J program. It will raise an event whenever that file is modified.

 

[Erel]

1. You need to call Shell.RunWithOutputEvents.

2. Handle StdOut and StdErr events. Note that these events are raised on a background thread.