- Jun 6, 2020
- 11,517
- 4,383
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.
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.
برای دیدن لینک ها باید ثبت نام کنید