ViewVC Help

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

root/public/ibx/branches/journaling/fbintf/client/FBStatement.pas

Comparing ibx/trunk/fbintf/client/FBStatement.pas (file contents):
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

#	Line 28 | Line 28
28		*
29		*)
30		unit FBStatement;
31	+	{$IFDEF MSWINDOWS}
32	+	{$DEFINE WINDOWS}
33	+	{$ENDIF}
34
35		{$IFDEF FPC}
36	<	{$mode objfpc}{$H+}
36	>	{$mode delphi}
37		{$codepage UTF8}
38		{$interfaces COM}
39		{$ENDIF}
#	Line 42 | Line 45 | uses
45		FBTransaction;
46
47		type
48	<	TPerfStatistics = array[psCurrentMemory..psFetches] of Int64;
48	>	TPerfStatistics = array[psCurrentMemory..psFetches] of comp;
49
50		{ TFBStatement }
51
#	Line 57 | Line 60 | type
60		FOpen: boolean;
61		FPrepared: boolean;
62		FPrepareSeqNo: integer; {used to check for out of date references from interfaces}
63	<	FSQL: string;
64	<	FProcessedSQL: string;
63	>	FSQL: AnsiString;
64	>	FProcessedSQL: AnsiString;
65		FHasParamNames: boolean;
66		FBOF: boolean;
67		FEOF: boolean;
#	Line 79 | Line 82 | type
82		procedure InternalClose(Force: boolean); virtual; abstract;
83		public
84		constructor Create(Attachment: IAttachment; Transaction: ITransaction;
85	<	sql: string; SQLDialect: integer);
85	>	sql: AnsiString; SQLDialect: integer);
86		constructor CreateWithParameterNames(Attachment: IAttachment; Transaction: ITransaction;
87	<	sql: string;  SQLDialect: integer; GenerateParamNames: boolean =false);
87	>	sql: AnsiString;  SQLDialect: integer; GenerateParamNames: boolean =false);
88		destructor Destroy; override;
89		procedure Close;
90		procedure TransactionEnding(aTransaction: ITransaction; Force: boolean);
#	Line 93 | Line 96 | type
96		function GetRowsAffected(var SelectCount, InsertCount, UpdateCount,
97		DeleteCount: integer): boolean;
98		function GetSQLStatementType: TIBSQLStatementTypes;
99	<	function GetSQLText: string;
99	>	function GetSQLText: AnsiString;
100		function GetSQLDialect: integer;
101
102		{GetDSQLInfo only supports isc_info_sql_stmt_type, isc_info_sql_get_plan, isc_info_sql_records}
103		procedure Prepare(aTransaction: ITransaction=nil); virtual;
104		function Execute(aTransaction: ITransaction=nil): IResults;
105		function OpenCursor(aTransaction: ITransaction=nil): IResultSet;
106	<	function CreateBlob(paramName: string): IBlob; overload;
106	>	function CreateBlob(paramName: AnsiString): IBlob; overload;
107		function CreateBlob(index: integer): IBlob; overload;
108		function CreateBlob(column: TColumnMetaData): IBlob; overload; virtual; abstract;
109	<	function CreateArray(paramName: string): IArray; overload;
109	>	function CreateArray(paramName: AnsiString): IArray; overload;
110		function CreateArray(index: integer): IArray;  overload;
111		function CreateArray(column: TColumnMetaData): IArray; overload; virtual; abstract;
112		function GetAttachment: IAttachment;
#	Line 133 | Line 136 | begin
136		end;
137
138		constructor TFBStatement.Create(Attachment: IAttachment;
139	<	Transaction: ITransaction; sql: string; SQLDialect: integer);
139	>	Transaction: ITransaction; sql: AnsiString; SQLDialect: integer);
140		begin
141		inherited Create(Transaction as TFBTransaction,2);
142		FAttachmentIntf := Attachment;
#	Line 143 | Line 146 | begin
146		end;
147
148		constructor TFBStatement.CreateWithParameterNames(Attachment: IAttachment;
149	<	Transaction: ITransaction; sql: string; SQLDialect: integer;
149	>	Transaction: ITransaction; sql: AnsiString; SQLDialect: integer;
150		GenerateParamNames: boolean);
151		begin
152		FHasParamNames := true;
#	Line 214 | Line 217 | begin
217		Result := FSQLStatementType;
218		end;
219
220	<	function TFBStatement.GetSQLText: string;
220	>	function TFBStatement.GetSQLText: AnsiString;
221		begin
222		Result := FSQL;
223		end;
#	Line 253 | Line 256 | begin
256		Result := InternalOpenCursor(aTransaction);
257		end;
258
259	<	function TFBStatement.CreateBlob(paramName: string): IBlob;
259	>	function TFBStatement.CreateBlob(paramName: AnsiString): IBlob;
260		var column: TColumnMetaData;
261		begin
262		InternalPrepare;
#	Line 269 | Line 272 | begin
272		Result := CreateBlob(SQLParams[index] as TSQLParam);
273		end;
274
275	<	function TFBStatement.CreateArray(paramName: string): IArray;
275	>	function TFBStatement.CreateArray(paramName: AnsiString): IArray;
276		var column: TColumnMetaData;
277		begin
278		InternalPrepare;

Diff Legend

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