Browse Source

* Merging revisions 42041 from trunk:
------------------------------------------------------------------------
r42041 | michael | 2019-05-12 09:54:02 +0200 (Sun, 12 May 2019) | 1 line

* Add largeint (int64) parameter supportby Silvio Clecio (bug ID 35554)
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@42444 -

michael 6 years ago
parent
commit
fc89dc3cb1
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

+ 2 - 1
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

@@ -1,7 +1,7 @@
 unit oracleconnection;
 unit oracleconnection;
 
 
 {
 {
-    Copyright (c) 2006-2014 by Joost van der Sluis, FPC contributors
+    Copyright (c) 2006-2019 by Joost van der Sluis, FPC contributors
 
 
     Oracle RDBMS connector using the OCI protocol
     Oracle RDBMS connector using the OCI protocol
 
 
@@ -358,6 +358,7 @@ begin
 
 
       case DataType of
       case DataType of
         ftInteger         : AsInteger := PInteger(ParamBuffers[i].buffer)^;
         ftInteger         : AsInteger := PInteger(ParamBuffers[i].buffer)^;
+        ftLargeint        : AsLargeInt := PInt64(ParamBuffers[i].buffer)^;
         ftFloat           : AsFloat := PDouble(ParamBuffers[i].buffer)^;
         ftFloat           : AsFloat := PDouble(ParamBuffers[i].buffer)^;
         ftString          : begin
         ftString          : begin
                             SetLength(s,ParamBuffers[i].Len);
                             SetLength(s,ParamBuffers[i].Len);