[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