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

[jr_ewing]

En el último código SQL, donde dice:

Código SQL [-]
   dbms_lob.writeappend(blAux,32767,blImagen);

debió decir:

Código SQL [-]
   dbms_lob.writeappend(blAux,32767,rwAux);

De todas maneras, el error sigue siendo el mismo, y ahora descubrí que se genera al ejecutar el sgte comando:

Código SQL [-]
size="1">   dbms_lobsize="1">.size="2">read(blImagen,nLong,1,rwAuxsize="1">size="2">);

Lo que más me llama la atención es que si ejecuto:

Código SQL [-]
size="1">size="1">  nLong:=dbms_lob.getlength(blImagen);

nLong me da null (por eso me preguntaba si lo que quiero hacer se puede hacer...)

[jr_ewing]

Bueno, perdonen ahora que me salieron todos esos size en el código SQL... Recién estoy aprendiendo a usar esto...

[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;