Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

fcl-db: base: xmldatapacketreader: fix XML data types

git-svn-id: trunk@47247 -
lacak 4 years ago
parent
ff31d95a69
commit
5f04bb4a8e
1 changed files with 4 additions and 4 deletions
Split View Show Diff Stats
  1. 4 4
      packages/fcl-db/src/base/xmldatapacketreader.pp

+ 4 - 4
packages/fcl-db/src/base/xmldatapacketreader.pp
View File 

@@ -107,11 +107,11 @@ const
 
       'fixedFMT',           // ftFmtBCD
 
       'string.uni',         // ftFixedWideChar
 
       'bin.hex:WideText',   // ftWideMemo
 
-      '',                   // ftOraTimeStamp
 
+      'SQLdateTime',        // ftOraTimeStamp
 
       '',                   // ftOraInterval
 
-      'i4',                 // ftLongWord
 
-      '',                   // ftShortint
 
-      '',                   // ftByte
 
+      'ui4',                // ftLongWord
 
+      'i1',                 // ftShortint
 
+      'ui1',                // ftByte
 
       ''                    // ftExtended
 
     );