ViewVC Help

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

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

Comparing ibx/trunk/fbintf/client/2.5/FB25ClientAPI.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

#	Line 195 | Line 195 | type
195		{Service Manager}
196		function AllocateSPB: ISPB;
197		function HasServiceAPI: boolean;
198	<	function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager;
198	>	function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
199	>	function GetServiceManager(ServerName: AnsiString; Port: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
200
201		{Information}
202		function GetStatus: IStatus; override;
#	Line 489 | Line 490 | begin
490		else
491		Result := nil;
492		end;
493	+
494	+	function TFB25ClientAPI.GetServiceManager(ServerName: AnsiString;
495	+	Port: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager;
496	+	begin
497	+	if HasServiceAPI then
498	+	Result := TFB25ServiceManager.Create(ServerName,Protocol,SPB,Port)
499	+	else
500	+	Result := nil;
501	+	end;
502
503		function TFB25ClientAPI.StartTransaction(Attachments: array of IAttachment;
504		TPB: array of byte; DefaultCompletion: TTransactionCompletion): ITransaction;

Diff Legend

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