Estimado(a)
aanil:
Si utilizas el componente EDBImage de Sebastián Mayora, de distribución gratuita, que encuentras fácilmente al hacer una búsqueda en la web, podrás insertar imágenes en formato jpeg en tu BD, sin hacer ningún esfuerzo.
Te adjunto el código que te permite insertar o eliminar las imágenes. Debes incluir en tu Form este componente, un OpenPictureDialog y un ActionList para definir los DataSetEdit1 y DataSetRefresh1.
Para insertar imágenes en la BD
Código Delphi
[-]procedure Form1.ButtonInsertarFotografia1Click(Sender: TObject);
begin
if DataSetEdit1.Execute then
if OpenPictureDialog1.Execute then
EDBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DataSetRefresh1.Execute;
end;
Para eliminar las imágenes de la BD
Código Delphi
[-]procedure Form1.ButtonEliminarFotografia1Click(Sender: TObject);
begin
if Message1.MessageDlg('¿ Realmente desea eliminar esta Fotografía ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
DataSetEdit1.Execute ;
EDBImage1.Field.Clear ;
DataSetRefresh1.Execute;
end;
end;
Espero haber podido ayudarte
Salu2