Re: [delphi-br] Gravar imagens no Banco Interbase/Firebir

[Alan Vieceli]

Seguinte....

Captura tua image no TImage...dai no botão salvar (ou sei la como tu vai 
chamar....) pode colocar:
Ta meio bagaceiro....mas funciona :P

imgUsuario: TImage

  try
  try
  try
  dsUSUARIO.DataSet.Edit;
  Img := TJpegImage.Create;
  Img.Assign( imgUsuario.Picture );
  TBlobField(dsUSUARIO.DataSet.FieldByName('USUFOTO')).Assign( Img );
  except
  TBlobField(dsUSUARIO.DataSet.FieldByName('USUFOTO')).Assign( nil );
  end;
  dsUSUARIO.DataSet.Post;
  finally
  Img.Free;
  end;
  except
  dsUSUARIO.DataSet.Cancel;
  end;

dai pra carregar:

  if TBlobField( dsUSUARIO.DataSet.FieldByName('USUFOTO')).BlobSize > 0 then
     begin
     try
     Stm := TMemoryStream.Create;
     Jpg := TJpegImage.Create;

     TBlobField(dsUSUARIO.DataSet.FieldByName('USUFOTO')).SaveToStream(Stm);

     Stm.Position := 0;
     Jpg.LoadFromStream(Stm);

     try
     imgUsuario.Picture.Assign(Jpg);
     except
     imgUsuario.Picture.Assign(nil);
     end;
     finally
     Stm.Free;
     Jpg.Free;
     end;
     end
  else
     imgUsuario.Picture.Assign(nil);

  except
// controle de erro
  end;