Loading a JPEG image from an Access Database into a TDBImage component - delphi

Question

I'm trying to link a database image to a TDBImage component in delphi 10 but it keeps giving me the error that my specified field cannot be found even though there aren't any syntax errors.
This is the code I'm using.
function TForm1.JPEGStartBlob(fPic: TBlobField): integer;
var
bS: TADOBlobStream;
buffer: Word;
hx: string;
begin
Result := -1;
bS := TADOBlobStream.Create(fPic, bmRead);
try
while (Result = -1) and (bS.Position + 1 < bS.Size) do
begin
bS.ReadBuffer(buffer, 1);
hx := IntToHex(buffer, 2);
if hx = 'FF' then
begin
bS.ReadBuffer(buffer, 1);
hx := IntToHex(buffer, 2);
if hx = 'D8' then
Result := bS.Position - 2
else if hx = 'FF' then
bS.Position := bS.Position - 1;
end;
end;
finally
bS.Free;
end;
end;
procedure TForm1.ShowImage(Sender: TObject);
var
bsImage : TADOBlobStream;
jImage : TJPEGImage;
begin
bsImage := TADOBlobStream.Create(adoLodgeI.FieldByName('Image') // this is the field that can't be
// found
AS TBlobField, bmRead);
try
bsImage.Seek(JPEGStartBlob(adoLodgeI.FieldByName('Image') AS TBlobField),
soFromBeginning);
jImage := TJPEGImage.Create;
try
jImage.LoadFromStream(bsImage);
dbiLodge1.Picture.Graphic := jImage;
finally
jImage.Free;
end;
finally
bsImage.Free;
end;
end;
If anyone can help it will be much appreciated.

Answer 1

You can use TWICImage and then you can just assign it a the TDBImage.Picture directly
Var
AStream: TMemoryStream;
APic: TWICImage;
begin
AStream := TMemoryStream.Create;
try
// Here "Data" is a BlobField
AStream:= TMemoryStream(TPics.CreateBlobStream(TPics.FieldByName('Data'), bmRead));
AStream.Position:= 0;
APic := TWICImage.Create;
try
APic.LoadFromStream(AStream);
DBImage1.Picture.Assign(APic);
finally
APic.Free;
end;
finally
AStream.Free;
end;
end;
Works with *.jpeg;*.jpg;*.png;*.bmp;*.ico images and you don't need to worry about if the image is a TJPEGImage or not.