[Lazarus] Dear developers... TStream.ReadAnsiString

[Osvaldo TCF - Listas]

Environment:
Ubuntu 8.04.1
XFCe
FPC 2.2.3
Lazarus r16444
GTK2
----------------------------------
Problem:
Tstream.readansistring is not ok!

affected:

TDBImage
Lazreport

------------------------------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
var
st : Tstream;
s : string;
gc       : TGraphicClass;
AGraphic : TGraphic;

begin
gc := nil;
AGraphic := nil;

st := FBDataSet.CreateBlobStream(FBDataSetIMAG_IMAGEM,bmRead); 
s := st.ReadAnsiString;
	
	try
          gc := GetGraphicClassForFileExtension(s);
          if assigned(gc) then // gc is never assigned
            begin
            AGraphic := gc.Create; // never executed
            AGraphic.LoadFromStream(st); // never executed
            Image1.Picture.Assign(AGraphic); // never executed
            end; 
        finally
          if assigned(AGraphic) then
          AGraphic.Free;
          st.Free;
        end
end;            



Em Sex, 2008-09-05 às 11:06 +0800, Paul Ishenin escreveu:
> Hello, General mailing list.
> 
> Lazarus 0.9.26 is coming. We have made all the main changes we wanted to
> make. We spent the last couple of days on bug fixing. We have fixed many
> issues, but we are not sure we have fixed all regressions. It would be 
> sad to release a version, that you cannot use.
> 
> Thus we kindly ask you to test our latest snapshots at
> http://www.hu.freepascal.org/lazarus/ or (better) the svn version.
> Please, check your work projects, run tests, play with the IDE, do crazy
> things. And if you find a regression, let us know through the bug
> tracker at http://bugs.freepascal.org/ .
> 
> Lazarus 0.9.26 will not be released with regressions (new errors, things
> that worked in 0.9.24), *if* we know about them. If there are no more
> regressions, we will release in one or two weeks. After the release it
> will be too late to bash us for regressions. So grab this opportunity.
> 
> The Lazarus team.
> 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lazarus.freepascal.org
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus