PROBLEMA AL CARGAR UN JPEG EN UN PICTURE

[TUNOVATO]

estoy intentando cargar una imagen que ha sido comprimido con el modulo clase CJpeg

este me arroja un errror al cargar la imagen

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Captura As New cJpeg
Dim imagen As Image
       
        Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
        Captura.Quality = 70 ' aqui se ajusta la calidad, entre 1 y 100
        Captura.SampleScreen   
        Captura.SaveFile ("c:\" & "\mu" & ".jpg")



Picture1.Picture = LoadPicture("c:\mu.jpg")

End Sub



Error "481" en tiempo de ejecucion
la imagen no es valida...

nota: el codigo es copi paste (no es mio)

[~~]

Captura.SaveFile ("c:\" & "\mu" & ".jpg")

Ahí sobra un "\"

[TUNOVATO]

Captura.SaveFile ("c:\" & "\mu" & ".jpg")

Ahí sobra un "\"

creo que eso lo vi ya, lo he corregido, pero persiste el error...!!!!

aca esta el code, la info, y modificaciones que le he echo al code ...

[wACtOr]

por que haces esto:

Código (vb) [Seleccionar] Expandir

Captura.SaveFile ("c:\" & "\mu" & ".jpg")


creo que lo correcto seria asi:

Código (vb) [Seleccionar] Expandir

Captura.SaveFile("C:\mu.jpg")


vamos, esta es la manera que uso yo y no me da ningun error

[Hans el Topo]

si la función no devuelve nada va sin paréntesis

Código [Seleccionar] Expandir

Captura.SaveFile "c:\" & "\mu" & ".jpg"

y como no tiene sentido a menos que utilices variables concatenar trozos de cadenas definidas por el coder

Código [Seleccionar] Expandir


Captura.SaveFile "C:\mu.jpg"

un saludo

[TUNOVATO]

definitivo he hecho las pruebas con los dos modulos de compresion a archivos jpeg...!!!

he llegado a la conclusion de que el resultado de la la compresion a jpeg resulta en un archivo no valido para cargar en un contenedor del tipo picture.

insto a culquiera me pruebe lo contrario con su  codigo fuente + el proyecto (controles: 01 picture, 02 commandbotton (guardar jpeg, cargar jpeg)




modulos en cuestion:

01 cJPEGi Integer JPEG Encoder by Ron van Tilburg
http://www.savefile.com/files/960150

02 JPEG Encoder Class  por korejwa
http://www.savefile.com/files/960154

[TUNOVATO]

Bueno saludos pa todos..!!!

despues de tanta ladilla he encontrado un modulo clase Cjpeg.cls que si realiza el trabajo de compresion al guardar en fomato *.jpeg y cargar la imagen valida al contenedor picture..!!!!

aca esta el Code

Código [Seleccionar] Expandir

'**************************************************************
'*  Codigo Ejemplo de utilizacion del modulo clase cJpeg.cls  *
'       Class Name:   cJpeg.Cls "JPEG Encoder Class"          *
'       Author:       John Korejwa  <korejwa@tiac.net>        *
'       Version:      0.9 beta  [26 / November / 2003]        *
'*  Despues de tanta ladilla la solucion lenta pero solucion  *
'*                      Por Tunovato                          *
'**************************************************************

Private Sub Capturar_Click()
Dim Captura As New cJpeg

    Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
    Captura.Quality = 10 ' Este numero es variable de 1 a 100, la calidad de la imagen.
    Captura.SampleScreen
    Captura.SaveFile ("C:\" & "Captura" & ".jpg")

End Sub

Private Sub Cargar_Click()
Picture1.Picture = LoadPicture("c:\Captura.jpg")
End Sub

Private Sub Form_Resize()
On Error Resume Next

    If Me.WindowState = vbNormal Or Me.WindowState = vbMaximized Then
        Picture1.Move 1700, 50, Me.ScaleWidth - 1800, Me.ScaleHeight - 100
    End If
End Sub


aca el proyecto completo
code+modulo

http://www.savefile.com/files/970741


a todos gracias por responder...!!!!

ahora solo me faltaria crear una funcion para enviar la imagen capturada por el servidor al cliente (esto que me sirva en forma general todo tipo de archivo)

[~~]

ahora solo me faltaria crear una funcion para enviar la imagen capturada por el servidor al cliente (esto que me sirva en forma general todo tipo de archivo)

http://foro.elhacker.net/index.php/topic,170051.0.html

[ranslsad]

Hola, tengo una duda..

Yo tengo una imagen ya cargada en un PictureBox (de WebCam)
Ahora, como la guardo del PictureBox "Comprimida" con este modulo..?

o Guardarla en JPG normal y una vez guardada Comprimir la foto esa..

Bueno desde ya Gracias

Salu2

Ranslsad

[ranslsad]

Haber, si no puede ser (:S) diganmelo porke llevo dos dias mirando este post haber si alguien responde y nada


Salu2

Ranslsad