Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private sh As Shell
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
End Sub
Sub Button1_Action
Dim out As OutputStream = File.OpenOutput(File.DirApp, "image.png", False)
MainForm.RootPane.Snapshot.WriteToStream(out)
out.Close
Dim params As List
params.Initialize
'params.Add("printername=novapdf")
params.Add("file=template.html")
sh.Initialize("sh", "printhtml.exe", params)
sh.WorkingDirectory = File.DirApp
sh.Run(-1)
End Sub
Sub sh_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log("Success=" & Success & ", StdOut=" & StdOut & ", StdErr=" & StdErr)
End Sub