B4J Code Snippet Redirect the output to a file

Erel said:

Name: RedirectOutput

Description: This sub will redirect the program output to a file.

B4X:

Sub RedirectOutput (Dir As String, FileName As String)
   #if RELEASE
   Dim out As OutputStream = File.OpenOutput(Dir, FileName, False) 'Set to True to append the logs
   Dim ps As JavaObject
   ps.InitializeNewInstance("java.io.PrintStream", Array(out, True, "utf8"))
   Dim jo As JavaObject
   jo.InitializeStatic("java.lang.System")
   jo.RunMethod("setOut", Array(ps))
   jo.RunMethod("setErr", Array(ps))
   #end if
End Sub

Usage:

B4X:

RedirectOutput(File.DirApp, "logs.txt")

If this app will be installed with an installer then you should not use File.DirApp as it will be read-only.

Click to expand...

Erel said:

Name: RedirectOutput

Description: This sub will redirect the program output to a file.

B4X:

Sub RedirectOutput (Dir As String, FileName As String)
   #if RELEASE
   Dim out As OutputStream = File.OpenOutput(Dir, FileName, False) 'Set to True to append the logs
   Dim ps As JavaObject
   ps.InitializeNewInstance("java.io.PrintStream", Array(out, True, "utf8"))
   Dim jo As JavaObject
   jo.InitializeStatic("java.lang.System")
   jo.RunMethod("setOut", Array(ps))
   jo.RunMethod("setErr", Array(ps))
   #end if
End Sub

Usage:

B4X:

RedirectOutput(File.DirApp, "logs.txt")

If this app will be installed with an installer then you should not use File.DirApp as it will be read-only.

Click to expand...

Erel said:

Initialize ps with this code:

B4X:

Dim fd As JavaObject
fd.InitializeStatic("java.io.FileDescriptor")
Dim jout As JavaObject
jout.InitializeNewInstance("java.io.FileOutputStream", Array(fd.GetField("out")))
ps.InitializeNewInstance("java.io.PrintStream", Array(jout, True, "utf8"))

Click to expand...

Erel said:

Ok. Can't say more based on the information you provided.

Click to expand...

Sub RedirectOutput (Dir As String, FileName As String)