pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Avoid "TInterfacedPersistent" : it does not actually implement interface life style. Fix binder memory leak.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-02-08 12:03:09 +00:00
parent ea4816281b
commit 4c0d2981e5
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/server_service_intf.pas
View File

@ -139,7 +139,8 @@ type
{ TBaseServiceBinder } { TBaseServiceBinder }
TBaseServiceBinder = Class(TInterfacedPersistent,IServerService) {$M+}
TBaseServiceBinder = Class(TInterfacedObject,IServerService)
Private Private
FVerbList : TObjectList; FVerbList : TObjectList;
FImplementationFactory : IServiceImplementationFactory; FImplementationFactory : IServiceImplementationFactory;
@ -163,6 +164,7 @@ type
procedure Error(Const AMsg : string);overload; procedure Error(Const AMsg : string);overload;
procedure Error(Const AMsg : string;Const AArgs : Array of Const);overload; procedure Error(Const AMsg : string;Const AArgs : Array of Const);overload;
End; End;
{$M-}
{ TBaseServiceImplementation } { TBaseServiceImplementation }