paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Don't try to stream an empty image. Issue #21406

Browse Source 
git-svn-id: trunk@35676 -
This commit is contained in:
juha 2012-03-03 16:37:28 +00:00
parent aaa6a65283
commit 0d85bc3fdd
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/include/fpimagebitmap.inc
View File

@ -166,20 +166,23 @@ procedure TFPImageBitmap.WriteStream(AStream: TMemoryStream);
var
IntfImg: TLazIntfImage;
ImgWriter: TFPCustomImageWriter;
RawImg: PRawImage;
begin
// write image to temporary stream
ImgWriter := nil;
IntfImg := TLazIntfImage.Create(0,0,[]);
try
ImgWriter := GetWriterClass.Create;
IntfImg.SetRawImage(GetRawImagePtr^, False);
InitializeWriter(IntfImg, ImgWriter);
IntfImg.SaveToStream(AStream, ImgWriter);
FinalizeWriter(ImgWriter);
finally
IntfImg.Free;
ImgWriter.Free;
RawImg:=GetRawImagePtr;
if RawImg^.DataSize > 0 then begin
IntfImg := TLazIntfImage.Create(0,0,[]);
try
ImgWriter := GetWriterClass.Create;
IntfImg.SetRawImage(RawImg^, False);
InitializeWriter(IntfImg, ImgWriter);
IntfImg.SaveToStream(AStream, ImgWriter);
FinalizeWriter(ImgWriter);
finally
IntfImg.Free;
ImgWriter.Free;
end;
end;
end;