ViewVC Help

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

root/public/ibx/branches/journaling/fbintf/client/2.5/FB25Attachment.pas

Comparing:
ibx/trunk/fbintf/client/2.5/FB25Attachment.pas (file contents), Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
ibx/branches/journaling/fbintf/client/2.5/FB25Attachment.pas (file contents), Revision 362 by tony, Tue Dec 7 13:27:39 2021 UTC

#	Line 68 | Line 68 | type
68		function StartTransaction(TPB: array of byte; DefaultCompletion: TTransactionCompletion): ITransaction; override;
69		function StartTransaction(TPB: ITPB; DefaultCompletion: TTransactionCompletion): ITransaction; override;
70		procedure ExecImmediate(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer); override;
71	<	function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; override;
71	>	function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; CursorName: AnsiString=''): IStatement; override;
72		function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
73	<	aSQLDialect: integer; GenerateParamNames: boolean=false): IStatement; override;
73	>	aSQLDialect: integer; GenerateParamNames: boolean=false;
74	>	CaseSensitiveParams: boolean=false; CursorName: AnsiString=''): IStatement; override;
75		function GetEventHandler(Events: TStrings): IEvents; override;
76	<	function CreateBlob(transaction: ITransaction; RelationName, ColumnName: AnsiString; BPB: IBPB=nil): IBlob; overload;
76	<	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;
78	–	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;
83	<	function CreateArray(transaction: ITransaction; RelationName, ColumnName: AnsiString
84	<	): IArray; overload;
85	<	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 90 | 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	>	function HasScollableCursors: boolean;
93		end;
94
95		implementation
96
97		uses FB25Events,FB25Transaction, FBMessages, FB25Blob,
98	<	FB25Statement, FB25Array, IBUtils;
98	>	FB25Statement, FB25Array, IBUtils, IBExternals;
99
100		{ TFB25Attachment }
101
#	Line 242 | Line 240 | begin
240		Result := TFB25Transaction.Create(FFirebird25ClientAPI,self,TPB,DefaultCompletion);
241		end;
242
245	–	function TFB25Attachment.CreateBlob(transaction: ITransaction; RelationName,
246	–	ColumnName: AnsiString; BPB: IBPB): IBlob;
247	–	begin
248	–	CheckHandle;
249	–	Result := TFB25Blob.Create(self,transaction as TFB25transaction,
250	–	TFB25BlobMetaData.Create(self,Transaction as TFB25Transaction,RelationName,ColumnName),BPB);
251	–	end;
252	–
243		function TFB25Attachment.CreateBlob(transaction: ITransaction;
244		BlobMetaData: IBlobMetaData; BPB: IBPB): IBlob;
245		begin
#	Line 264 | Line 254 | begin
254		Result := TFB25Blob.Create(self,transaction as TFB25transaction,SubType,aCharSetID,BPB);
255		end;
256
267	–	function TFB25Attachment.OpenBlob(transaction: ITransaction; RelationName,
268	–	ColumnName: AnsiString; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob;
269	–	begin
270	–	CheckHandle;
271	–	Result := TFB25Blob.Create(self,transaction as TFB25transaction,
272	–	TFB25BlobMetaData.Create(self,Transaction as TFB25Transaction,RelationName,ColumnName),
273	–	BlobID,BPB);
274	–	end;
275	–
257		function TFB25Attachment.OpenBlob(transaction: ITransaction;
258		BlobMetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB=nil): IBlob;
259		begin
#	Line 293 | Line 274 | begin
274		end;
275
276		function TFB25Attachment.Prepare(transaction: ITransaction; sql: AnsiString;
277	<	aSQLDialect: integer): IStatement;
277	>	aSQLDialect: integer; CursorName: AnsiString): IStatement;
278		begin
279		CheckHandle;
280		Result := TFB25Statement.Create(self,transaction,sql,aSQLDialect);
281		end;
282
283		function TFB25Attachment.PrepareWithNamedParameters(transaction: ITransaction;
284	<	sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean): IStatement;
284	>	sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean;
285	>	CaseSensitiveParams: boolean; CursorName: AnsiString): IStatement;
286		begin
287		CheckHandle;
288		Result := TFB25Statement.CreateWithParameterNames(self,transaction,sql,aSQLDialect,
289	<	GenerateParamNames);
289	>	GenerateParamNames,CaseSensitiveParams,CursorName);
290		end;
291
292		function TFB25Attachment.GetEventHandler(Events: TStrings): IEvents;
#	Line 313 | Line 295 | begin
295		Result := TFB25Events.Create(self,Events);
296		end;
297
298	<	function TFB25Attachment.OpenArray(transaction: ITransaction; RelationName, ColumnName: AnsiString;
298	>	function TFB25Attachment.OpenArray(transaction: ITransaction; ArrayMetaData: IArrayMetaData;
299		ArrayID: TISC_QUAD): IArray;
300		begin
301		CheckHandle;
302		Result := TFB25Array.Create(self,transaction as TFB25Transaction,
303	<	GetArrayMetaData(transaction,RelationName,ColumnName),ArrayID);
322	<	end;
323	<
324	<	function TFB25Attachment.CreateArray(transaction: ITransaction; RelationName, ColumnName: AnsiString): IArray;
325	<	begin
326	<	CheckHandle;
327	<	Result := TFB25Array.Create(self,transaction as TFB25Transaction,
328	<	GetArrayMetaData(transaction,RelationName,ColumnName));
303	>	ArrayMetaData,ArrayID);
304		end;
305
306		function TFB25Attachment.CreateArray(transaction: ITransaction;
#	Line 357 | Line 332 | begin
332		Result := TFB25ArrayMetaData.Create(self,Transaction as TFB25Transaction,tableName,columnName);
333		end;
334
335	+	procedure ISCVersionCallback(userArg: pointer; text: PAnsiChar); cdecl;
336	+	begin
337	+	TStrings(userArg).Add(text);
338	+	end;
339	+
340	+	procedure TFB25Attachment.getFBVersion(version: TStrings);
341	+	var callback: pointer;
342	+	begin
343	+	callback := @ISCVersionCallback;
344	+	version.Clear;
345	+	with FFirebird25ClientAPI do
346	+	if isc_version(@FHandle,TISC_CALLBACK(callback),PVoid(version)) > 0 then
347	+	IBDataBaseError;
348	+	end;
349	+
350	+	function TFB25Attachment.HasScollableCursors: boolean;
351	+	begin
352	+	Result := false;
353	+	end;
354	+
355		end.
356

Diff Legend

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