problemas al cargar fotos
Publicado por davis (79 intervenciones) el 25/02/2007 21:18:16
hola otra vez gente del foro tengo problemas con este codigo q encontre,
al momento de cargar la foto en el objeto ole solo se ve el iconeo de el jpg
mas no la imagen
espero q me puedan ayudar
aqui el scrip completo
//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
Cabe destacar que al utilizar el UPDATE se debe asignar previamente un identificador unico a la tupla que contiene el blob.
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
Con estom asignamos lo rescatado alole y mostramos la foto. Espero que les sirva. Dudas, comentarios revisiones no duden en escribir.
"
al momento de cargar la foto en el objeto ole solo se ve el iconeo de el jpg
mas no la imagen
espero q me puedan ayudar
aqui el scrip completo
//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
Cabe destacar que al utilizar el UPDATE se debe asignar previamente un identificador unico a la tupla que contiene el blob.
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
Con estom asignamos lo rescatado alole y mostramos la foto. Espero que les sirva. Dudas, comentarios revisiones no duden en escribir.
"
Valora esta pregunta
0