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 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC

# Line 146 | Line 146 | type
146      function GetSQLData: PByte;  override;
147      function GetDataLength: cardinal; override;
148      function GetSize: cardinal; override;
149 +    function GetAttachment: IAttachment; override;
150 +    function GetDefaultTextSQLType: cardinal; override;
151      procedure SetIsNull(Value: Boolean); override;
152      procedure SetIsNullable(Value: Boolean);  override;
153      procedure SetSQLData(AValue: PByte; len: cardinal); override;
# Line 165 | Line 167 | type
167      procedure Initialize; override;
168  
169      property Statement: TFB25Statement read FStatement;
170 +    property SQLType: cardinal read GetSQLType write SetSQLType;
171    end;
172  
173    TIBXINPUTSQLDA = class;
# Line 390 | Line 393 | begin
393    Result := FMetadataSize;
394   end;
395  
396 + function TIBXSQLVAR.GetAttachment: IAttachment;
397 + begin
398 +  Result := FStatement.GetAttachment;
399 + end;
400 +
401   function TIBXSQLVAR.GetArrayMetaData: IArrayMetaData;
402   begin
403    if GetSQLType <> SQL_ARRAY then
# Line 575 | Line 583 | begin
583    end;
584   end;
585  
586 + function TIBXSQLVAR.GetDefaultTextSQLType: cardinal;
587 + begin
588 +  Result := SQL_TEXT;
589 + end;
590 +
591   constructor TIBXSQLVAR.Create(aParent: TIBXSQLDA; aIndex: integer);
592   begin
593    inherited Create(aParent,aIndex);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines