atribuir TBlobField a um TImage
como faço para exibir em um componente TImage uma imagem do campo da tabela BLOB (firebird 1.5 e componente de acesso MDO).
obsÇ n´ao posso utilizar o TDBImage.
obsÇ n´ao posso utilizar o TDBImage.
Raserafim
Curtidas 0
Respostas
Gandalf.nho
04/04/2005
Use SaveToStream e LoadFromStream
GOSTEI 0
Raserafim
04/04/2005
tentei TBlobStream, mas não consegui, tentei TMemoryStream e tb não consegui. Devo ter feito alguma coisa errada.
Você pode dar um exemplo mais explícito de como fazer isso?
Você pode dar um exemplo mais explícito de como fazer isso?
GOSTEI 0
Gandalf.nho
04/04/2005
Dê uma olhada aqui [url]http://forum.clubedelphi.net/viewtopic.php?t=23497[/url]
GOSTEI 0
Raserafim
04/04/2005
vi o tópico, valeu gandalf. vai ser útil quando quiser usar jpeg.
para usar bmp consegui um modo mais simples:
var
Img: TString;
begin
if CAMPOBLOB.Value <> ´´ then
begin
Img := Query.CreateBlobStream(CAMPOBLOB , bmRead);
Image1.Picture.Bitmap.LoadFromStream(Img);
end;
end;
para usar bmp consegui um modo mais simples:
var
Img: TString;
begin
if CAMPOBLOB.Value <> ´´ then
begin
Img := Query.CreateBlobStream(CAMPOBLOB , bmRead);
Image1.Picture.Bitmap.LoadFromStream(Img);
end;
end;
GOSTEI 0