Sub JobDone(job As HttpJob)
If job.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirDefaultExternal, "demo.gzip", False)
File.Copy2(job.GetInputStream, out)
out.Close '<------ very important
Else
Log("Error: " & job.ErrorMessage)
End If
job.Release
Arc.AsyncUnGzip(File.DirDefaultExternal, "demo.gzip", File.DirDefaultExternal, "Unzipped")
End Sub
Sub Unzipped_UnGzipDone(CompletedWithoutError As Boolean)
Log("Unzipped")
Dim lst As List
lst = File.ListFiles(File.DirDefaultExternal)
For i = 0 To lst.Size - 1
Log(lst.Get(i))
Next
If File.Exists(File.DirDefaultExternal, "demo") Then
Log("filling edittext")
Label1.Text = File.ReadString(File.DirDefaultExternal, "demo")
End If
End Sub