--- ibx/trunk/fbintf/client/2.5/FB25ClientAPI.pas	2017/03/06 10:20:02	56
+++ ibx/trunk/fbintf/client/2.5/FB25ClientAPI.pas	2018/02/23 12:11:21	143
@@ -195,7 +195,8 @@ type
     {Service Manager}
     function AllocateSPB: ISPB;
     function HasServiceAPI: boolean;
-    function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager;
+    function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
+    function GetServiceManager(ServerName: AnsiString; Port: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
 
     {Information}
     function GetStatus: IStatus; override;
@@ -489,6 +490,15 @@ begin
   else
     Result := nil;
 end;
+
+function TFB25ClientAPI.GetServiceManager(ServerName: AnsiString;
+  Port: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager;
+begin
+  if HasServiceAPI then
+    Result := TFB25ServiceManager.Create(ServerName,Protocol,SPB,Port)
+  else
+    Result := nil;
+end;
 
 function TFB25ClientAPI.StartTransaction(Attachments: array of IAttachment;
   TPB: array of byte; DefaultCompletion: TTransactionCompletion): ITransaction;