Trying to show Bitmap photo, get error Bitmap with unknown
compression.
lazarus / 16-Databases

----------------------------------------------------------------------
Elmug · 2012-07-18 03:48

Windows-7, Lazarus 32 bit
SQLite3 database.

Hi everyone,

Still trying to show photo from Grid.

The app is OK so far, except when current grid field is at column
named 'Pic' (which holds the photo) that is to show in Image1 box
(TImage), I get the error :

DEBUGGER EXCEPTION NOTIFICATION:
class FPIMageException with message: Bitmap with unknown
compression(8077443525)    

and I have not been able to find out the problem.

The procedure runs when the cursor enters a grid field, and if the
field datatype is Blob, then the field's image is to be shown in box
Image1.

Could it be my code?  Is there perhaps a known problem that I need to
know about concerning the showing of images, that I am not properly
addressing?

Would appreciate help.

Thanks.

Code: [Select]//Am getting: DEBUGGER EXCEPTION NOTIFICATION:
//class FPIMageException with message: Bitmap with unknown
compression(8077443525)
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
  var
  BlobField: TField;
  BS: TStream;
  {L_FieldDataType is a TLabel;}
  {'Pic' is the SQLITE3 column name with photograph with format .bmp}
  {Image1 is component on Form1 type TImage}
BEGIN
  L_FieldDataType.Caption:=Fieldtypenames[dbgrid1.SelectedField.DataTy
pe];
  if L_FieldDataType.Caption = 'Blob' then
  Begin
  with SQLQuery1 do
    begin
    BlobField := FieldByName('Pic'); {'Pic' is name of column with
photo}
    BS := CreateBlobStream(BlobField,bmRead);
    Image1.Picture.Graphic:= TBitmap.Create;
    Image1.Picture.Graphic.LoadFromStream(BS);
    BS.Free;
    end;
  END;
END;

----------------------------------------------------------------------
theo · 2012-07-18 09:49

What happens if you load like this:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
Image1.Picture.LoadFromStream(BS);
instead of

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
Image1.Picture.Graphic:=
TBitmap.Create;Image1.Picture.Graphic.LoadFromStream(BS);