[firebase-br] É possivel gravar jpg no campo blob ?

caputoin caputoin em uai.com.br
Sex Jun 3 08:02:09 -03 2005


Com Paradox eu fazia desta maneira. Não testei com Firebird,
mas acredito que seja só fazer algumas adaptações:

var BS:TBlobStream;
    MinhaImagem:TJPEGImage;
Begin
  Tabela.Edit;
  BS := TBlobStream.Create((Campo as TBlobField), BMWRITE);
  MinhaImagem := TJPEGImage.Create;
  MinhaImagem.LoadFromFile('imagem a ser gravada');
  MinhaImagem.SaveToStream(BS);
  BS.Free;
  MinhaImagem.Free;
  Tabela.Post;
end;

para ler a imagem o campo:

var BS:TBlobStream;
    MinhaImagem:TJPEGImage;
Begin
  BS := TBlobStream.Create((Campo as TBlobField), BMREAD);
  MinhaImagem := TJPEGImage.Create;
  MinhaImagem.LoadFromStream(BS);
  Image1.Picture.Assign(minhaImagem);
  BS.Free;
  MinhaImagem.Free;
End

A idéia é essa. Joga a imagem em um Stream e associa com o
campo onde vai ser gravada.
****************************************
O grande portal dos mineiros
http://www.uai.com.br




Mais detalhes sobre a lista de discussão lista