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

[<dav...@us...>]

Revision: 893
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=893&view=rev
Author:   davidvtaylor
Date:     2010-01-29 04:24:56 +0000 (Fri, 29 Jan 2010)

Log Message:
-----------
* Fix blob update error with AnyDAC/MSSQL for blob sizes exceeding 8000 bytes. Blob parameter values were being assigned with AsBytes rather than AsBlob for Unicode version of Delphi.
* Remove obsolete blob/memo code left over from the Unicode porting process

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

Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas	2010-01-27 08:34:40 UTC (rev 892)
+++ trunk/Source/Core/InstantBrokers.pas	2010-01-29 04:24:56 UTC (rev 893)
@@ -2805,26 +2805,6 @@
 var
   FieldName: string;
 
-  (* No longer used. To be removed when things stabilize with D2009.
-  procedure AddBlobParam(const AFieldName, Value: string);
-  var
-    Param: TParam;
-  begin
-    Param := AddParam(Params, AFieldName, ftBlob);
-    if Value <> '' then
-      Param.AsMemo := Value
-  end;
-
-  procedure AddMemoParam(const AFieldName, Value: string);
-  var
-    Param: TParam;
-  begin
-    Param := AddParam(Params, AFieldName, ftMemo);
-    if Value <> '' then
-      Param.AsMemo := Value
-  end;
-  *)
-
   procedure AddBlobAttributeParam;
   var
     LParam: TParam;
@@ -2834,7 +2814,7 @@
       LParam.Clear
     else
       {$IFDEF D12+}
-      LParam.AsBytes := (Attribute as TInstantBlob).Bytes;
+      LParam.AsBlob := (Attribute as TInstantBlob).Bytes;
       {$ELSE}
       LParam.AsBlob := (Attribute as TInstantBlob).Value;
       {$ENDIF}