EL CAMPO DBiMAGE SOLO SOPERTA bmp, ¿por que? aun no tengo idea.... deviera soportar minimo png y jpg, pero bueno ya que no es el caso yo hici este codigo para usar jpg.
para evento afterscroll de ti query
Código Delphi
[-]
var
JpegImage: TJPEGImage;
BlobStream: TStream;
begin
FDQImagenesProductos.Close;
FDQImagenesProductos.ParamByName('codigo').asInteger :=FDQProductosVentascodigo.AsInteger;
FDQImagenesProductos.Open;
if FDQImagenesProductoscodigo.AsString <> '' then
Begin
if not FDQImagenesProductosimagen.IsNull then
Begin
try
BlobStream := FDQImagenes.CreateBlobStream(FDQImagenesProductos.FieldByName('imagen'), bmRead);
JpegImage := TJPEGImage.Create;
JpegImage.LoadFromStream(BlobStream);
ImagenProd1.Picture.Assign(JpegImage);
finally
JpegImage.Free;
BlobStream.Free;
SinImagenProd1.Visible := false;
ImagenProd1.Visible := true;
end;
End;
End
else
Begin
SinImagenProd1.Visible := true; ImagenProd1.Visible := false;
End;
end;
creo es mas menos lo que quieres, salu2