Sub Activity_Resume
' Get cid & lac
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "phone", "java.lang.String")
r.Target = r.RunMethod("getCellLocation")
cid = r.RunMethod("getCid")
lac = r.RunMethod("getLac")
' Write Binary String
If File.Exists(File.DirRootExternal, "tmp_out.dat") Then
File.Delete(File.DirRootExternal, "tmp_out.dat")
End If
raf1.Initialize( File.DirRootExternal, "tmp_out.dat", False)
raf1.WriteShort(21,raf1.CurrentPosition)
raf1.WriteLong(0,raf1.CurrentPosition)
WriteUTF(raf1,"en")
WriteUTF(raf1,"Android")
WriteUTF(raf1,"1.0")
WriteUTF(raf1,"Web")
raf1.WriteByte(27,raf1.CurrentPosition)
raf1.WriteInt(0,raf1.CurrentPosition)
raf1.WriteInt(0,raf1.CurrentPosition)
raf1.WriteInt(3,raf1.CurrentPosition)
WriteUTF(raf1,"")
raf1.WriteInt(cid,raf1.CurrentPosition)
raf1.WriteInt(lac,raf1.CurrentPosition)
raf1.WriteInt(0,raf1.CurrentPosition)
raf1.WriteInt(0,raf1.CurrentPosition)
raf1.WriteInt(0,raf1.CurrentPosition)
raf1.WriteInt(0,raf1.CurrentPosition)
raf1.Flush
raf1.Close
' Get Binary String
MyData = Bit.InputStreamToBytes( File.OpenInput(File.DirRootExternal, "tmp_out.dat") )
' Test Binary String sent
'ToastMessageShow( BC.StringFromBytes(MyData, "UTF8"),True)
' Send Request
Http.Initialize("http",Me)
Http.PostBytes("http://www.google.com/glm/mmap", MyData )
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
' Write InputStream
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "tmp_in.dat", False)
File.Copy2(Job.GetInputStream, out)
out.Close
' Test Binary String return
MyData = Bit.InputStreamToBytes( File.OpenInput(File.DirRootExternal, "tmp_in.dat") )
ToastMessageShow( BC.StringFromBytes(MyData, "UTF8"),True)
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Sub WriteUTF(raf As RandomAccessFile, s As String)
Dim b() As Byte = s.GetBytes("UTF8")
raf.WriteShort(b.Length, raf.CurrentPosition)
raf.WriteBytes(b, 0, b.Length, raf.CurrentPosition)
End Sub