ViewVC Help

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

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

Comparing ibx/trunk/fbintf/client/FBServices.pas (file contents):
Revision 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 63 | Line 63 | type
63		{IServiceManager}
64		function getSPB: ISPB;
65		function getServerName: AnsiString;
66	+	function getProtocol: TProtocol;
67	+	function getPortNo: AnsiString;
68		procedure Attach;
69		procedure Detach(Force: boolean=false); virtual; abstract;
70		function AllocateSRB: ISRB;
71		function AllocateSQPB: ISQPB;
72	<	function Query(SQPB: ISQPB; Request: ISRB): IServiceQueryResults; overload; virtual; abstract;
73	<	function Query(Request: ISRB): IServiceQueryResults;  overload;
72	>	function Query(SQPB: ISQPB; Request: ISRB; RaiseExceptionOnError: boolean=true): IServiceQueryResults; overload; virtual; abstract;
73	>	function Query(Request: ISRB; RaiseExceptionOnError: boolean=true): IServiceQueryResults;  overload;
74		end;
75
76		implementation
#	Line 111 | Line 113 | begin
113		Result := FServerName;
114		end;
115
116	+	function TFBServiceManager.getProtocol: TProtocol;
117	+	begin
118	+	Result := FProtocol;
119	+	end;
120	+
121	+	function TFBServiceManager.getPortNo: AnsiString;
122	+	begin
123	+	Result := FPort;
124	+	end;
125	+
126		procedure TFBServiceManager.Attach;
127		var ConnectString: AnsiString;
128		begin
#	Line 128 | Line 140 | begin
140		Result := TSQPB.Create;
141		end;
142
143	<	function TFBServiceManager.Query(Request: ISRB): IServiceQueryResults;
143	>	function TFBServiceManager.Query(Request: ISRB; RaiseExceptionOnError: boolean
144	>	): IServiceQueryResults;
145		begin
146	<	Result := Query(nil,Request);
146	>	Result := Query(nil,Request,RaiseExceptionOnError);
147		end;
148
149		end.

Diff Legend

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