Browse Source

fcl-db: base: Set Bound when loading param from stream. Bug #30651
(Delphi uses for TBlobData=TBytes , we use AnsiString)

git-svn-id: trunk@34564 -

lacak 9 years ago
parent
commit
482290e4bc
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/base/dsparams.inc

+ 1 - 1
packages/fcl-db/src/base/dsparams.inc

@@ -1142,8 +1142,8 @@ begin
     Position:=0;
     Position:=0;
     SetLength(Temp,Size);
     SetLength(Temp,Size);
     ReadBuffer(Pointer(Temp)^,Size);
     ReadBuffer(Pointer(Temp)^,Size);
-    FValue:=Temp;
     end;
     end;
+  Value:=Temp;
 end;
 end;
 
 
 Procedure TParam.SetBlobData(Buffer: Pointer; ASize: Integer);
 Procedure TParam.SetBlobData(Buffer: Pointer; ASize: Integer);