| # | Line 335 | Line 335 | begin | |
|---|---|---|
| 335 | SQL_BLOB: | |
| 336 | if (SQLSubType = 1) then | |
| 337 | {see http://firebirdsql.org/rlsnotesh/rlsnotes210.html} | |
| 338 | < | result := FXSQLVAR^.sqlscale; |
| 338 | > | result := FXSQLVAR^.sqlscale and $FF; |
| 339 | ||
| 340 | SQL_ARRAY: | |
| 341 | if (GetRelationName <> '') and (GetFieldName <> '') then | |
| # | Line 346 | Line 346 | end; | |
| 346 | function TIBXSQLVAR.GetCodePage: TSystemCodePage; | |
| 347 | begin | |
| 348 | result := CP_NONE; | |
| 349 | < | with FirebirdClientAPI do |
| 349 | > | with Statement.GetAttachment do |
| 350 | CharSetID2CodePage(GetCharSetID,result); | |
| 351 | end; | |
| 352 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |