[DUG] Stack print in Delphi with thread

[Leigh Wanstead]

Hello everyone,

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?

Here is the code template.

var
  varStringListStack: TStringList;

    JclStartExceptionTracking;
    try
        try
            // do something might throw thread ......
        except
            on E: Exception do
            begin
              varStringListStack := TStringList.Create;
              try
                varStringListStack.BeginUpdate;

                JclLastExceptStackListToStrings(varStringListStack, False,
True, True);
                varStringListStack.EndUpdate;
              finally
                FreeAndNil(varStringListStack);
              end;
            end;
        end;
  finally
    JclStopExceptionTracking;
  end;

TIA

Regards
Leigh
www.smootharm.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ns3.123.co.nz/pipermail/delphi/attachments/20060725/82fdf4d8/attachment.html