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

Nesta dica mostro como realizar uma tarefa um pouco mais complicada: como salvar uma imagem JPG (o mesmo pode ser feito para Bitmaps e GIFs com pequenas modificações) em um campo BLOB de uma tabela do Firebird (usando dbExpress) e exibí-la de volta em um TImage. O fato de estarmos usando dbExpress complica um pouco mais, visto que não podemos contar com um componente TDBImage para a exibição da imagem recuperada do banco de dados.

Vamos começar criando a tabela no banco de dados Firebird. Para este exemplo usei uma tabela com três campos somente. Veja o comando SQL DDL CREATE TABLE: 

CREATE TABLE PESSOAS (

  ID    INTEGER NOT NULL,

  NOME  VARCHAR(40),

  FOTO  BLOB SUB_TYPE 0 SEGMENT SIZE 80

);

Embora não esteja detalhado, o campo ID é auto-incremento. Tenha a certeza de criar o GENERATOR/SEQUENCE e o trigger necessários. Se estiver com dúvidas em relação a isso, pesquise minhas dicas sobre o assunto.

Uma vez criada a tabela, coloque um componente TSQLConnection (aba dbExpress) no formulário e efetue a conexão com a base de dados Firebird na qual você criou a tabela anterior. Agora coloque um componente TSQLDataSet (também na aba dbExpress) no formulário e ajuste sua propriedade Connection para o componente de conexão. Finalmente, coloque o código abaixo no evento Click de um botão: 

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;

Aqui a imagem JPG será selecionada a partir de um diálogo TOpenPictureDialog. Note também que o nome da pessoa vem de uma caixa de texto TEdit. Execute a aplicação, escolha uma imagem e salve-a na tabela do banco de dados.

A imagem foi salva com sucesso? Hora de exibí-la de volta em um componente TImage. Para isso coloque um componente TImage no formulário e cole o código abaixo no evento Click de um segundo botão: 

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;

Aqui nós usamos o método CreateBlobStream() da classe TSQLDataSet para criar um stream a partir do campo BLOB da tabela PESSOAS e atribuí-lo à variável foto, do tipo TStream. Em seguida criamos um objeto da classe TJPEGImage, carregamos a imagem JPG a ser exibida a partir do stream foto e finalmente a exibimos no componente TImage. Não se esqueça de adicionar Jpeg á cláusula uses do seu formulário.