• Jueves 28 de Marzo de 2024, 21:19

Autor Tema:  Problemas Con Picture  (Leído 1368 veces)

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Problemas Con Picture
« en: Viernes 6 de Abril de 2007, 19:18 »
0
Salu2. Pos eso

Cargo una imagen en un picture con un loadpicture y al hacer el savepicture picture1.picture,destino

La imagen destino ha cambiado de tamaño y resolución

osea la imagen cargada es 12cmx12cm y 200PPP y el grabado se queda en 33cmx33cm y 72ppp.

Es posible obligar a grabar como 12x12 y 72ppp?

Gracias.
 :comp:  :smartass:  :comp:
Mi mujer tiene un físico bárbaro!!!. Einstein.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Problemas Con Picture
« Respuesta #1 en: Sábado 7 de Abril de 2007, 06:56 »
0
Estuve haciendo pruebas y encontré que cambiando la propiedad 'AutoSize' (de un picturebox) un archivo bmp cambia de tamaño cuando es falsa y no la cambia cuando es verdadera. Ese puede ser el problema que tienes de la diferencia de tamaño de archivos. Lo de cambiar los PPP, eso no lo sé.

 :comp:

Stevenmn

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Re: Problemas Con Picture
« Respuesta #2 en: Martes 10 de Abril de 2007, 22:22 »
0
Pues yo probé poniedolé al picture1 autosize = true y false y  siempre me lo guardo con la misma resolcuión y tamaño.


tenga en cuenta que sea la misma extensión.

Esto fue lo que yo hice.
Hay que agregarle el common dialog --nombre = cd

Código: Text
  1. Option Explicit
  2. Private Sub Command1_Click()
  3. Picture1.Picture = LoadPicture("c:\listo.jpg")
  4. End Sub
  5.  
  6. Private Sub Command2_Click()
  7. cd.ShowSave
  8. SavePicture Picture1.Picture, cd.InitDir & cd.FileName
  9. End Sub
  10.  


También es mejor hacer una especie de visor de imagenes, yo estoy hacie
ndo un tuto, pero no hay tiempito,  cuando termine lo posteo.l

 :ph34r:  :ph34r:  :ph34r:

Cualquier duda con gusto hago lo posible por ayudarle.

 :kicking:  :kicking:  :kicking:

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Problemas Con Picture
« Respuesta #3 en: Viernes 13 de Abril de 2007, 22:25 »
0
Salu2. Gracias, pero por mas que lo he intentado si grabo desde el picture se van las medidas a hacer puñetas, pero he comprobado que si guardo lo recogido en la db si me la guarda bien.

Código: Text
  1. ValTama es Long
  2. StrFotoCrea es String
  3.  
  4. ValTama = AbreTabla.Fields("PD").FieldSize
  5. StrFotoCrea = AbreTabla.Fields("PD").GetChunk(0, ValTama)
  6.  
  7.       Open "c:\Foto.jpg" For Binary As #1
  8.       Put #1, , StrFotoCrea
  9.       Close #1
  10.  

 :comp:  :smartass:  :comp:

Muchas gracias.

P.D. Estaría bien poder guardarla con el tamaño y los PPP a mi gusto así que si alguien sabe si es posible.
Mi mujer tiene un físico bárbaro!!!. Einstein.