[Lazarus] TDBImage - With IBConection and FBDataset - AV

[Osvaldo TCF - Listas]

With my image: a .jpg file
---------------------------
in dbimage.inc, line 163:
        try
          GraphExt := s.ReadAnsiString;

          gc := GetGraphicClassForFileExtension(GraphExt);
          if assigned(gc) then
            begin
            AGraphic := gc.Create;
            AGraphic.LoadFromStream(s);

            Picture.Assign(AGraphic);
            end; 
-------------------------------------------

gc is not assigned, is it correct?
==========================================================

The AV ocour here:
dbimage.inc line 175
----------------------
            Picture.Assign(AGraphic);
            end;
        finally
line 175>>  if assigned(AGraphic) then AGraphic.Free;
          s.Free;
        end {try} 
----------------------

Em Ter, 2008-09-02 às 10:34 +0200, Joost van der Sluis escreveu:
> Op maandag 01-09-2008 om 12:05 uur [tijdzone -0300], schreef Osvaldo
> Filho:
> > I can not use tdbimage, access violation!
> > 
> > loadpicture error?
> 
> Hmm... I had that working with a few hacks. Maybe that it doesn't work
> anymore with the latest image changes in Lazarus-svn. So which fpc and
> lazarus version are you using?
> 
> Joost
> 
> 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lazarus.freepascal.org
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus