guardar y selecionar imagenes en postgreSQL
Publicado por ]-[enry (1 intervención) el 10/06/2005 17:45:56
HOLA A TODOS:
HABER SI ALGUIEN DE UDS. ME PUEDE DAR UNA AYUDA EN ESTO:
ESTOY TRABAJANDO CON IMAGENES CON POWER BUILDER Y POSTGRESQL... ESTOY QUE BUSCO Y HASTA AHORA LO UNICO QUE E ENCONTRADO, ES QUE EL TIPO DE DATO QUE ALMACENA IMAGENES EN POSTGRES ES EL "OID" Y HASTA AHORA E LOGRADO ESTO Y ME FUNCIONA EN EL POSTGRES
CREATE TABLE prodimages (id serial, prodid int8, image OID);
INSERT INTO prodimages(id, prodid, image) VALUES (1, '345632', lo_import'/home/mydir/imagen.jpg'));
AHORA LO QUE QUIERO ES QUE DESDE EL POWER BUILDER ME VISUALICE ESTO EN UN OBJETO OLE_1
COMO ESTO PERO NO ME FUNCIONA:
1----------//PARA GRABAR IMAGEN
BLOB lo_imagen
lo_imagen= ole_1.ObjectData
UPDATEBLOB prodimages
SET image = :lo_imagen
WHERE id = 1
USING SQLCA;
IF SQLCA.SQLCODE = -1 THEN
Messagebox('Error','Error al GRABAR imagen : '+SQLCA.SQLERRTEXT )
RETURN
ELSE
Messagebox('Exito','grabacion exitosa')
END IF
2--------//PARA RECUPERAR IMAGEN
BLOB lo_imagen
SELECTBLOB image
INTO :lo_imagen
FROM prodimages
WHERE id = 1
USING SQLCA;
IF SQLCA.SQLCODE = -1 THEN
Messagebox('Error','Error al SELECCIONAR imagen : '+SQLCA.SQLERRTEXT )
RETURN
END IF
// Asignamos la imagen
IF len(lo_imagen) > 0 THEN
Ole_1.ObjectData = lo_imagen
END IF
DONDE ole_1 es una aplicacion de imagenes
O SI HAY OTRA FORMA DE HACCERLO....
Y DE ANTEMANNO GRACIAS!!!!
HABER SI ALGUIEN DE UDS. ME PUEDE DAR UNA AYUDA EN ESTO:
ESTOY TRABAJANDO CON IMAGENES CON POWER BUILDER Y POSTGRESQL... ESTOY QUE BUSCO Y HASTA AHORA LO UNICO QUE E ENCONTRADO, ES QUE EL TIPO DE DATO QUE ALMACENA IMAGENES EN POSTGRES ES EL "OID" Y HASTA AHORA E LOGRADO ESTO Y ME FUNCIONA EN EL POSTGRES
CREATE TABLE prodimages (id serial, prodid int8, image OID);
INSERT INTO prodimages(id, prodid, image) VALUES (1, '345632', lo_import'/home/mydir/imagen.jpg'));
AHORA LO QUE QUIERO ES QUE DESDE EL POWER BUILDER ME VISUALICE ESTO EN UN OBJETO OLE_1
COMO ESTO PERO NO ME FUNCIONA:
1----------//PARA GRABAR IMAGEN
BLOB lo_imagen
lo_imagen= ole_1.ObjectData
UPDATEBLOB prodimages
SET image = :lo_imagen
WHERE id = 1
USING SQLCA;
IF SQLCA.SQLCODE = -1 THEN
Messagebox('Error','Error al GRABAR imagen : '+SQLCA.SQLERRTEXT )
RETURN
ELSE
Messagebox('Exito','grabacion exitosa')
END IF
2--------//PARA RECUPERAR IMAGEN
BLOB lo_imagen
SELECTBLOB image
INTO :lo_imagen
FROM prodimages
WHERE id = 1
USING SQLCA;
IF SQLCA.SQLCODE = -1 THEN
Messagebox('Error','Error al SELECCIONAR imagen : '+SQLCA.SQLERRTEXT )
RETURN
END IF
// Asignamos la imagen
IF len(lo_imagen) > 0 THEN
Ole_1.ObjectData = lo_imagen
END IF
DONDE ole_1 es una aplicacion de imagenes
O SI HAY OTRA FORMA DE HACCERLO....
Y DE ANTEMANNO GRACIAS!!!!
Valora esta pregunta


0