B4J Question Shell.run no output

[Alpay ABAY]

I tried a few different ways, I couldn't make this shell output work.
I tested .jar on ubuntu, when I run same code it works.
Not raising also any exception. It is a console application.
Looks like when I make shell call, application stops working. Never reaches to Log("Operation complete")

Please if anyone knows why ?

    Try
        Dim shl As Shell
        shl.Initialize("shl", "/usr/bin/mpstat", Array("-P","ALL"))
        shl.Run(-1)
        Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
        Log("done")
        Log("Ecode:"&ExitCode)
        Log("Error:"&StdErr)
        Log("out:"&StdOut)
        Log("Status:"&Success)
    Catch
        Log("Error execution")
        Log(LastException)
    End Try 
    Log("Operation complete")

 

[teddybear]

I guess you are using Non-UI app, you need to do StartMessageLoop waiting for shl_ProcessCompleted .
Try this code

Sub AppStart (Args() As String)
        Dim shl As Shell
        shl.Initialize("shl", "/usr/bin/mpstat", Array("-P","ALL"))
        shl.Run(-1)
        StartMessageLoop
End Sub

Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
        Log("done")
        Log("Ecode:"&ExitCode)
        Log("Error:"&StdErr)
        Log("out:"&StdOut)
        Log("Status:"&Success)
        Log("Operation complete")
        StopMessageLoop
End Sub

 

[Alpay ABAY]

I guess you are using Non-UI app, you need to do StartMessageLoop waiting for shl_ProcessCompleted .
Try this code

Sub AppStart (Args() As String)
        Dim shl As Shell
        shl.Initialize("shl", "/usr/bin/mpstat", Array("-P","ALL"))
        shl.Run(-1)
        StartMessageLoop
End Sub

Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
        Log("done")
        Log("Ecode:"&ExitCode)
        Log("Error:"&StdErr)
        Log("out:"&StdOut)
        Log("Status:"&Success)
        Log("Operation complete")
        StopMessageLoop
End Sub

Thanks, but It is not relating to that. StartmessageLoop only wait main thread, but i call it with wait for to collect output and return, also your method with fail. I have various calls.

 

[teddybear]

Thanks, but It is not relating to that. StartmessageLoop only wait main thread, but i call it with wait for to collect output and return, also your method with fail. I have various calls.

The code works here. this's the result.

I don't know why it does not work your there. you'd better upload a small project for the question.

 

[Alpay ABAY]

I will upload the code. But why wait for is not working in that code block is a mystery for me.
If somebody has an idea, so welcome!

 

[DonManfred]

As already written you should upload a small project showing the issue.
Hard to help otherwise.

What kind of module is your code in? A Serverhandler, a Class, a CodeModule?

 

[Alpay ABAY]

I do not have any special code. I could'nt make it work so I stopped before start developing related library. Simple console application with code below.
Added also StartMessageLoop with no change on result.

'Non-UI application (console / server application)
#Region Project Attributes
    #CommandLineArgs:
    #MergeLibraries: True
#End Region

Sub Process_Globals
    Dim systemType As String
    'Dim utils As serverStatUtils
    Dim EOL As String = Chr(13)&Chr(10)
End Sub

Sub AppStart (Args() As String)
    Try
        Dim shl As Shell
        shl.Initialize("shl", "/usr/bin/mpstat", Array("-P","ALL"))
        shl.WorkingDirectory = "/"
        shl.RunWithOutputEvents(6000)
        Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
        Log("done")
        Log("Ecode:"&ExitCode)
        Log("Error:"&StdErr)
        Log("out:"&StdOut)
        Log("Status:"&Success)
    Catch
        Log("Error execution")
        Log(LastException)
    End Try
    Log("Operation complete")      
    StartMessageLoop
End Sub

 

[teddybear]

'Non-UI application (console / server application)
#Region Project Attributes
    #CommandLineArgs:
    #MergeLibraries: True
#End Region

Sub Process_Globals
    Dim systemType As String
    'Dim utils As serverStatUtils
    Dim EOL As String = Chr(13)&Chr(10)
End Sub

Sub AppStart (Args() As String)
    Try
        Dim shl As Shell
        shl.Initialize("shl", "/usr/bin/mpstat", Array("-P","ALL"))
        shl.WorkingDirectory = "/"
        shl.RunWithOutputEvents(6000)
        Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
        Log("done")
        Log("Ecode:"&ExitCode)
        Log("Error:"&StdErr)
        Log("out:"&StdOut)
        Log("Status:"&Success)
    Catch
        Log("Error execution")
        Log(LastException)
    End Try
    Log("Operation complete")
    StartMessageLoop
End Sub

The code you posted will not work，did you try that code I posted at post#2？
The project is attached