guardar imagen en campo blob

[ecfisa]

Hola edgar.

Primeramente necesitas crear un campo de tipo blob en la tabla productos para que así puedas almacenar la imágenes correspondientes.

Al pié de esta página tenes varios enlaces relacionados a tu consulta, y creo que este [Guardar una imagen a una base de datos en mySQL], también te puede ser útil.

Saludos.

[edgar_prospero]

gracias por responder, si el campo ya lo cree, algo que me falto especificar es que quiero mediante un boton se abra para buscar la imagen a guardar

[ecfisa]

Hola Edgar.

Podrías usar un TOpenPictureDialog para buscar la imágen y luego en el evento OnClick del botón, hacer algo como por ejemplo:

Código Delphi [-]
...
uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  Jpg : TJPEGImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    Jpg := TJPEGImage.Create;
    try
      Jpg.LoadFromFile(OpenPictureDialog1.FileName);
      DataSet.Edit;
      DataSet.FieldByName('CAMPO_BLOB').Assign(Jpg);
    finally
      Jpg.Free;
    end;
  end;
end;

No utilizo MySQL, pero en Firebird guarda la imágen jpg sin problemas.

Saludos.

[ecfisa]

Hola de nuevo.

Se me escapó, que tal vez tengas otros tipos que jpg...

Proba de esta forma:

Código Delphi [-]
...
uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  Pic : TPicture;
begin
  if OpenPictureDialog1.Execute then
  begin
    Pic := TPicture.Create;
    try
      Pic.LoadFromFile(OpenPictureDialog1.FileName);
      DAtaSet.Edit;
      DataSet.FieldByName('CAMPO_PBLOB').Assign(Pic);
     finally
      Pic.Free;
    end;
  end;
end;

Saludos.

[edgar_prospero]

gracias por tu respuesta.

no se en que cambie firebird a mysql pero con este procedimiento no me marca ningun error, pero no me esta guardando nada en la base de datos

[Casimiro Noteví]

Quizás falte el post

Código Delphi [-]
DataSet.FieldByName('CAMPO_PBLOB').Assign(Pic);
DataSet.Post;

[ecfisa]

Empezado por Casimiro Notevi

Quizás falte el post

Código Delphi [-]
DataSet.FieldByName('CAMPO_PBLOB').Assign(Pic);
DataSet.Post;

Exáctamente.

No lo agregué allí por que supuse que tenía más campos y realizaba el guardado al finalizar la carga de los datos.

Saludos.