ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/2.5/FB25Statement.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/2.5/FB25Statement.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC

# 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  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines