* TGraphics header size was subtracted from non TGraphic blobs ,

     Mantis 18712, patch by Erwin v/d Bosch.


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16917 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 1 deletions

diff --git a/packages/fcl-db/src/paradox/paradox.pp b/packages/fcl-db/src/paradox/paradox.pp
index 3826779f57..b5dbc34ac6 100644
--- a/packages/fcl-db/src/paradox/paradox.pp
+++ b/packages/fcl-db/src/paradox/paradox.pp
@@ -812,8 +812,12 @@ begin
         Result:=TMemoryStream.Create;
         V2:=Value;
         if (Field.DataType=ftGraphic) then
+          begin
           Result.WriteAnsiString('bmp');
-        Result.WriteBuffer(V2^,D-SizeOf(TGraphicHeader));
+          Result.WriteBuffer(V2^,D-SizeOf(TGraphicHeader));
+          end
+        else
+          Result.WriteBuffer(V2^,D);
         Result.Position:=0;
         FDoc^.free(FDoc,Value);
         end;