<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Can't help you with that one, but have a look at EurekaLog
(<a class="moz-txt-link-freetext" href="http://www.eurekalog.com/">http://www.eurekalog.com/</a>) which is absolutely brilliant.<br>
Phil.<br>
<br>
Leigh Wanstead wrote:
<blockquote cite="midLFEKILOBBONMNHKGKKCHKEMNDEAA.leighw@softtech.co.nz"
type="cite">
<meta http-equiv="Content-Type" content="text/html; ">
<meta content="MSHTML 6.00.2900.2912" name="GENERATOR">
<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> </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> </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> </div>
<div><font face="Arial" size="2"><span class="890471801-25072006">var<br>
varStringListStack: TStringList;<br>
</span></font></div>
<div><font face="Arial" size="2"><span class="890471801-25072006">
JclStartExceptionTracking;</span></font></div>
<div><font face="Arial" size="2"><span class="890471801-25072006">
try<br>
try</span></font></div>
<div><font face="Arial" size="2"><span class="890471801-25072006"> //
do something might throw thread ......<br>
except<br>
on E: Exception do<br>
begin<br>
varStringListStack := TStringList.Create;<br>
try<br>
varStringListStack.BeginUpdate;</span></font></div>
<div> </div>
<div><font face="Arial" size="2"><span class="890471801-25072006">
JclLastExceptStackListToStrings(varStringListStack, False, True, True);<br>
varStringListStack.EndUpdate;<br>
finally<br>
FreeAndNil(varStringListStack);<br>
end;<br>
</span></font><font face="Arial" size="2"><span
class="890471801-25072006"> end;<br>
end;<br>
finally<br>
JclStopExceptionTracking;<br>
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> </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"> </span></font></div>
<pre wrap="">
<hr size="4" width="90%">
_______________________________________________
Delphi mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Delphi@ns3.123.co.nz">Delphi@ns3.123.co.nz</a>
<a class="moz-txt-link-freetext" href="http://ns3.123.co.nz/mailman/listinfo/delphi">http://ns3.123.co.nz/mailman/listinfo/delphi</a>
</pre>
</blockquote>
</body>
</html>