guardar y recuperar imagenes
Intenta con un campo blob de oracle.
Para guardarlo puedes probar con el tipo Stream de Delphi.
Aqui te envio la funcion que guarda la imagen, seria mas o menos asi
function guardarImagen( NombreImagen: String;
Data: TStream): Boolean;
var F: TFileStream;
begin
F := TFileStream.Create(nombreImagen, fmCreate);
try
F.CopyFrom(Data, 0 );
Result:= True;
except
Result:= false;
end;
F.Free;
end;
Para instanciarla es:
guardarimagen('nombre.jgp',Query.CreateBlobStream(Query.FieldByName('IMAGEN'), bmRead));
Espero que te sirva.
Saludos.
|