procedure TMyManagerThread.addlist(obje: tobject);
begin
EnterCriticalSection( listkritik );
try
try
Managerlist.Add( obje );
except on e:exception do
begin
.......
end;
end;
finally
LeaveCriticalSection( listkritik );
end;
end;
procedure TfrTCPServer.myProc( Athread: TIdPeerThread );
var MyClass : TMyclass;
begin
.....
MyClass := TMyclass.create;
MyClass.no := 123;
..............
try
ManagerThreads[ Tperson( Athread.data ).roomNumber ].addlist( MyClass );
except on e: exception do
begin
ExceptionLoga( e.Message ); //---------->Access violation at address 7C82F350 in module 'ntdll.dll'. Write of address 31333176
end;
end;
What may be source of the problem? Why ntdll.dll?
This program runs on win2003 server. I use Delhi 5.
