[Instantobjects-cvscommit] SF.net SVN: instantobjects:[908] trunk/Source/Core/InstantPersistence.pas

[<na...@us...>]

Revision: 908
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=908&view=rev
Author:   nandod
Date:     2010-09-12 06:24:21 +0000 (Sun, 12 Sep 2010)

Log Message:
-----------
* Blob attribute are now considered null if they're empty. Fixes a param mapping problem in SQL resolvers.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2010-09-12 06:21:39 UTC (rev 907)
+++ trunk/Source/Core/InstantPersistence.pas	2010-09-12 06:24:21 UTC (rev 908)
@@ -461,6 +461,7 @@
     function Write(const Buffer; Position, Count: Integer): Integer; virtual;
     procedure WriteObject(Writer: TInstantWriter); override;
     procedure AssignTo(Dest: TPersistent); override;
+    function GetIsNull: Boolean; override;
   public
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
@@ -3518,6 +3519,11 @@
     Read(Result[0], 0, Size);
 end;
 
+function TInstantBlob.GetIsNull: Boolean;
+begin
+  Result := Size = 0;
+end;
+
 function TInstantBlob.GetSize: Integer;
 begin
   Result := Stream.Size;