B4J Question Jshell not working

[marcick]

tried about ten variants found here but no success.
For example this code, I have "success" in the log but the command prompt windows does not appear. Where I'm wrong ?

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

Sub Process_Globals
    
End Sub


Sub AppStart (Args() As String)
    Log("Hello world!!!")
    Dim shl As Shell
    shl.Initialize("shl","c:\windows\system32\cmd.exe",Null)
    shl.Run(3000)
    StartMessageLoop
End Sub

Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    If Success And ExitCode = 0 Then
        Log("Success")       
    Else
        Log("Error: " & StdErr)
    End If
End Sub

 

[DonManfred]

Is this a nonui app?

If i add your code to a nonui app i get the following result which should be ok i guess....

Hello world!!!
Success

Note that shell does not open any ui window. Even not a command prompt.

Where I'm wrong ?

Not telling us what exactly you are trying to archieve.

 

[marcick]

Yes, but it is said here that it should work also in this case

 

[DonManfred]

Yes, but it is said here that it should work also in this case

It does. The command is executed. There is no UI appearing.

 

[marcick]

Ah ... so the command prompt window does not appear ?
If I call a batch file I see nothing ?
If I call an exe that is a B4J Non-UI app packaged with B4J packager It is executed but I see nothing ? Any workaround in this case ?

 

[DonManfred]

Ah ... so the command prompt window does not appear ?

NO!

If I call a batch file I see nothing ?

NO!
You get the output in the shl_ProcessCompleted event.

If I call an exe that is a B4J Non-UI app packaged with B4J packager It is executed but I see nothing ?

CHECK the output in shl_ProcessCompleted event.

 

[marcick]

I'll come back later and have a look, thanks ?

 

[Erel]

BTW, always better to use Wait For when possible. This code will open a new console window.

Sub AppStart (Args() As String)
    Log("Hello world!!!")
    DoSomething
    StartMessageLoop
End Sub


Sub DoSomething
    Dim shl As Shell
    shl.Initialize("shl","c:\windows\system32\cmd.exe",Array("/c", "start"))
    shl.Run(-1)
    Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    If Success And ExitCode = 0 Then
        Log("Success")
    Else
        Log("Error: " & StdErr)
    End If
End Sub