The problem, perhaps, is in s.readstring.
=================================
//dbimage.inc line 135
procedure TDBImage.LoadPicture;
var //s : TMemory; // ( lazarus team)
s : TMemoryStream; // ( mine )
GraphExt : string;
gc : TGraphicClass;
AGraphic : TGraphic;
begin
if not FPictureLoaded then
begin
FUpdatingRecord := True;
if not assigned(FDatalink.Field) then Picture.Assign(FDatalink.Field)
else
if FDatalink.field.IsBlob then
begin
if FDatalink.field is TBlobField then
begin
if FDatalink.Field.IsNull then
begin
Picture.Clear;
exit;
end;
//FDataLink.DataSet.CreateBlobStream(FDataLink.Field,bmRead); //
(lazarus team)
s := TMemoryStream.create; // ( mine )
(FDataLink.Field as TBlobField).SaveToStream(s); // ( mine )
s.Position:= 0; // ( mine )
if (S=Nil) or (s.Size = 0) then
begin
Picture.Clear;
exit;
end;
try
//GraphExt := s.ReadAnsiString; // (lazarus team)
// gc := GetGraphicClassForFileExtension(GraphExt); // (lazarus
team)
// if assigned(gc) then // (lazarus team)
// begin // (lazarus team)
Picture.Jpeg.LoadFromStream(s); // ( mine )
//AGraphic. := gc.Create; // (lazarus team)
//AGraphic.LoadFromStream(s); // (lazarus team)
//Picture.Assign(AGraphic);
//end;
finally
//if assigned(AGraphic) then AGraphic.Free; // (lazarus team)
s.Free;
end {try}
end
else
Picture.Assign(FDataLink.FField);
end;
FUpdatingRecord := False;
end;
end;
=================================2008/9/2 Osvaldo TCF - Listas
Show quoted text 50 lines
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
>
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.lazarus.freepascal.org/pipermail/lazarus/attachments/20080903/894a8e32/attachment.html