B4J Question [Solved] JRDC2 send a response

[yves67]

I have added an little Handler to the JRDC server to be able to start a program from the Ipad
It is working but I don't know how to send the response when the program is finished
I cannot put resp As ServletResponse in the shl_ProcessCompleted sub

this is my code :

Sub Handle(req As ServletRequest, resp As ServletResponse)
    resp.ContentType = "text/html"
    Dim shl As Shell
    Log ("Command shell F2A_SQL executed")
      shl.Initialize("shl", "C:\ProgramData\JRDC\Start_F2A_SQL.bat", Null)
    shl.Run(-1)
    StartMessageLoop 'need to call this as this is a console app.
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")
     Log(StdOut)
    resp.Write("F2A_SQL Ended")   Error ......
   Else
     Log("Error: " & StdErr)
    resp.Write("F2A_SQL Erreur")  Error .......
   End If
End Sub

thanks
Yves67

 

[yves67]

oops, I have posted in the wrong forum..... should be B4J questions....
could you transfer ?

 

[Erel]

Note that this question is not related to jRDC. It is related to jServer.

In a server application it is better to use shl.RunSynchronous as each request is handled by a different thread anyway. Remove the StartMessageLoop call and call resp.Write to return the result.

 

[yves67]

ok, thanks for your message
it is working, but I would like to know the result, success and exitcode ?

like at with shl_completed sub

How to do it ?

Thanks again

 

[yves67]

I found the answer, looking the forum

Dim res AsShellSyncResult = shl.RunSynchronous(120000)
Log(res.StdOut)
Log(res.StdErr)
resp.Write(res.StdOut)

thanks
Yves67