IsServiceRunning must return False when Active=False

Hi,

Trying to check IsServiceRunnign when Active=False
raises exception. I think the method GetIsServiceRunning
must be fixed so it returns False not exception if
service is not Active.

Here is fixed method:

function TIBControlService.GetIsServiceRunning: Boolean;
var
  RunLen: Integer;
begin
  if not Active then
    Result := False else
  begin
    ServiceQueryParams := Char(isc_info_svc_running);
    InternalServiceQuery;
    if (OutputBuffer[0] <> Char(isc_info_svc_running)) then
      IBError(ibxeOutputParsingError, [nil]);
    RunLen := 1;
    if (ParseInteger(RunLen) = 1) then
      result := True
    else
      result := False;
  end;
end;

With best regards,

Andrei Kireev