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

Comparing ibx/trunk/fbintf/client/2.5/FB25Attachment.pas (file contents):
Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC vs.
Revision 291 by tony, Fri Apr 17 10:26:08 2020 UTC

# Line 73 | Line 73 | type
73                         aSQLDialect: integer; GenerateParamNames: boolean=false;
74                         CaseSensitiveParams: boolean=false): IStatement; override;
75      function GetEventHandler(Events: TStrings): IEvents; override;
76 <    function CreateBlob(transaction: ITransaction; RelationName, ColumnName: AnsiString; BPB: IBPB=nil): IBlob; overload;
77 <    function CreateBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BPB: IBPB=nil): IBlob; overload;
76 >    function CreateBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BPB: IBPB=nil): IBlob; overload; override;
77      function CreateBlob(transaction: ITransaction; SubType: integer; aCharSetID: cardinal=0; BPB: IBPB=nil): IBlob; overload;
79    function OpenBlob(transaction: ITransaction; RelationName, ColumnName: AnsiString; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob; overload;
78      function OpenBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob; overload; override;
79  
80 <    function OpenArray(transaction: ITransaction; RelationName, ColumnName: AnsiString;
81 <      ArrayID: TISC_QUAD): IArray;
84 <    function CreateArray(transaction: ITransaction; RelationName, ColumnName: AnsiString
85 <      ): IArray; overload;
86 <    function CreateArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData): IArray; overload;
80 >    function OpenArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData; ArrayID: TISC_QUAD): IArray; overload; override;
81 >    function CreateArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData): IArray; overload; override;
82      function CreateArrayMetaData(SQLType: cardinal; tableName: AnsiString; columnName: AnsiString;
83        Scale: integer; size: cardinal;
84        acharSetID: cardinal; dimensions: cardinal; bounds: TArrayBounds
# Line 91 | Line 86 | type
86  
87      {Database Information}
88  
89 <    function GetBlobMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IBlobMetaData;
90 <    function GetArrayMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IArrayMetaData;
89 >    function GetBlobMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IBlobMetaData; override;
90 >    function GetArrayMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IArrayMetaData; override;
91      procedure getFBVersion(version: TStrings);
92    end;
93  
# Line 244 | Line 239 | begin
239    Result := TFB25Transaction.Create(FFirebird25ClientAPI,self,TPB,DefaultCompletion);
240   end;
241  
247 function TFB25Attachment.CreateBlob(transaction: ITransaction; RelationName,
248  ColumnName: AnsiString; BPB: IBPB): IBlob;
249 begin
250  CheckHandle;
251  Result := TFB25Blob.Create(self,transaction as TFB25transaction,
252                TFB25BlobMetaData.Create(self,Transaction as TFB25Transaction,RelationName,ColumnName),BPB);
253 end;
254
242   function TFB25Attachment.CreateBlob(transaction: ITransaction;
243    BlobMetaData: IBlobMetaData; BPB: IBPB): IBlob;
244   begin
# Line 266 | Line 253 | begin
253    Result := TFB25Blob.Create(self,transaction as TFB25transaction,SubType,aCharSetID,BPB);
254   end;
255  
269 function TFB25Attachment.OpenBlob(transaction: ITransaction; RelationName,
270  ColumnName: AnsiString; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob;
271 begin
272  CheckHandle;
273  Result := TFB25Blob.Create(self,transaction as TFB25transaction,
274                TFB25BlobMetaData.Create(self,Transaction as TFB25Transaction,RelationName,ColumnName),
275                BlobID,BPB);
276 end;
277
256   function TFB25Attachment.OpenBlob(transaction: ITransaction;
257    BlobMetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob;
258   begin
# Line 316 | Line 294 | begin
294    Result := TFB25Events.Create(self,Events);
295   end;
296  
297 < function TFB25Attachment.OpenArray(transaction: ITransaction; RelationName, ColumnName: AnsiString;
297 > function TFB25Attachment.OpenArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData;
298    ArrayID: TISC_QUAD): IArray;
299   begin
300    CheckHandle;
301    Result := TFB25Array.Create(self,transaction as TFB25Transaction,
302 <                    GetArrayMetaData(transaction,RelationName,ColumnName),ArrayID);
325 < end;
326 <
327 < function TFB25Attachment.CreateArray(transaction: ITransaction; RelationName, ColumnName: AnsiString): IArray;
328 < begin
329 <  CheckHandle;
330 <  Result := TFB25Array.Create(self,transaction as TFB25Transaction,
331 <                    GetArrayMetaData(transaction,RelationName,ColumnName));
302 >                    ArrayMetaData,ArrayID);
303   end;
304  
305   function TFB25Attachment.CreateArray(transaction: ITransaction;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines