• Sábado 21 de Diciembre de 2024, 12:35

Autor Tema:  Botón Examinar  (Leído 2075 veces)

egarmorales

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Botón Examinar
« en: Jueves 14 de Septiembre de 2006, 18:17 »
0
Que tal a todos!!!! soy nuevo por aqui y en el lenguaje de Visual foxpro y pues necesito ayuda como muchos de nosotros, y claro si yo puedo ayudar en algo lo hare.

Mi pregunta es la siguiente:

Estoy haciendo una aplicacion en visual foxpro 6, tengo que dar de alta a usuarios en el cual le tengo que agragar su foto, lo que tengo pensado hacer es crear un boton Examinar en el cual busque la ruta de la foto y la guarde en una carpeta especifica con un nombre especifico y la ruta guardarla en la base de datos para poder llamarla cuando la necesite.

Ahora, mi problema es, Cómo hago el botón Examinar, eh buscado y no eh encontrado nada.

Gracias de antemano

arielb

  • Moderador
  • ******
  • Mensajes: 771
  • Nacionalidad: pa
    • Ver Perfil
    • http://coder-pa.blogspot.com
Re: Botón Examinar
« Respuesta #1 en: Jueves 14 de Septiembre de 2006, 19:02 »
0
hola que tal bienvenido al foro. Bueno para lo que necesitas puedes utilizar la funcion getfile()

Código: Text
  1. vImag = GETFILE("jpg;bmp;gif")
  2. if !empty(vImag)
  3.    Guardar la ubicacion de la foto
  4. else
  5.    messagebox("No se ha seleccionado una foto")
  6. endif
  7.  

y para guardar un archivo podrias tomarlo asi

Código: Text
  1. vGuarda = PUTFILE("Nombre",vImag,"jpg;bmp;gif")
  2.  

Esta seria una funcion para guardar la direccion de la foto
"Porque de tal manera amó Dios al mundo que dio a su hijo unigénito para que todo aquél que en él crea no se pierda mas tenga vida eterna"
Juan 3:16

http://coder-pa.blogspot.com

egarmorales

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Botón Examinar
« Respuesta #2 en: Jueves 14 de Septiembre de 2006, 19:20 »
0
Muchas gracias, me has ayudado mucho.

Seguimos en contacto.

Saludos