ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/3.0/FB30ClientAPI.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/3.0/FB30ClientAPI.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 101 | Line 101 | type
101  
102      {Service Manager}
103      function AllocateSPB: ISPB;
104 <    function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager;
104 >    function GetServiceManager(ServerName: AnsiString; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
105 >    function GetServiceManager(ServerName: AnsiString; Port: Ansistring; Protocol: TProtocol; SPB: ISPB): IServiceManager; overload;
106  
107      {Information}
108      function HasServiceAPI: boolean;
# Line 308 | Line 309 | begin
309    Result := TFB30ServiceManager.Create(ServerName,Protocol,SPB);
310   end;
311  
312 + function TFB30ClientAPI.GetServiceManager(ServerName: AnsiString;
313 +  Port: Ansistring; Protocol: TProtocol; SPB: ISPB): IServiceManager;
314 + begin
315 +  Result := TFB30ServiceManager.Create(ServerName,Protocol,SPB,Port);
316 + end;
317 +
318   function TFB30ClientAPI.HasServiceAPI: boolean;
319   begin
320    Result := true;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines