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

Comparing ibx/trunk/fbintf/client/3.0/FB30Attachment.pas (file contents):
Revision 267 by tony, Fri Dec 28 10:44:23 2018 UTC vs.
Revision 291 by tony, Fri Apr 17 10:26:08 2020 UTC

# Line 72 | Line 72 | type
72      procedure ExecImmediate(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer); override;
73      function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; override;
74      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
75 <                       aSQLDialect: integer; GenerateParamNames: boolean=false): IStatement; override;
75 >                       aSQLDialect: integer; GenerateParamNames: boolean=false;
76 >                       CaseSensitiveParams: boolean=false): IStatement; override;
77  
78      {Events}
79      function GetEventHandler(Events: TStrings): IEvents; override;
80  
81      {Blob - may use to open existing Blobs. However, ISQLData.AsBlob is preferred}
82  
83 <    function CreateBlob(transaction: ITransaction; RelationName, ColumnName: AnsiString; BPB: IBPB=nil): IBlob; overload;
83 <    function CreateBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BPB: IBPB=nil): IBlob; overload;
83 >    function CreateBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BPB: IBPB=nil): IBlob; overload; override;
84      function CreateBlob(transaction: ITransaction; SubType: integer; aCharSetID: cardinal=0; BPB: IBPB=nil): IBlob; overload;
85 –    function OpenBlob(transaction: ITransaction; RelationName, ColumnName: AnsiString; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob; overload;
85      function OpenBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob;  overload; override;
86  
87      {Array}
88 <    function OpenArray(transaction: ITransaction; RelationName, ColumnName: AnsiString; ArrayID: TISC_QUAD): IArray;
89 <    function CreateArray(transaction: ITransaction; RelationName, ColumnName: AnsiString): IArray; overload;
91 <    function CreateArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData): IArray; overload;
88 >    function OpenArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData; ArrayID: TISC_QUAD): IArray; overload; override;
89 >    function CreateArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData): IArray; overload; override;
90      function CreateArrayMetaData(SQLType: cardinal; tableName: AnsiString;
91        columnName: AnsiString; Scale: integer; size: cardinal; aCharSetID: cardinal;
92        dimensions: cardinal; bounds: TArrayBounds): IArrayMetaData;
93  
94  
95      {Database Information}
96 <    function GetBlobMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IBlobMetaData;
97 <    function GetArrayMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IArrayMetaData;
96 >    function GetBlobMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IBlobMetaData; override;
97 >    function GetArrayMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IArrayMetaData; override;
98      procedure getFBVersion(version: TStrings);
99    end;
100  
# Line 307 | Line 305 | begin
305   end;
306  
307   function TFB30Attachment.PrepareWithNamedParameters(transaction: ITransaction;
308 <  sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean): IStatement;
308 >  sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean;
309 >  CaseSensitiveParams: boolean): IStatement;
310   begin
311    CheckHandle;
312    Result := TFB30Statement.CreateWithParameterNames(self,transaction,sql,aSQLDialect,
313 <         GenerateParamNames);
313 >         GenerateParamNames,CaseSensitiveParams);
314   end;
315  
316   function TFB30Attachment.GetEventHandler(Events: TStrings): IEvents;
# Line 320 | Line 319 | begin
319    Result := TFB30Events.Create(self,Events);
320   end;
321  
323 – function TFB30Attachment.CreateBlob(transaction: ITransaction; RelationName,
324 –  ColumnName: AnsiString; BPB: IBPB): IBlob;
325 – begin
326 –  CheckHandle;
327 –  Result := TFB30Blob.Create(self,transaction as TFB30Transaction,
328 –              TFB30BlobMetaData.Create(self,Transaction as TFB30Transaction,RelationName,ColumnName),BPB);
329 – end;
330 –
322   function TFB30Attachment.CreateBlob(transaction: ITransaction;
323    BlobMetaData: IBlobMetaData; BPB: IBPB): IBlob;
324   begin
# Line 342 | Line 333 | begin
333    Result := TFB30Blob.Create(self,transaction as TFB30Transaction, SubType,aCharSetID,BPB);
334   end;
335  
345 – function TFB30Attachment.OpenBlob(transaction: ITransaction; RelationName,
346 –  ColumnName: AnsiString; BlobID: TISC_QUAD; BPB: IBPB): IBlob;
347 – begin
348 –  CheckHandle;
349 –  Result := TFB30Blob.Create(self,transaction as TFB30transaction,
350 –                TFB30BlobMetaData.Create(self,Transaction as TFB30Transaction,RelationName,ColumnName),
351 –                BlobID,BPB);
352 – end;
353 –
336   function TFB30Attachment.OpenBlob(transaction: ITransaction;
337    BlobMetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB): IBlob;
338   begin
# Line 358 | Line 340 | begin
340    Result :=  TFB30Blob.Create(self,transaction as TFB30transaction,BlobMetaData,BlobID,BPB);
341   end;
342  
343 < function TFB30Attachment.OpenArray(transaction: ITransaction; RelationName,
344 <  ColumnName: AnsiString; ArrayID: TISC_QUAD): IArray;
363 < begin
364 <  CheckHandle;
365 <  Result := TFB30Array.Create(self,transaction as TFB30Transaction,
366 <                    GetArrayMetaData(transaction,RelationName,ColumnName),ArrayID);
367 < end;
368 <
369 < function TFB30Attachment.CreateArray(transaction: ITransaction; RelationName,
370 <  ColumnName: AnsiString): IArray;
343 > function TFB30Attachment.OpenArray(transaction: ITransaction;
344 >  ArrayMetaData: IArrayMetaData; ArrayID: TISC_QUAD): IArray;
345   begin
346    CheckHandle;
347    Result := TFB30Array.Create(self,transaction as TFB30Transaction,
348 <                    GetArrayMetaData(transaction,RelationName,ColumnName));
348 >                    ArrayMetaData,ArrayID);
349   end;
350  
351   function TFB30Attachment.CreateArray(transaction: ITransaction;

Diff Legend

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