Bild (BLOB) aus SQLite DB in TImage übertragen

[dataspider]

Ich nutze hier TWICImage, da ich hier von einem Stream laden kann:

Beispielcode aus meinem ImagViewer:

Delphi-Quellcode:

procedure TImageViewer.doLoadFromStream(AStream: TStream);
Var
  AImage: TWICImage;
begin
  AImage := TWICImage.Create;
  try
    AImage.LoadFromStream(AStream);
    ImageView.Picture.Bitmap.Assign(AImage);
  finally
    AImage.Free;
  end;
end;

Frank