Spanish [SOLUCIONADO]reducir peso de foto.

mvera

Active Member
Licensed User
Longtime User
hola tengo un sistema que saca foto y sube al servidor.
estoy ocupando la librería resizepicture, para bajar el peso de una foto antes del envió.

Camera1_PictureTaken (Data() As Byte)
Dim filename As String =Starter.codigo_envio&".jpg" ' "1.jpg"
Dim dir As String = File.DirInternal
Dim ruta_ As String


camEx.SavePictureToFile(Data, dir, filename)
camEx.StartPreview 'restart preview

pic.resize(dir,filename, 200, 300,dir, "vedi1","jpeg","yes") 'deberia reducir el peso de la foto.

Log("Foto guardada." & CRLF & "Peso: " & File.Size(dir, filename))


'SUBIR AL SERVIDOR
subir_fotografia(filename)

log:
lib:OK.. /data/user/0/getlocation/files/1368.jpg
Foto guardada.
Peso: 2082119


Pero esta subiendo fotos por sobre 1 megas, lo cual es mucho.
Alguien me puede orientar en mi error.
 

TILogistic

Expert
Licensed User
Longtime User
Prueba esto:

B4X:
'    Resize and Save
    Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, FileName, 35, 35, True)
    Dim out As OutputStream = File.OpenOutput(xui.DefaultFolder, FileName, False)
    img.WriteToStream(out, 100, "PNG")
    out.Close
 

TILogistic

Expert
Licensed User
Longtime User
Usa esto para publicar tu código.

1616631101120.png


o sube un pequeño proyecto para saber que deseas hacer.
 

Rodstar

New Member
Prueba esto:

B4X:
' Cambiar el tamaño y guardar
    Dim img como B4XBitmap = xui.LoadBitmapResize(File.DirAssets, FileName, 35, 35, True)
    Atenuar como OutputStream = File.OpenOutput(xui.DefaultFolder, FileName, False)
    img.WriteToStream(fuera, 100, "PNG")
    fuera.Cerrar
tengo una duda, esto reemplaza la imagen?
 
Top