<!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 text=#000000 bgColor=#ffffff>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff size=2>Hi
Phil,</FONT></SPAN></DIV>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff
size=2>Thanks</FONT></SPAN></DIV>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff size=2>I
talked to my boss and he agreed to get one copy ;-) Hope eurekalog
works.</FONT></SPAN></DIV>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff
size=2>Regards</FONT></SPAN></DIV>
<DIV><SPAN class=843264602-25072006><FONT face=Arial color=#0000ff
size=2>Leigh</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> delphi-bounces@ns3.123.co.nz
[mailto:delphi-bounces@ns3.123.co.nz]<B>On Behalf Of </B>Phil
Middlemiss<BR><B>Sent:</B> Tuesday, 25 July 2006 1:39 p.m.<BR><B>To:</B> NZ
Borland Developers Group - Delphi List<BR><B>Subject:</B> Re: [DUG] Stack
print in Delphi with thread<BR><BR></FONT></DIV>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 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 width="90%" SIZE=4>
_______________________________________________
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></BLOCKQUOTE></BODY></HTML>