* TBlobField.SaveToStream() should check whether CreateBlobStream actually creates a stream

git-svn-id: trunk@16219 -

packages/fcl-db/src/base/fields.inc

@@ -2607,7 +2607,8 @@ Var S : TStream;
 begin
   S:=GetBlobStream(bmRead);
   Try
-    Stream.CopyFrom(S,0);
+    If Assigned(S) then
+      Stream.CopyFrom(S,0);
   finally
     S.Free;
   end;