diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-10-25 09:55:43 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-10-25 09:55:43 +0000 |
| commit | 0b8d0d1f49b9b4b16a279a99dc0c7698b40ffe57 (patch) | |
| tree | daa83af2036498789bbfd9f9076754651d517075 /packages | |
| parent | 92e79d80e0b1698b3e762e485037359f61d8a556 (diff) | |
| download | fpc-0b8d0d1f49b9b4b16a279a99dc0c7698b40ffe57.tar.gz | |
* 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
Diffstat (limited to 'packages')
| -rw-r--r-- | packages/fcl-db/src/base/fields.inc | 3 |
1 files changed, 2 insertions, 1 deletions
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; |