Power Builder - problemas al cargar fotos

 
Vista:

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.
"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problemas al cargar fotos

Publicado por alex sernaque (1 intervención) el 28/02/2007 01:00:08
Los archivos que estas cargando son muy pesados, prueba reduciendoles de tamaño. Yo tengo problemas al intertar mostarlos (ultimo boton) pues me sale que no reconce la ultima linea del codigo indicado :
OLE_FOTO.OBJECTDATA=LBL_FOTO

Alex
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problemas al cargar fotos

Publicado por davis (79 intervenciones) el 28/02/2007 20:46:36
mmmm gracias por tu ayuda
pero q , entonces las imagenes "pesadas" no se pueden mostrar en el objeto ole
o debe ser q algo en mi codigo esta mal
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar