paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: DBImage: fixed loading NULL blobs from Michael Van Canneyt (bug #10711)

Browse Source 
git-svn-id: trunk@14122 -
This commit is contained in:
vincents 2008-02-13 15:14:08 +00:00
parent 40c644d22f
commit 4c570d42ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dbimage.inc
View File

@ -152,7 +152,7 @@ begin
exit; exit;
end; end;
s := FDataLink.DataSet.CreateBlobStream(FDataLink.Field,bmRead); s := FDataLink.DataSet.CreateBlobStream(FDataLink.Field,bmRead);
if s.Size = 0 then if (S=Nil) or (s.Size = 0) then
begin begin
Picture.Clear; Picture.Clear;
exit; exit;