精华区 [关闭][返回]
当前位置：网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>线程>>Re:如何调试多线程程序？

主题：Re:如何调试多线程程序？
发信人: d_fang()
整理人: soaringbird(2002-01-31 12:32:07), 站内信件
【 在 sysbase 的大作中提到：】
:编写多线程程序，不能只有从view->debug->threads看线程状态一个方法吧？
:怎么调试？我希望跟踪调试其中的一个线程，但是总是停不下来。
:......
 
Question: 
I have a TThread object which may raise an exception in the Execute procedure. When an exception is raised, I want to be able to show that exception to the end user. How do I go about doing this in the most efficient way? 

Answer:
With a TThread object, if you don't catch an exception in the Execute procedure of a TThread, you may get access violations. The Delphi IDE may break fine on the exception, but often when the application is run outside of the IDE you get an "Application error has occurred" exception and your application stops running. 
If you don't care about showing the end user that an exception occurred, you can simply wrap your Execute procedure with a try..finally block such as: 

procedure TMyThread.Execute;
begin
  try
    // Do your thread stuff here
  except // Eat all exceptions
  end;
end;

Quite often, this isn't the best solution and you will want to show the message to the end user, or allow your application to further process the message. 
The easiest way to do this, is to add an Exception object to your TThread class, and call the appropriate handler based on the type of exception. Here is an example of how to do this. The project consists of one form with a Button placed on it: 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, 
  Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyThread = class(TThread)
  private
    FException: Exception;
    procedure DoHandleException;
  protected
    procedure Execute; override;
    procedure HandleException; virtual;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TMyThread.DoHandleException;
begin
  // Cancel the mouse capture
  if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  // Now actually show the exception
  if FException is Exception then
    Application.ShowException(FException)
  else
    SysUtils.ShowException(FException, nil);
end;

procedure TMyThread.Execute;
begin
  FException := nil;
  try
    // raise an Exception
    raise Exception.Create('I raised an exception');
  except
    HandleException;
  end;
end;

procedure TMyThread.HandleException;
begin
  // This function is virtual so you can override it
  // and add your own functionality.
  FException := Exception(ExceptObject);
  try
    // Don't show EAbort messages
    if not (FException is EAbort) then
      Synchronize(DoHandleException);
  finally
    FException := nil;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Create an instance of the TMyThread
  with TMyThread.Create(True) do
  begin
    FreeOnTerminate := True;
    Resume; 
  end;
end;

end.



----
欢迎访问方文设计室！！
立即下载data2000,包含900多个delphi技巧！！！</p>

<p>

</p>
[关闭][返回]