|
@@ -68,7 +68,7 @@ var
|
|
|
DebugClient : TSimpleIPCClient = nil;
|
|
DebugClient : TSimpleIPCClient = nil;
|
|
|
MsgBuffer : TMemoryStream = Nil;
|
|
MsgBuffer : TMemoryStream = Nil;
|
|
|
ServerID : Integer;
|
|
ServerID : Integer;
|
|
|
- DebugDisabled : Boolean;
|
|
|
|
|
|
|
+ DebugDisabled : Boolean = False;
|
|
|
Indent : Integer = 0;
|
|
Indent : Integer = 0;
|
|
|
|
|
|
|
|
Procedure WriteMessage(Const Msg : TDebugMessage);
|
|
Procedure WriteMessage(Const Msg : TDebugMessage);
|
|
@@ -236,8 +236,8 @@ begin
|
|
|
Msg.Msg:=Format(SProcessID,[ApplicationName]);
|
|
Msg.Msg:=Format(SProcessID,[ApplicationName]);
|
|
|
WriteMessage(Msg);
|
|
WriteMessage(Msg);
|
|
|
end;
|
|
end;
|
|
|
- FreeAndNil(MsgBuffer);
|
|
|
|
|
- FreeAndNil(DebugClient);
|
|
|
|
|
|
|
+ if assigned(MsgBuffer) then FreeAndNil(MsgBuffer);
|
|
|
|
|
+ if assigned(DebugClient) then FreeAndNil(DebugClient);
|
|
|
except
|
|
except
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
@@ -278,8 +278,6 @@ begin
|
|
|
Result := True;
|
|
Result := True;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-Initialization
|
|
|
|
|
- DebugDisabled := False;
|
|
|
|
|
Finalization
|
|
Finalization
|
|
|
FreeDebugClient;
|
|
FreeDebugClient;
|
|
|
end.
|
|
end.
|
joost