B4J Code Snippet Redirect the output to a file

Name: RedirectOutput

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

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:

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.

 

[jinyistudio]

Hi

How do i redirect to Standard output(Screen) again when i redirect it to file ?

 

[Erel]

Initialize ps with this code:

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"))

 

[Mashiane]

Name: RedirectOutput

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

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:

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.

I'm getting... failed to initialize logger

 

[Erel]

Can you post the full error message from the logs?

 

[tufanv]

Name: RedirectOutput

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

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:

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.

where should we direct it if it is installed via installer ?

 

[Erel]

File.DirData / XUI.DefaultFolder.

 

[Dadaista]

Initialize ps with this code:

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"))

Above is not working for me

 

[Erel]

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

 

[Dadaista]

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

Hi
You are right @Erel

After I use

Sub RedirectOutput (Dir As String, FileName As String)

I need stop the output to file