Sub Process_Globals

' Juan Antonio Villalpando
' juana1991@yahoo.com 

Dim hc As HttpClient
Dim tarea1, n As Int
tarea1 = 1    ' Es la tarea 1
End Sub

Sub Globals
    ' Crearemos 9 etiquetas. Debemos declarar 4 x 4
    Dim Labels(4, 4) As Label
    Dim numero_label As Int
    numero_label = 0

    Dim ImageView1, ImageView2, ImageView3 As ImageView
    Dim lista As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
hc.Initialize("hc")
End If
' Creamos mediante código 9 etiquetas en grupos de 3
 Dim ancho, alto As Int
    ancho = 80dip
    alto = 60dip
    
     For y = 1 To 3
        For x = 1 To 3
            Dim b As Label
            numero_label = numero_label + 1
            b.Initialize("Label") 
            b.TextSize = 14
            b.Text = numero_label
            b.Tag = numero_label
            ' El -80 es para que salga la primera columna más a la izquierda.
            Activity.AddView(b, -80 + x * (ancho + 10dip), y * (alto + 10dip), ancho, alto)
            Labels(x, y) = b        
        
    Next
      Next
Activity.LoadLayout("layout")
        
End Sub

Sub Buscar_dibujo
ProgressDialogShow("Buscando dibujos.")

Dim req As HttpRequest
Dim Query As String

Query="SELECT * FROM grafico" ' Where ID=" & n
' req.InitializePost2("http://192.168.1.3/imagenes_web.php", Query.GetBytes("UTF8"))
req.InitializePost2("http://elandroide.webatu.com/imagenes_web.php", Query.GetBytes("UTF8"))
hc.Execute(req, tarea1) '''''''' En ResponseSuccess hará el Case de tarea1

End Sub

' Esta es la Respuesta de la orden hc.Execute
Sub hc_ResponseSuccess (Response As HttpResponse, tarea As Int)
Dim res As String
res = Response.GetString("UTF8")
Log("Respuesta del servidor: " & res)
Dim parser As JSONParser
parser.Initialize(res)

Select tarea

' ************* Tarea1 *****************
Case tarea1
' Ver todas la información de la Base de datos.


lista.Initialize
lista = parser.NextArray

Log(lista)
Dim m As Map
For n = 1 To 3
m = lista.Get(n-1)

Labels(1,n).Text= m.Get("ID")          ' 1
Labels(2,n).Text= m.Get("nombre")      ' fresa.gif
Labels(3,n).Text= m.Get("comentario")  ' Esto es fresa
 Next
ProgressDialogHide
End Select

Response.Release
End Sub


' Error en la conexión con la Base de datos.
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, tarea As Int)
Log("Error: " & Reason & ", StatusCode: " & StatusCode)
If Response <> Null Then
Log(Response.GetString("UTF8"))
Response.Release
End If
ProgressDialogHide
End Sub

Sub Button1_Click
' Muestra toda la información de la base de datos
    Buscar_dibujo
End Sub

Sub Button2_Click
' Situa los dibujos en los ImageView. Utiliza el módulo de servicio ImageDownloader
' para bajar las imágenes de Internet 
Dim m As Map
    Dim links As Map
    links.Initialize
    m = lista.Get(0)
    links.Put(ImageView1, "http://elandroide.webatu.com/imagenes/" & m.Get("nombre"))
    m = lista.Get(1)
    links.Put(ImageView2, "http://elandroide.webatu.com/imagenes/" & m.Get("nombre"))
    m = lista.Get(2)
    links.Put(ImageView3, "http://elandroide.webatu.com/imagenes/" & m.Get("nombre"))
    CallSubDelayed2(ImageDownloader, "Download", links)
End Sub

// De los tutoriales de b4a

// Adaptado a local por Juan Antonio Villalpando
// juana1991@yahoo.com 

<?php

// $databasehost = "localhost";
// $databasename = "android";
// $databaseusername ="root";
// $databasepassword = "1234";

 $databasehost = "mysql12.000webhost.com";
 $databasename = "9048122_imagen";
 $databaseusername ="9048122_imagen";
 $databasepassword = "contraseña";


$con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error());
mysql_set_charset("utf8");
mysql_select_db($databasename) or die(mysql_error());
$query = file_get_contents("php://input");

$sth = mysql_query($query);


if (mysql_errno()) { 
header("HTTP/1.1 500 Internal Server Error");
echo $query.'\n';
echo mysql_error(); 
}
else
{
$rows = array();
while($r = mysql_fetch_assoc($sth)) {

$rows[] = $r;
}


print json_encode($rows);
}
?>

Librerías necesarias:
HTTP, JSON y StringUtils

Sub Process_Globals
    Dim hc As HttpClient
    Dim subir, bajar As Int
    subir = 1    ' Es la tarea 1
    bajar = 2 ' Es la tarea 2

' Juan Antonio Villalpando
' juana1991@yahoo.com

' octubre-13
End Sub

Sub Globals
    
    If File.Exists(File.DirRootExternal,"fresa.gif") = False Then
    ' Hemos guardado fresa.gif en la carpeta Files.
    ' Ahora lo copiamos en la SDCard.
        File.Copy(File.DirAssets,"fresa.gif",File.DirRootExternal,"fresa.gif")
    End If
    
    Dim cadena As String ' Esto será la imagen convertida a String
    Dim Label1 As Label
    Dim ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
    hc.Initialize("hc")
    End If
    Activity.LoadLayout("layout")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

' Esta es la Respuesta de la orden hc.Execute
Sub hc_ResponseSuccess (Response As HttpResponse, tarea As Int)

Select tarea

Case subir
' Para subir no hace falta poner aqui ningún código
' ya que sube directamente al pulsar el botón 2 y no envía respuesta.
' res = Response.GetString("UTF8")
' Log("Respuesta del servidor: " & res)

Case bajar
' Obtiene de la base de datos la cadena de caracteres que forma la imagen.
Dim res As String
res = Response.GetString("UTF8")
Dim parser As JSONParser
parser.Initialize(res)

        Log("Respuesta del servidor: " & res)
        'res =  [{"ID":"1","nombre":"ARJIIIOJKNDKUIVNN......", "comentario":"Esto es fresa"}]
        ' El Log solo muestra 4000 caracteres.

'''''''''''''''''''''''''''''''''''''''''''
' Convierte la cadena a Imagen
        Dim l As List
        l = parser.NextArray
        If l.Size = 0 Then
        Label1.Text = "N/A"
        Else
            Dim codifica As StringUtils 
            Dim cTmp As String  
            Dim out As OutputStream

            Dim m As Map
            Dim Buffer  As InputStream 
            m = l.get(0)
            cTmp = m.Get("nombre")
            Label1.Text = cTmp
            Buffer.InitializeFromBytesArray(codifica.DecodeBase64(cTmp),0,8000)  

            out = File.OpenOutput(File.DirRootExternal,"freson.gif",False)
            File.Copy2(Buffer,out)
            out.close  
'   Situa la imagen en el ImageView1   
            ImageView1.Bitmap=LoadBitmap(File.DirRootExternal,"freson.gif")
        End If

End Select
ProgressDialogHide
End Sub

' Error en la conexión con la Base de datos.
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, tarea As Int)
Log("Error: " & Reason & ", StatusCode: " & StatusCode)
If Response <> Null Then
Log(Response.GetString("UTF8"))
Response.Release
End If
ProgressDialogHide
End Sub

Sub Button1_Click ' CONVERTIR
' Convierte la imagen a cadena de caracteres (string.
    Dim codifica As StringUtils 
    Dim InputStream1 As InputStream
    InputStream1 = File.OpenInput( File.DirRootExternal, "fresa.gif")
    Dim OutputStream1 As OutputStream
    OutputStream1.InitializeToBytesArray(8000)
    File.Copy2(InputStream1, OutputStream1)
    Dim Buffer()  As Byte
    Buffer = OutputStream1.ToBytesArray
    ' Convierte la imagen a String (cadena de caracteres.
    cadena = codifica.EncodeBase64(Buffer)    
    Label1.text = cadena
End Sub

Sub Button2_Click ' SUBIR
' Sube la cadena al servidor MySQL.
Dim req As HttpRequest
Dim Query As String

Query="INSERT INTO dibujos(ID,nombre,comentario) VALUES(1,'" & cadena & "','Esto es fresa')"
req.InitializePost2("http://elandroide.webatu.com/imagenes.php", Query.GetBytes("UTF8"))
hc.Execute(req, subir) '''''''' En ResponseSuccess hará el Case de subir
End Sub

Sub Button3_Click ' BAJAR
' Baja la cadena del servidor MySQL.
' La convierte la cadena de caracteres en Imagen.
' La sitúa la imagen en ImageView1

ProgressDialogShow("Buscando lista de imagenes.")

Dim req As HttpRequest
Dim Query As String
Query="SELECT ID,nombre,comentario FROM dibujos WHERE ID LIKE '1'"
req.InitializePost2("http://elandroide.webatu.com/imagenes.php", Query.GetBytes("UTF8"))

ProgressDialogHide
hc.Execute(req, bajar) '''''''' En ResponseSuccess hará el Case de bajar

End Sub

// De los tutoriales de b4a

// Adaptado a local por Juan Antonio Villalpando
// juana1991@yahoo.com 

<?php

// $databasehost = "localhost";
// $databasename = "android";
// $databaseusername ="root";
// $databasepassword = "1234";

 $databasehost = "mysql12.000webhost.com";
 $databasename = "9048122_imagen";
 $databaseusername ="9048122_imagen";
 $databasepassword = "contraseña";


$con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error());
mysql_set_charset("utf8");
mysql_select_db($databasename) or die(mysql_error());
$query = file_get_contents("php://input");

$sth = mysql_query($query);


if (mysql_errno()) { 
header("HTTP/1.1 500 Internal Server Error");
echo $query.'\n';
echo mysql_error(); 
}
else
{
$rows = array();
while($r = mysql_fetch_assoc($sth)) {

$rows[] = $r;
}


print json_encode($rows);
}
?>