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; |
84 |
< |
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; |
86 |
– |
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; |
92 |
< |
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 |
|
|
319 |
|
Result := TFB30Events.Create(self,Events); |
320 |
|
end; |
321 |
|
|
325 |
– |
function TFB30Attachment.CreateBlob(transaction: ITransaction; RelationName, |
326 |
– |
ColumnName: AnsiString; BPB: IBPB): IBlob; |
327 |
– |
begin |
328 |
– |
CheckHandle; |
329 |
– |
Result := TFB30Blob.Create(self,transaction as TFB30Transaction, |
330 |
– |
TFB30BlobMetaData.Create(self,Transaction as TFB30Transaction,RelationName,ColumnName),BPB); |
331 |
– |
end; |
332 |
– |
|
322 |
|
function TFB30Attachment.CreateBlob(transaction: ITransaction; |
323 |
|
BlobMetaData: IBlobMetaData; BPB: IBPB): IBlob; |
324 |
|
begin |
333 |
|
Result := TFB30Blob.Create(self,transaction as TFB30Transaction, SubType,aCharSetID,BPB); |
334 |
|
end; |
335 |
|
|
347 |
– |
function TFB30Attachment.OpenBlob(transaction: ITransaction; RelationName, |
348 |
– |
ColumnName: AnsiString; BlobID: TISC_QUAD; BPB: IBPB): IBlob; |
349 |
– |
begin |
350 |
– |
CheckHandle; |
351 |
– |
Result := TFB30Blob.Create(self,transaction as TFB30transaction, |
352 |
– |
TFB30BlobMetaData.Create(self,Transaction as TFB30Transaction,RelationName,ColumnName), |
353 |
– |
BlobID,BPB); |
354 |
– |
end; |
355 |
– |
|
336 |
|
function TFB30Attachment.OpenBlob(transaction: ITransaction; |
337 |
|
BlobMetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB): IBlob; |
338 |
|
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; |
365 |
< |
begin |
366 |
< |
CheckHandle; |
367 |
< |
Result := TFB30Array.Create(self,transaction as TFB30Transaction, |
368 |
< |
GetArrayMetaData(transaction,RelationName,ColumnName),ArrayID); |
369 |
< |
end; |
370 |
< |
|
371 |
< |
function TFB30Attachment.CreateArray(transaction: ITransaction; RelationName, |
372 |
< |
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; |