RE:Alguien más que nos ayude (OCX para cámaras)
bueno ya q estan hablando sobre fotos no se si me apuden ayudar con este codigo para cargar fotos en un ole, el problema es q solo se carga el icono del jpeg mas no la imagen
ESPERO Q ME PUEDAN AYUDAR
de antemano gracias por todo
//con este script se carga y muestra en el ole la fotografia seleccionada
string ls_pathname, ls_filename, ls_filtro
//asigno el filtro de extension para las fotografias
ls_filtro = "JPEG Files (*.jpg),*.jpg," + "GIFF Files (*.gif),*.gif,"
//muestro el dialogo de windows para abrir un archivo
IF GetFileOpenName ( "Archivo de Imagen [4*5 cm o 113*142 pixeles o 1,56*1,97 pulgadas]", ls_pathname, ls_filename , "jpg", ls_filtro) 1 THEN RETURN
//inserto en el objeto el archivo de imagen seleccionado si todo ha sido exitoso
IF ole_foto.insertfile(ls_pathname)=-1 THEN
MessageBox("Error", "Error al procesar la tarea de apertura de archivo, verifique")
ELSE
//esta variable de instancia guarda el valor del path absoluto de archivo de donde debe rescatarse
is_path=ls_pathname
END IF
En el boton Guarda se coloca el siguiente script, el cual permite guardar en la base de datos el archivo seleccionado:
//declaracion de variable local tipo blob,
blob lbl_foto
//obtengo desde el control los datos de la imagen
lbl_foto=ole_foto.objectdata
//ingreso el blob a la base de datos
UPDATEBLOB menor SET menor_foto = :lbl_foto
WHERE menor_ci=:is_ci;
IF sqlca.sqlcode=0 THEN
messagebox('','Ingreso existoso.')
ELSE
messagebox('','Error en el ingreso')
END IF
En el tercer boton Rescata, obtenemos desde la base de datos el registro que contiene el blob que deseamos mostrar en el oley lo visualizamos con el siguiente script:
//asignacion de variable local blob
blob lbl_foto
SELECTBLOB menor_foto
INTO :lbl_foto
FROM menor
WHERE menor_ci =:ci;//ci es el argumento o criterio para rescatar desde la base de datos sobre el identificador unico menor_ci.
ole_foto.objectdata=lbl_foto