Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim hc As HttpClient
Dim consultas, insert, foto As Int
consultas = 2
insert =3
foto =4
Dim Buffer() As Byte 'declares an empty array
Dim a As StringUtils
Dim consulfoto As String
Dim nombrefoto As String
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim s As String
Dim ImageView1 As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
hc.Initialize("hc")
End If
Activity.LoadLayout("2")
End Sub
Sub ExecuteRemoteQuery(Query As String, TaskId As Int)
Dim req As HttpRequest
req.InitializePost2("http://192.168.0.17/android/codigo1.php", Query.GetBytes("UTF8"))
hc.Execute(req, TaskId)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("Error: " & Reason & ", StatusCode: " & StatusCode)
If Response <> Null Then
Log(Response.GetString("UTF8"))
Response.Release
End If
ProgressDialogHide
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Dim res As String
res = Response.GetString("UTF8")
Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Select TaskId
Case foto
Dim l As List
l = parser.NextArray
If l.Size = 0 Then
ToastMessageShow("no hay datos", False)
Else
Dim m As Map
m = l.Get(0)
consulfoto = m.Get("IMAGE")
nombrefoto = m.Get("NAME")
lecturafoto
'
End If
End Select
Response.Release
End Sub
Sub insertofoto
'convert the image file to a bytes array
Dim InputStream1 As InputStream
' InputStream1 = File.OpenInput(File.DirRootExternal, "upc.3gp")
InputStream1 = File.OpenInput("/mnt//extSdCard", "upc.3gp")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(64000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
Dim sa As StringUtils
s=sa.EncodeBase64(Buffer)
End Sub
Sub lecturafoto
Dim In As InputStream
Dim su As StringUtils
Dim out As OutputStream
Dim b() As Byte
Dim bmp As Bitmap
b =su.DecodeBase64(consulfoto)
In.InitializeFromBytesArray(b,0,b.Length)
' ABRE EL ARCHIVO EN LA SDCAR Y LA ABRE EN EL IMAGEVIEW PERO NO SE PUEDE ABRIR DESDE LA SDCARD
' bmp.Initialize2(In)
' out = File.OpenOutput(File.DirRootExternal,"foto.jpg",False)
' File.Copy2(In,out)
' out.close
' In.Close
'
'GUARDA EL ARCHIVO EN LA SDCARD PERO NO ABRE EN EL IMAGEVIEW
out = File.OpenOutput("/mnt//extSdCard","New.3gp",False)
'out = File.OpenOutput(File.DirRootExternal,"New.3gp",False)
File.Copy2(In,out)
out.close
'bmp.Initialize2(In)
In.Close
End Sub
Sub cargar_Click
Dim fotob As String
'fotob="SELECT IMAGE FROM PICTURE WHERE ID= 10 AND NAME ='nello'"
fotob="SELECT foto FROM familia WHERE ID='ospino'"
ExecuteRemoteQuery(fotob,foto)
End Sub
Sub guarda_Click
Dim imagen As String
insertofoto
'imagen="INSERT INTO picture (ID, IMAGE, NAME) VALUES (NULL,'"&s&"' ,'nello')"
'imagen="INSERT INTO familia (id ,direccion, foto) VALUES ('ospino','calle 20# 18c-116 barrio guatapuri','"&s&"' )"
'ExecuteRemoteQuery(imagen,insert)
Dim z As String
z= DateTime.Date(DateTime.Now)&"/" &DateTime.time(DateTime.Now)
Log("data time: " & z)
imagen="INSERT INTO video (id, video,fecha) VALUES ('plata','"&s&"', '"& z &"')"
ExecuteRemoteQuery(imagen,insert)
End Sub
