Fórum DBImage não funciona com imagem tipo JPEG em campo Blob #38590

Eu uso o componente UMDBImage da paleta UtilMind...
Verifique na Internet...

|tive a surpresa de q o componente DBImage não aceita tipo JPEG em
|campo blob do Firebird.

Nao funciona com JPEG de qualquer q seja o BLOB, simplesmente nao suporta JPEG.

Segue um codigo exemplo:: (coloque o unit JPEG na sua USES)


var
Stm: TStream;
Jpg: TJPEGImage;
begin
with QueryImagem do
try
if TBlobField(FieldByName(´IMAGEM´)).BlobSize > 0 then
begin
try
Stm := TMemoryStream.Create;
Jpg := TJpegImage.Create;
TBlobField(FieldByName(´IMAGEM´)).SaveToStream(Stm);
Stm.Position := 0;
Jpg.LoadFromStream(Stm);
try
Image1.Picture.Assign(Jpg);
except
Image1.Picture.Assign(nil);
end;
finally
Stm.Free;
Jpg.Free;
end;
end else
Image1.Picture.Assign(nil);
except
// controle de erro
end;
end;



T+