Hi,
This is not a treasure of any kind, but it might still worth to be shared. Here is how I get an image from database which is stored in BLOB, then resized down proportionally to fit in an ImageView:
Public Function ResizePictureToImageView(SourceImage as picture, byref DestHeight as integer, byref DestWidth as integer, byref xPos as integer, byref yPos as integer, FrameHeight as integer, FrameWidth as integer) as Picture
if SourceImage.Height > SourceImage.Width then //Portrait
if SourceImage.Height > FrameHeight then
DestHeight = FrameHeight
DestWidth = DestHeight * (SourceImage.Width / SourceImage.Height)
xPos = 0 + (FrameWidth - DestWidth) / 2
yPos = 0
else
DestHeight = SourceImage.Height
DestWidth = SourceImage.Width
xPos = 0 + (FrameWidth - DestWidth) / 2
yPos = 0 + (FrameHeight - DestHeight) / 2
end if
else // Landscape
if SourceImage.Width > FrameWidth then
DestWidth = FrameWidth
DestHeight = DestWidth * (SourceImage.Height / SourceImage.Width)
xPos = 0
yPos = 0+ (FrameHeight - DestHeight) / 2
else
DestHeight = SourceImage.Height
DestWidth = SourceImage.Width
xPos = 0 + (FrameWidth - DestWidth) / 2
yPos = 0 + (FrameHeight - DestHeight) / 2
end if
end if
dim Resized as New Picture(FrameWidth, FrameHeight)
Resized.graphics.DrawPicture(SourceImage, 0, 0, DestWidth, DestHeight, 0, 0, SourceImage.Width, SourceImage.Height)
return Resized
End Function
I call the function by:
dim rs as RecordSet
dim SourceImage, Resized as Picture
dim DestHeight, DestWidth, xPos, yPos as integer = 0
SourceImage = rs.field(“NameCard1”).PictureValue
if SourceImage <> nil then
Resized = app.ResizePictureToImageView(SourceImage, DestHeight, DestWidth, xPos, yPos, ImageView1.Height, ImageView1.Width)
ImageView1.Picture = Resized
else
ImageView1.Picture = nil
end if
