Imagem no Banco de dados Firebird

[Daniel Paixão-Cascavel]

Galera, eu uso hoje o Delphi 2007, pra conexão com banco de dados eu uso TSQLConnection e como DataSet eu uso o TSQLQuery. Agora me surgiu a necessidade de gravar imagem no banco de dados porem tem um problema: Eu não uso o componente TSQLQuery diretamente por que o sistema é orientado a objetos então, eu precisaria criar uma propriedade em minha classe de clientes que receberia a imagem e passaria ela para o TSQLQuery e da mesma forma, conseguisse fazer o processo reverso. Alguem tem alguma ideia de como fazer isso? Obs.: dispenso opiniões vagas... sem fundamento.

[EMBarbosa]

Sim. Crie uma propriedade em sua classe de clientes que recebe a imagem e passa ela para o TSQLQuery. Depois faz o reverso.

[RicardoVoigt]

Bom dia,

há muito tempo atrás eu fiz um "bacalhau" em Delphi 7 pra importar/exportar uma imagem JPG pro/do Firebird (campo tipo BLOB) usando um campo TBlobField de um TClientDataSet, com as dicas desse link:

http://www.mail-archive.com/[email protected]/msg39517.html

 

Código pra importar pra dentro do CampoBlob (BlobField) OBS:Dataset precisa estar em Edit/Insert

    Jpg := TJpegImage.Create;
    MemoryStream := TMemoryStream.Create;
    try
      Jpg.LoadFromFile(ArquivoJPG);
      Jpg.SaveToStream(MemoryStream);

      CampoBlob.BlobType := ftTypedBinary;
      CampoBlob.LoadFromStream(MemoryStream);

    finally
      MemoryStream.Free;
      Jpg.Free;
    end;

 

Código para puxar imagem do Dataset e alimentar a propriedade Picture do objeto Image1(TImage)

var
  BS:TStream;
  MinhaImagem:TJPEGImage;
begin
  BS := CampoBlob.DataSet.CreateBlobStream( CampoBlob, bmRead );
  try
    if (BS.Size > 0) then begin
      MinhaImagem := TJPEGImage.Create;
      try
        MinhaImagem.LoadFromStream(BS);
        Image1.Picture.Assign( nil );
        Image1.Picture.Assign( MinhaImagem );
      finally
        MinhaImagem.Free;
      end;
    end;
  finally
    BS.Free;
  end;
end;

 

Att

Ricardo