Grabación de imágenes en Oracle 9i a través de SP

[maco]

Con este codigo en un TOraQuery puedes subir a la DB cualquier tipo de archivo

OraQuery1.Close;
OraQuery1.UnPrepare;
OraQuery1.SQL.Clear;
OraQuery1.SQL.Text:=
'insert into TABLA'+
' (codigo, imagen)'+
'values'+
' (:vCodigo, empty_blob())'+
'return'+
' imagen into :imagen';
OraQuery1.Prepare;
OraQuery1.ParamByName('vCodigo').Value:= Codigo;
OraQuery1.ParamByName('imagen').LoadFromFile(OpenPictureDialog1.FileName ,ftOraBlob);
OraQuery1.ParamByName('imagen').ParamType:= ptInput;
OraQuery1.ExecSQL;
OraQuery1.Close;
OraQuery1.UnPrepare;

y para bajarlo lo haces con un quiery en un TOraQuery

OraQuery1.Close;
OraQuery1.UnPrepare;
OraQuery1.SQL.Clear;
OraQuery1.SQL.Text:=
'select *'+
'from TABLA' // + condicion where si la necesitas
OraQuery1.Prepare;
OraQuery1.Open;
TBlobField(Query1.FieldByName('imagen')).SaveToFile(SaveDialog1.FileName);
OraQuery1.Close;
OraQuery1.UnPrepare;