Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private TableView As TableView
Private MsgBox As Msgboxes
Private raf As RandomAccessFile
Private link As String
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
raf.Initialize(File.DirTemp, "temp", False)
MainForm.Title = "Server Map ---> Client TableViewer"
End Sub
Sub btnDadosExibirNoWebView_Action
link = "http://localhost:51042"
Dim j As HttpJob
j.Initialize("report", Me)
j.Download(link & "/Relatorio")
pi1.Visible = True
End Sub
Sub JobDone(j As HttpJob)
If j.Success Then
If j.JobName = "report" Then
'// I could not find an example of a receipt type like this:
TableView.Items.AddAll(Array As String( j.GetString2(" Map???? ") ))
End if
End if
End Sub