instantobjects-cvscommit

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

Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4582/Brokers/UIB

Modified Files:
	InstantUIB.pas 
Log Message:
fixed support for memo fields

Index: InstantUIB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantUIB.pas	11 Oct 2004 08:15:10 -0000	1.1
--- InstantUIB.pas	2 Dec 2004 10:12:55 -0000	1.2
***************
*** 17,21 ****
   * License.
   *
!  * The Original Code is: Andrea Petrelli
   *
   * The Initial Developer of the Original Code is: Andrea Petrelli
--- 17,21 ----
   * License.
   *
!  * The Original Code is: InstantObjects UIB Support
   *
   * The Initial Developer of the Original Code is: Andrea Petrelli
***************
*** 342,351 ****
  { TInstantUIBBroker}
  
! procedure TInstantUIBBroker.AssignDataSetParams(DataSet : TDataSet; AParams: TParams);
  var
    I: Integer;
!   BlobContent: String;
    SourceParam: TParam;
!   TargetParams : TSQLParams;
  begin
    //don't call inherited!
--- 342,351 ----
  { TInstantUIBBroker}
  
! procedure TInstantUIBBroker.AssignDataSetParams(DataSet: TDataSet; AParams: TParams);
  var
    I: Integer;
!   BlobContent: string;
    SourceParam: TParam;
!   TargetParams: TSQLParams;
  begin
    //don't call inherited!
***************
*** 365,375 ****
        ftBoolean:
          TargetParams.ByNameAsBoolean[SourceParam.Name] := SourceParam.AsBoolean;
!       ftBlob:
        begin
!         BlobContent := SourceParam.AsBlob; 
          TJvUIBDataset(DataSet).ParamsSetBlob(SourceParam.Name, BlobContent);
        end;
      else
!       raise Exception.Create('Parameter data type not supported : ' +
          GetEnumName(TypeInfo(TFieldType), Ord(SourceParam.DataType)));
      end;
--- 365,375 ----
        ftBoolean:
          TargetParams.ByNameAsBoolean[SourceParam.Name] := SourceParam.AsBoolean;
!       ftBlob, ftMemo:
        begin
!         BlobContent := SourceParam.AsString;
          TJvUIBDataset(DataSet).ParamsSetBlob(SourceParam.Name, BlobContent);
        end;
      else
!       raise Exception.Create('Parameter data type not supported: ' +
          GetEnumName(TypeInfo(TFieldType), Ord(SourceParam.DataType)));
      end;