DBImage não funciona com imagem tipo JPEG em campo Blob

Delphi

08/09/2003

Tenho um cadastro de imagens e preciso mostrar em um form, entao tive a surpresa de q o componente DBImage não aceita tipo JPEG em campo blob do Firebird. Logo para resolver este problema coloquei um componente Image e fiz o seguinte:

var
Imagem : TMemoryStream;
begin
Imagem := TMemoryStream.Create;
try
TabelaIMAGEM.SaveToStream(Imagem);
Image1.Picture.Bitmap.LoadFromStream(Imagem)
finally
Imagem.Free;
end;

Pois este código não funcionou... Alguem poderia me ajudar a mostrar esta imágem? Não gostaria de ter q instalar um componentes tipo DBImage que aceite o tal do tipo JPEG.

Obrigado!


Mutz

Mutz

Curtidas 0
POSTAR