Spanish [SOLUCIONADO]reducir peso de foto.

[mvera]

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]

Prueba esto:

'    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]

Usa esto para publicar tu código.

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

 

[TILogistic]

mira el cambio de tamaño:

 

[mvera]

Usa esto para publicar tu código.

View attachment 110373

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

gracias lo voy a probar, se me había olvidado que queda mejor el código publicado así.

 

[mvera]

muchas gracias oparra.

Funciono perfecto.

 

[Rodstar]

Prueba esto:

' 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?

 

[TILogistic]

tengo una duda, esto reemplaza la imagen?

no, crea otra imagen con el tamaño dado.