Spanish [SOLUCIONADO]reducir peso de foto.

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.

Prueba esto:

Usa esto para publicar tu código.



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

mira el cambio de tamaño:

oparra said:

Usa esto para publicar tu código.

View attachment 110373

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

Click to expand...

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

muchas gracias oparra.

Funciono perfecto.

Omar Parra A. said:

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

Click to expand...

tengo una duda, esto reemplaza la imagen?

Rodstar said:

tengo una duda, esto reemplaza la imagen?

Click to expand...

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