SoloCodigo

buenas noche que tal
 estoy intentando almacenar una imagen en una tabla

ejemplo tabla1
estos son los campos
nombre
apellido
foto

 coloque en un boton esto

STRING ls_pathname, ls_filename, ls_filtro, ls_cod_thab
LONG ll_File

BLOB lbl_data, lbl_temp

integer fila


ls_filtro = "JPEG Files (*.jpg),*.jpg," + "GIFF Files (*.gif),*.gif," + "BMP Files (*.bmp),*.bmp,"

IF GetFileOpenName ( "Archivo de Imagen: ", ls_pathname, ls_filename , "bmp", ls_filtro) = 0 THEN RETURN

p_foto.picturename = ls_pathname


il_nombre = dw_datos.object.nombre[1]
is_apellido = dw_datos.object.apellido[1]
is_foto = dw_datos.object.foto[1]



    INSERT INTO ejemplo
       (nombre,      apellido,     foto)
       VALUES
       (:nombre, :apellido, :foto);
   
   quiero realizar este insert
   estoy utilizando base de datos oracle, y el campo foto en mi base de datos es tipo blob


y estoy utilizando un picture con el nombre de p_foto


bueno cuando mando a correr el programa y oprimo el boton grabar me aparece la ventanita de windows de buscar entonces busco la imagen .bmp que tengo en la carpeta y me la muestra en mi picture otra pregunta es que yo utilizo power builder 6.5 y no veo que los picture soporten jpg solo veo que soportan bmp

mi idea es tener eso es un datawindows external tabular

encontre este ejemplo en internet soy nuevo asi que no se que estoy haciendo mal

BOTON : GRABAR

STRING ls_pathname, ls_filename, ls_filtro, ls_cod_thab
LONG ll_File

BLOB lbl_data, lbl_temp

integer fila
fila=dw_tipohabitacion.getrow( )
string co
co=dw_tipohabitacion.getitemstring(fila,"cod_tipo_hab")
sle_codtipo.text=co




ls_filtro = "JPEG Files (*.jpg),*.jpg," + "GIFF Files (*.gif),*.gif,"
IF GetFileOpenName ( "Archivo de Imagen: ", ls_pathname, ls_filename , "jpg", ls_filtro) = 0 THEN RETURN

p_foto.picturename = ls_pathname
ls_cod_thab = trim(sle_codtipo.text)

ll_File = FileOpen(ls_pathname, StreamMode!)
DO WHILE FileRead(ll_file,lbl_temp) > 0
lbl_data += lbl_temp
LOOP
FileClose(ll_file)

IF ll_File > -1 THEN
FileRead(ll_file, lbl_data)
FileClose(ll_file)
SQLCA.AutoCommit = True
UPDATEBLOB tipo_habitacion SET foto = :lbl_data WHERE cod_tipo_hab = :ls_cod_thab;
SQLCA.AutoCommit = False
ELSE
messagebox('Error','Falló al abrir Archvo')
END IF

IF SQLCA.SQLNRows > 0 THEN
COMMIT;
messagebox('OK: ' + ls_cod_thab,'Se guardó la foto de la Habitacion')
ELSE
messagebox('Error','Falló el Grabar Foto')
END IF
FileClose(ll_file)


BOTON : BUSCAR IMAGEN


Blob lb_imagen
STRING ls_cod_tha
ls_cod_tha = trim(sle_busca.text)

SELECTBLOB foto INTO :lb_imagen FROM tipo_habitacion WHERE cod_tipo_hab = :ls_cod_tha;

p_foto.SetPicture(lb_imagen)

buenas tardes
alguien sabe si ese codigo que coloque sirve para grabar la imagen en la base de datos o solo me guarda la ruta en la base de datos?

buenas noches que tal

bueno lo que trato de hacer es bueno tengo un select me encuentra la informacion del cliente y la foto

las esto la foto la estoy colocando en un picture

tengo la lista de cliente en un datawindows y bueno a medida que voy seleccionando un cliente me va apareciendo la foto

bueno cuando le doy clik a un cliente me aparece la foto en el picture pero cuando le doy clik a otro cliente y no tiene foto aun me queda la foto del cliente anterior


que que intento hacer es colcoar despues del select algo asi
 if sql.code bueno el codigo no me lo se de meoria pero es algo asi

   y aki me va cargando lso datos ya eso me lo hace

  else
       aqui queria hacer algo como esto
       osea que si no lo encuentra colocar algo asi

       p_foto.picture igual espacio en blanco

  o poner otro picture en blanco pero invisible para poder enviarle al picture que se llama p_foto  asi

p_foto.picture igual p_basico.picture


osea que si no encuentra anda que me quede la imagen basia y no con la imagen anterior

diculpe si no escribo bien es que no tengo power builder en esta pc y problemas con el signo igual

gracias, me sirvio

a y lo de seguir el hilo disculpe es que pensaba que era otro punto

buenas tardes tengo un problema al tratar de realizar un selctblob


todo me funciona bien si no existiera el codigo de articulo

el problema es el siguiente

tengo mi tabla foto

y ago esto

blob lbl_foto


selectblob foto
           into :lbl_foto
            from fotos
           where cod_articulo = :ls_cod_articulo;   

lo de arriba es la version original , pero el problema es que si el codigo de usuario existe me trae un espacio en blanco como no le havia metido la foto

asi que intente colocarle un nvl para verificar si lo que me encontraba era un espacio en blanco le colocara un 0 asi de esa manera yo poder realizar una validacion asi


selectblob nvl(foto, 0)
           into :lbl_foto
           from  fotos
           where cod_articulo = :ls_cod_articulo;   


pero aa todo le esta poniendo 0

o no se si esa funcion no sirve para los campos tipo blob

ya que yo quiero hacer es

     if long(lbl_foto) <> 0 then
                  p_foto.SetPicture(lbl_foto)        
               else
                .p_foto.picturename= 'nodisponible.bmp'
    end if

que si encuentra la imagen me coloque la que esta en al base de datos de lo contrario que me muestre una imagen que ya yo tengo en una carpeta

gracias me sirvio el ejemplo

lo que usted iso fue asignarle primero un valor nulo a la varieble verdad?

setNull(lbl_foto)

para si no encontraba nada entonces poder preguntar si el valor era nulo

corrijame si estoy equivocado pro favor


aqui tambien coloco otro codigo que ise que em funciono tambien

   if long(lbl_foto_p) <> 0 then
                  p_foto.SetPicture(lbl_foto_p)
           
 else
     p_foto.picturename= 'no_disponible.bmp'
 end if

buenas tardes alguien sabe como pasar una picture a otra ventana ?
 

colocare esto en otro tema