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; |
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; |