Como salvar uma imagem JPG em um campo BLOB do Firebird (usando dbExpress) e exibí-la de volta em um TImage

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

CREATE TABLE PESSOAS (
  ID    INTEGER NOT NULL,
  NOME  VARCHAR(40),
  FOTO  BLOB SUB_TYPE 0 SEGMENT SIZE 80
);

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string;
  foto: TFileStream;
begin
  if OpenPictureDialog1.Execute then
    begin
      // nome da pessoa
      nome := Edit1.Text;

      // foto da pessoa
      foto := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);

      // vamos definir o comando SQL a ser executado
      SQLDataSet1.CommandText := 'INSERT INTO PESSOAS(NOME, FOTO) VALUES(:nome, :foto)';
      SQLDataSet1.Params[0].Name := 'nome';
      SQLDataSet1.Params[0].Value := nome;
      SQLDataSet1.Params[1].Name := 'foto';
      SQLDataSet1.Params[1].LoadFromStream(foto, ftGraphic);

      // vamos executar o comando
      SQLDataSet1.ExecSQL(False);

      // vamos mostrar uma mensagem indicando o sucesso da operação
      ShowMessage('A imagem foi salva no banco de dados com sucesso.');
   end;
end;

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
var
  id: Integer; // id da pessoa
  foto: TStream;  // um stream para o conteúdo do campo BLOB
  imagem: TJPEGImage;  // a imagem JPG
begin
  // uses Jpeg

  // id da pessoa
  id := 1;

  // vamos definir o comando SQL a ser executado
  SQLDataSet1.Close;
  SQLDataSet1.CommandText := 'SELECT * FROM PESSOAS WHERE ID = :id';
  SQLDataSet1.Params[0].Name := 'id';
  SQLDataSet1.Params[0].Value := id;

  // vamos executar o comando
  SQLDataSet1.Open;

  // vamos obter um stream contendo o conteúdo do campo BLOB
  foto := SQLDataSet1.CreateBlobStream(SQLDataSet1.FieldByName('FOTO'), bmRead);

  // vamos criar uma instância de TJPEGImage
  imagem := TJPEGImage.Create;
  // vamos carregar a imagem a partir do stream TStream
  imagem.LoadFromStream(foto);

  // vamos exibir a imagem no Image1
  Image1.Picture.Assign(imagem);
end;