estoy intentando cargar una imagen que ha sido comprimido con el modulo clase CJpeg
este me arroja un errror al cargar la imagen
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)
CitarCaptura.SaveFile ("c:\" & "\mu" & ".jpg")
Ahí sobra un "\"
Cita de: E0N en 8 Agosto 2007, 17:58 PM
CitarCaptura.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 ...
por que haces esto:
Captura.SaveFile ("c:\" & "\mu" & ".jpg")
creo que lo correcto seria asi:
Captura.SaveFile("C:\mu.jpg")
vamos, esta es la manera que uso yo y no me da ningun error
si la función no devuelve nada va sin paréntesis
Captura.SaveFile "c:\" & "\mu" & ".jpg"
y como no tiene sentido a menos que utilices variables concatenar trozos de cadenas definidas por el coder
Captura.SaveFile "C:\mu.jpg"
un saludo
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
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
'**************************************************************
'* 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)
Citarahora 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
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
Haber, si no puede ser (:S) diganmelo porke llevo dos dias mirando este post haber si alguien responde y nada
:(
:(
Salu2
:(
Ranslsad
Cita de: ranslsad en 16 Agosto 2007, 13:42 PM
Haber, si no puede ser (:S) diganmelo porke llevo dos dias mirando este post haber si alguien responde y nada
:(
:(
Salu2
:(
Ranslsad
creo que puedes obtener informacion a tus dudas...!!!!
1. - http://www.vbaccelerator.com/codelib/gfx/vbjpeg.htm
2.- http://www.pscode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=56382&strZipAccessCode=tp%2FP563821492
Gracias! De momento me a servido :D
Salu2
Ranslsad