<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2912" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial size=2><SPAN class=890471801-25072006>Hello 
everyone,</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2><SPAN class=890471801-25072006>I am using Project 
JEDI Code Library (JCL) JclDebug.pas to capture stack trace. It works great for 
main thread. But using Indy TCP/IP server environment onExecute event handler 
code, no stack can be captured. The reason for that is in different thread from 
the main thread. Does anyone know how to solve it?</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2><SPAN class=890471801-25072006>Here is the code 
template.</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2><SPAN class=890471801-25072006>var<BR>&nbsp; 
varStringListStack: TStringList;<BR></SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=890471801-25072006>&nbsp;&nbsp;&nbsp; 
JclStartExceptionTracking;</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=890471801-25072006>&nbsp;&nbsp;&nbsp; 
try<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;// 
do something might throw thread 
......<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;except<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
on E: Exception 
do<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
varStringListStack := 
TStringList.Create;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
try<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
varStringListStack.BeginUpdate;</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
JclLastExceptStackListToStrings(varStringListStack, False, True, 
True);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
varStringListStack.EndUpdate;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
finally<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
FreeAndNil(varStringListStack);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
end;<BR></SPAN></FONT><FONT face=Arial size=2><SPAN 
class=890471801-25072006>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
end;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<BR>&nbsp; 
finally<BR>&nbsp;&nbsp;&nbsp; JclStopExceptionTracking;<BR>&nbsp; 
end;<BR></SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006>TIA</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006>Regards</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006>Leigh</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=890471801-25072006><A 
href="http://www.smootharm.com">www.smootharm.com</A></SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN 
class=890471801-25072006>&nbsp;</DIV></SPAN></FONT></BODY></HTML>