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

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

Revision: 729
          http://svn.sourceforge.net/instantobjects/revision/?rev=729&view=rev
Author:   nandod
Date:     2006-11-29 02:53:06 -0800 (Wed, 29 Nov 2006)

Log Message:
-----------
* fixed [ 1605157 ] BlobStreamFormat not honored when building a database

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

Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas	2006-11-29 10:42:28 UTC (rev 728)
+++ trunk/Source/Core/InstantBrokers.pas	2006-11-29 10:53:06 UTC (rev 729)
@@ -1448,9 +1448,15 @@
   Model: TInstantModel): TInstantScheme;
 begin
   Result := TInstantScheme.Create;
-  Result.IdDataType := IdDataType;
-  Result.IdSize     := IdSize;      
-  Result.Catalog := TInstantModelCatalog.Create(Result, Model);
+  try
+    Result.IdDataType := IdDataType;
+    Result.IdSize := IdSize;
+    Result.BlobStreamFormat := BlobStreamFormat;
+    Result.Catalog := TInstantModelCatalog.Create(Result, Model);
+  except
+    FreeAndNil(Result);
+    raise;
+  end;
 end;
 
 constructor TInstantConnectionBasedConnector.Create(AOwner: TComponent);