FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
DBimage, Salvar imagen en Archivo Externo
Tengo un Dbimage, con un popupmenu hay una opcion para grabar la imagen
a un archivo externo, la idea es que al dar click derecho y seleccionando la opcion grabar fotografia, se Active un Dialogo para grabar Solo que Me marca error el siguiente codigo, como puedo hacer esta tarea mi procedimiento es el siguiente: Tprocedure TFCONSULTAR.GrabarFotografiaExternamen1Click(Sender: TObject); VAR NARCHIVO:STRING; begin SAVEpicture1.Execute; image1.Picture.Bitmap.SaveToFile(SAVEpicture1.FileName); end; -------------------------------- Te agradecere tu ayuda Pequeño Saltamontes. SAludos desde TIJUANA, MEXICO. |
#2
|
||||
|
||||
Prueba de esta manera
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
RESPUESTA, lo graba en blanco o en cero
Ya intente con tu Propuesta, pero ahora me lo graba en cero
es dedir que el archivo lo genera en tamaño 0 bytes y dice vista previa no disponible, acaso necesitare mas codigo para grabar o generar este archivo de imagen ? Espero tu Respuesta pequeño saltamontes. y muchas gracias por tu ayuda. saludos desde TIJUANA,B.C. , MEXICO |
#4
|
||||
|
||||
Para que te lo reconozca le pones una extensión por defecto, por ejemplo Bmp como en este otro ejemplo.
Lo he probado y funciona perfectamente. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
||||
|
||||
Solo comentar que si pulsas el boton guardaImagen y despues le das a cancelar, tambien va a guardar la imagen, y con el nombre que tuviese anteriormente o bien sin nombre.
Offtopic: Nunca habia imaginado que se pudiese complicar tanto para poner la extensión bmp a un archivo . Sé que es lo correcto, pero no lo conocía y me ha sorprendido. Gracias Marcos Saludos. |
#6
|
||||
|
||||
Tiene razón Lepe yo no había previsto que se pulsara Escape, incluso debiera añadirse un Try....Except para prever también el fallo en la grabación.
Este es un ejemplo de que los hilos deben de coserse con más de una aguja, para no dejar tomates, si me permite utilizar el lenguaje de las costureras. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#7
|
|||
|
|||
Ya encontre solucion a esto, por que no funciono lo anterior
Ninguna de lo anterior me funciono, aunque en teoria deberia funcionar,
pero en fin, Estuve buscando informacion sobre manejo de graficos en manuales Delphi y solucione esto con el siguiente codigo, espero sea de utilidad quien en el futuro necesite algo parecido. Gracias pequeños saltamontes !!!!!!!!
ATT. PEDRO MORENO T. Saludos desde TIJUANA, MEXICO. Última edición por marcoszorrilla fecha: 01-11-2004 a las 18:33:06. Razón: Poner la etiqueta Delphi |
|
|
|