ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/3.0/FB30Statement.pas
(Generate patch)

Comparing ibx/branches/udr/client/3.0/FB30Statement.pas (file contents):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 389 by tony, Thu Jan 20 23:33:40 2022 UTC

# Line 982 | Line 982 | procedure TIBXINPUTSQLDA.PackBuffer;
982   var i: integer;
983      P: PByte;
984      MsgLen: cardinal;
985 +    aNullIndicator: short;
986   begin
987    BuildMetadata;
988  
# Line 1022 | Line 1023 | begin
1023        begin
1024          Move(FNullIndicator,(FMessageBuffer + FCurMetaData.getNullOffset(StatusIntf,i))^,sizeof(FNullIndicator));
1025          Check4DataBaseError;
1026 +      end
1027 +      else
1028 +      begin
1029 +        aNullIndicator := 0;
1030 +        Move(aNullIndicator,(FMessageBuffer + FCurMetaData.getNullOffset(StatusIntf,i))^,sizeof(aNullIndicator));
1031        end;
1032      end;
1033    end;
# Line 1743 | Line 1749 | begin
1749            IBError(ibxeEOF,[nil]);
1750          { Go to the next record... }
1751          fetchResult := FResultSet.fetchNext(StatusIntf,FSQLRecord.MessageBuffer);
1752 +        Check4DataBaseError;
1753          if fetchResult = Firebird.IStatus.RESULT_NO_DATA then
1754          begin
1755            FBOF := false;
# Line 1757 | Line 1764 | begin
1764            IBError(ibxeBOF,[nil]);
1765          { Go to the next record... }
1766          fetchResult := FResultSet.fetchPrior(StatusIntf,FSQLRecord.MessageBuffer);
1767 +        Check4DataBaseError;
1768          if fetchResult = Firebird.IStatus.RESULT_NO_DATA then
1769          begin
1770            FBOF := true;
# Line 1766 | Line 1774 | begin
1774        end;
1775  
1776      ftFirst:
1777 <      fetchResult := FResultSet.fetchFirst(StatusIntf,FSQLRecord.MessageBuffer);
1777 >      begin
1778 >        fetchResult := FResultSet.fetchFirst(StatusIntf,FSQLRecord.MessageBuffer);
1779 >        Check4DataBaseError;
1780 >      end;
1781  
1782      ftLast:
1783 <      fetchResult := FResultSet.fetchLast(StatusIntf,FSQLRecord.MessageBuffer);
1783 >      begin
1784 >        fetchResult := FResultSet.fetchLast(StatusIntf,FSQLRecord.MessageBuffer);
1785 >        Check4DataBaseError;
1786 >      end;
1787  
1788      ftAbsolute:
1789 <      fetchResult := FResultSet.fetchAbsolute(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1789 >      begin
1790 >        fetchResult := FResultSet.fetchAbsolute(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1791 >        Check4DataBaseError;
1792 >      end;
1793  
1794      ftRelative:
1795 <      fetchResult := FResultSet.fetchRelative(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1795 >      begin
1796 >        fetchResult := FResultSet.fetchRelative(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1797 >        Check4DataBaseError;
1798 >      end;
1799      end;
1800  
1781 –    Check4DataBaseError;
1801      if fetchResult <> Firebird.IStatus.RESULT_OK then
1802        exit; {result = false}
1803  

Comparing ibx/branches/udr/client/3.0/FB30Statement.pas (property svn:eol-style):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 389 by tony, Thu Jan 20 23:33:40 2022 UTC

# Line 0 | Line 1
1 + native

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines