Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-04-2008
franfl franfl is offline
Miembro
 
Registrado: feb 2008
Posts: 88
Poder: 17
franfl Va por buen camino
Cargar imagen

Hola
Vaya dia que llevo...Tengo un formulario para insertar un cliente o modificarlo, entonces tengo un boton cargarimagen programado asi, para ver la imagen elegida:
OpenPictureDialog->Execute();
ImCliente->Picture->LoadFromFile(OpenPictureDialog->FileName);
Si selecciono una foto va bien, pero si salgo de la ventana de cargar imagen pulsando el boton de cancelar o la x, me da un error;
"unknown picture file extension(.)"
Supongo que tendre que validar si se seleciono una foto o no, pero no se como, o igual tengo algo mas mal no lo se, si alguien me puede ayudar se lo agradeceria mucho.
Gracias y un saludo
Responder Con Cita
  #2  
Antiguo 13-04-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
Así:

Código Delphi [-]
  if OpenPictureDialog1.Execute then
    ImCliente.Picture.LoadFromFile(OpenPictureDialog1.FileName);

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #3  
Antiguo 13-04-2008
franfl franfl is offline
Miembro
 
Registrado: feb 2008
Posts: 88
Poder: 17
franfl Va por buen camino
Muchas gracias, vaya fallo mas grande.
Otra pregunta es que yo una vez rellenado el formulario del cliente, pulso guardar, y la imagen no es obligatorio, entonces al guardar no se como comprobar si existe o no imágen, o si se ejecuto o no el opendialogpicture.
Probe con ImCliente->Picture!=NULL, pero no funciona.
Muchas gracias
Responder Con Cita
  #4  
Antiguo 14-04-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
Código Delphi [-]
  if not Assigned(Image1.Picture.Graphic) then
    ShowMessage('Está vacio');

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #5  
Antiguo 14-04-2008
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
En Builder es un poco diferente, pues no existe Assigned:

Código:
if(Image1->Picture->Graphic->Empty)
     ShowMessage("Está vacio");
Saludos.
Responder Con Cita
  #6  
Antiguo 14-04-2008
franfl franfl is offline
Miembro
 
Registrado: feb 2008
Posts: 88
Poder: 17
franfl Va por buen camino
Muchisimas gracias
La ultima cosa ya es que para blanquear un edit basta con poner
edit->Clear();
y para el timage puse: timage->Picture->Assign(NULL);
y parece que va bien, ¿es correcto?
y para borrar desde builder una imagen de una carpeta, existe el deleteFile ¿no?
Muchas gracias, es que voi fatal de tiempo y entre el trabajo y todo.....
Saludos
Responder Con Cita
  #7  
Antiguo 14-04-2008
Avatar de Gabo
[Gabo] Gabo is offline
Miembro Premium
 
Registrado: mar 2007
Ubicación: Murcia (España)
Posts: 684
Poder: 18
Gabo Va por buen camino
Sí, si existe.

Código:
DeleteFile(AnsiString aquí)
Aunque si tienes dudas sobre si una función existe o no, búscala primero en la ayuda.
__________________
Saludos,
Gabo

A menos que se indique lo contrario, el código estará hecho en C++Builder.
Responder Con Cita
  #8  
Antiguo 14-04-2008
franfl franfl is offline
Miembro
 
Registrado: feb 2008
Posts: 88
Poder: 17
franfl Va por buen camino
Ok, muchas gracias
Respecto a lo que me dijisteis para saber si un timage es vacio, al hacerlo en builder con
if(ImCliente->Picture->Graphic->Empty)
ShowMessage("Está vacio");
Si contiene imagen va bien, pero sino me da un error, entonces seria
if(ImCliente->Picture->Graphic==NULL)
ShowMessage("Está vacio");

Muchas gracias por la ayuda a todos
Responder Con Cita
  #9  
Antiguo 14-04-2008
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
El problema es que contenga un grafico, osea que Image1->Picture->Graphic !=0 pero que el grafico este vacio.

Prueba esto, yo no lo he hecho:

Código:
bool IsVacio(TImage *Image)
{
   bool Result = false; 
   if(Image->Picture->Graphic==NULL)
      Result = true;
   else if(Image->Picture->Graphic->Empty)
      Result = true;
   
   return Result;
}
Saludos

Última edición por escafandra fecha: 15-04-2008 a las 00:31:00.
Responder Con Cita
  #10  
Antiguo 15-04-2008
franfl franfl is offline
Miembro
 
Registrado: feb 2008
Posts: 88
Poder: 17
franfl Va por buen camino
No me dio tiempo a probarlo, pero en mi timage solo tengo la opcion de cargar .jpg, y con lo que os dije hice muchas pruebas y me funciona perfecto. Supongo que tambien funcionara con otras extensiones, para cualquier duda a ver si os puedo ayudar
Gracias por la ayuda a todos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cargar Imagen bosterito Conexión con bases de datos 1 03-03-2007 06:32:42
Cargar imagen federki Gráficos 8 13-11-2006 23:48:22
Cargar Imagen johurgi Gráficos 4 14-08-2006 18:43:11
al cargar imagen kiringui Gráficos 2 12-06-2006 13:47:50
cargar imagen majosf Conexión con bases de datos 3 21-09-2005 19:17:07


La franja horaria es GMT +2. Ahora son las 16:52:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi