From 0b8d0d1f49b9b4b16a279a99dc0c7698b40ffe57 Mon Sep 17 00:00:00 2001
From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 25 Oct 2010 09:55:43 +0000
Subject: * TBlobField.SaveToStream() should check whether CreateBlobStream
 actually creates a stream

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16219 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-db/src/base/fields.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'packages/fcl-db')

diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc
index dca0e6ff8c..385da600f6 100644
--- a/packages/fcl-db/src/base/fields.inc
+++ b/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;
-- 
cgit v1.2.1