mORMot and Open Source friends
Check-in [b33f84b62b]
Check-in [b33f84b62b]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | {2506} fixed TServiceController.State to return ssErrorRetrievingState if OpenSCManager successed but OpenService failed - thanks Eric for the report |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b33f84b62b4d1f3c170790d5a8e76960 |
| User & Date: | ab 2016-04-05 12:13:50 |
|
2016-04-05
| ||
| 12:18 | {2507} fix in TSQLRestStorageExternal.ExecuteFromJSON when EngineAddForcedID is set check-in: 3fd36c702d user: ab tags: trunk | |
| 12:13 | {2506} fixed TServiceController.State to return ssErrorRetrievingState if OpenSCManager successed but OpenService failed - thanks Eric for the report check-in: b33f84b62b user: ab tags: trunk | |
|
2016-04-04
| ||
| 19:44 | {2505} let TSQLRestClientURI.ServiceDefine returns a TServiceFactoryClient instance check-in: 19d7329856 user: ab tags: trunk | |
Changes to SQLite3/mORMotService.pas.
608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 |
if FSCHandle <> 0 then
CloseServiceHandle(FSCHandle);
inherited;
end;
function TServiceController.GetState: TServiceState;
begin
if (self=nil) or (FSCHandle=0) then
result := ssErrorRetrievingState else
if FHandle=0 then
result := ssNotInstalled else
result := CurrentStateToServiceState(Status.dwCurrentState);
ServiceLog.Add.Log(sllTrace,FName,TypeInfo(TServiceState),result);
end;
function TServiceController.GetStatus: TServiceStatus;
begin
FillChar(FStatus, Sizeof(FStatus), 0);
|
| < < |
608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 |
if FSCHandle <> 0 then
CloseServiceHandle(FSCHandle);
inherited;
end;
function TServiceController.GetState: TServiceState;
begin
if (self=nil) or (FSCHandle=0) or (FHandle=0) then
result := ssErrorRetrievingState else
result := CurrentStateToServiceState(Status.dwCurrentState);
ServiceLog.Add.Log(sllTrace,FName,TypeInfo(TServiceState),result);
end;
function TServiceController.GetStatus: TServiceStatus;
begin
FillChar(FStatus, Sizeof(FStatus), 0);
|
Changes to SynopseCommit.inc.
1 |
'1.18.2505'
|
| |
1 |
'1.18.2506'
|