Hola. Yo y mis cosas...
D6, FB1.5, WXP Pro.
Tengo un procedimiento almacenado que me devuelve (con exito) 8 parámetros, entre estos un campo blob (una foto jgp de 5Kb). La cosa es que puedo manipular y aprovechar todos lso parámetros menos el de la foto, pue no se como, por ejemplo, colocarlo en un TImage para mostrarlo.
Si me expliqué?
Código:
CREATE PROCEDURE PR_VISEXISTE (
VISCC VARCHAR(15))
RETURNS (
VIS_ID INTEGER,
VIS_CC VARCHAR(15),
VIS_NOMBRE VARCHAR(60),
VIS_ESTADO SMALLINT,
VIS_ADENTRO SMALLINT,
VIS_ULTVIS TIMESTAMP,
VIS_ULTARE SMALLINT,
VIS_ULTEMP INTEGER,
VIS_FOTO BLOB SUB_TYPE 0 SEGMENT SIZE 80,
NOEXISTE SMALLINT)
AS
begin
noexiste=1;
select vis_id,vis_cc,vis_nombre,vis_estado,vis_adentro,vis_ultvis,vis_ultare,vis_ultemp,vis_foto
from visitante
where vis_cc=:viscc
into :vis_id, :vis_cc, :vis_nombre,:vis_estado,:vis_adentro, :vis_ultvis, :vis_ultare, :vis_ultemp,:vis_foto;
if (vis_id is null) then
noexiste=0;
suspend;
end
Ese el procedimiento.
para ejecutarlo y tomar los parámetros:
Código:
dmppal1.fbproVisExiste.prepare; //dmppal1 es el DataModule
dmppal1.fbproVisExiste.Params.Items[10].Value:=id;
dmppal1.fbproVisExiste.ExecProc;
dmppal1.fbproVisExiste.UnPrepare;
existe:=dmppal1.fbproVisExiste.Params.Items[9].Value;
visid:=dmppal1.fbproVisExiste.Params.Items[0].Value;
nombre:=dmppal1.fbproVisExiste.Params.Items[2].Value;
visEstado:=dmppal1.fbproVisExiste.Params.Items[3].Value;
adentro:=dmppal1.fbproVisExiste.Params.Items[4].Value;
ultimaVis:=dmppal1.fbproVisExiste.Params.Items[5].Value;
area:=dmppal1.fbproVisExiste.Params.Items[6].Value;
empleado:=dmppal1.fbproVisExiste.Params.Items[7].Value;
todos funcionan, pero no se como asignar (o a qué asignar) el parámetro 8 que es la foto.
Ayyuda.......................
Sergio