ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/client/2.5/FB25Attachment.pas

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