Delphi 2009是否在Windows 7安装中等待链遍历？

Question

根据"Delphi 2009中的新功能",有一种称为"等待链遍历"的新调试器功能.它特别说明了"添加了一个等待链遍历功能,以帮助您解决线程争用或死锁问题.该功能依赖于添加到Windows Vista操作系统的工具,该工具向调试器提供有关应用程序线程等待状态的信息.等待链的形式."

Delphi 2009在Windows Vista成为当前操作系统时发布.根据我的经验,Vista中引入的大多数功能也可以在Windows 7中使用.但是,我在Delphi 2009中通过Delphi XE安装(所有在Windows 7上)都没有看到此功能.

我在调试器的"线程"窗格中寻找此功能.

1. 我在正确的地方寻找等待链遍历吗？

2. 它是真正仅在Windows Vista中可用的功能,而不是在Windows 7中吗？

David M提供了一个清晰明确的答案,但我仍然没有在"线程"窗格中获得"等待链"列.这是一些代码.

主要表格:

unit Main;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ThreadDone(Sender: TObject);
  end;

var
  Form1: TForm1;
  RanGenThread: TRandomizer;

implementation

uses LoadThread;

{$R *.dfm}

{ TForm1 }

procedure TForm1.ThreadDone(Sender: TObject);
begin
  RanGenThread.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Sorted := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TLoader;
begin
ListBox1.Items.Clear;
ListBox1.Sorted := False;
RanGenThread := TRandomizer.Create(True);
RanGenThread.ArraySize := 1000;
Thread := TLoader.Create(True);
with Thread do
begin
  RanGenThread.WaitThread := Thread;
  FreeOnTerminate := True;
  OnTerminate := ThreadDone;
  WaitForThread := RanGenThread;
  //Use Start in Delphi 2010 or later, where Resume is deprecated
  Resume;
end;
RanGenThread.Resume;
end;

initialization
  Randomize;

end.

TRandomizer:

unit RanThread;

interface

uses
  Classes, Math, SyncObjs;

type
  TRandomizer = class(TThread)
  private
    { Private declarations }
    FArraySize: Integer;
  protected
    procedure Execute; override;
  public
    WaitThread: TThread;
    RandNumbers: array of Integer;
    property ArraySize: Integer read FArraySize write FArraySize;

  end;

implementation

uses Main;

procedure TRandomizer.Execute;
var
  i: Integer;
  LowNum, HighNum: Integer;
  RandNum: Integer;
begin
if FArraySize = 0 then
  begin
    Exit;
  end;
SetLength(RandNumbers, FArraySize);
LowNum := Low(RandNumbers);
HighNum := High(RandNumbers);
//initialize the array
for i := LowNum to HighNum do
  RandNumbers[i] := -1;
// generate the random order
for i := LowNum to HighNum do
  while True do
    begin
      RandNum := RandomRange(LowNum, HighNum + 1);
      if RandNumbers[RandNum] = -1 then
      begin
        RandNumbers[RandNum] := i + 1;
        break;
      end; // if
    end; // while
    WaitThread.WaitFor;
end;

end.

TLoader:

unit LoadThread;

interface

uses
  Classes, SyncObjs, Dialogs, SysUtils, RanThread;

type
  TLoader = class(TThread)
  private
    FWaitForThread: TRandomizer;
    procedure UpdateList;
    { Private declarations }
  protected
    procedure Execute; override;
  public
    property WaitForThread: TRandomizer
      read FWaitForThread write FWaitForThread;
  end;

implementation

uses Main;

procedure TLoader.UpdateList;
var
 i: Integer;
begin
for i := Low(FWaitForThread.RandNumbers) to
  High(FWaitForThread.RandNumbers) do
  Form1.ListBox1.Items.Add(IntToStr(FWaitForThread.RandNumbers[i]));
end;

procedure TLoader.Execute;
begin
if WaitForThread <> nil then
begin
  FWaitForThread.WaitFor;
  Synchronize(UpDateList)
end;
end;

end.

根据David M链接的等待链遍历文档,WTC可用于以下同步对象:

• ALPC
• COM
• 关键部分
• 互斥
• 发信息
• 等待进程和线程上的操作

我的代码在一个线程上等待,但它是一个TThread,而不是直接的本机线程.今天晚上,我将在等待Mutex时将我的代码示例修改为死锁,并查看是否会导致"等待链"列出现在"线程"窗格中.

好.终于找到了下次测试的时间.创建了一个在启动时获得Mutex所有权的应用程序.创建了一个工作线程,该线程使用OpenMutex获取该Mutex的句柄,然后调用WaitForsingleObject(handle,INFINITE)."线程"窗格中仍然没有"等待链"列.

Answer 1

1. 是的.编写一个程序,其中包含两个死锁的线程.您将看到,在"线程"窗格中,右侧列(标记为"等待链")将显示"等待线程12345持有的锁定".我不完全确定这个确切的短语,因为我现在的程序中没有任何死锁:)如果你没有看到它,请向右滚动.如果该列根本不存在,那就非常奇怪 - 请在评论中这样说.

2. 不.等待链遍历是在Vista(和Server 2008)中引入的,也可以在Windows 7上使用.您可以通过阅读有关等待链遍历的MSDN文档并查看一些核心函数来看到这一点,这些函数在表中都有注释.底部说"支持最低客户端:Windows Vista".它会说它是否在Windows的更高版本中被移除 - 它的措辞方式正是它对任何其他函数的方式.另外,使用Windows 7(我有Vista)的同事也有这个功能.

编辑:我在我的Vista机器上尝试了Delphi 2010中的示例代码(我没有2009恐怕).我单击了Button1和Button2,然后切换到Threads视图而不暂停程序."线程"窗格有一个"等待链"列,其中包含两个非主线程线程"阻塞等待线程11968"或"14416"的文本.

这是一个截图:

如果此功能正常工作,那么您应该在IDE中获得什么.

当你尝试这个时,你会得到其他列而不是Wait Chain列吗？如果是这样,我承认我有点困惑,我认为下一步可能是联系Embarcadero或者至少在他们的论坛上发帖,可能就是这个.我确实查找了等待链函数工作所需的权限,但是如果您正在使用当前用户拥有的进程,您似乎甚至不需要SE_DEBUG_NAME.(我不完全确定这是对文档的有效解释,但......)

我不认为你的IDE是在奇特权限或XP兼容模式下运行的吗？ 编辑4:这就是答案. 请参阅下面的Cary评论,该快捷方式在XP兼容模式下运行.

编辑2:我以为我会做一个完整性检查并查看他们的帮助文件说的内容.我无法在线找到2009年的帮助,但是2010年的帮助说" 等待链:(仅适用于Windows Vista和7) ".凉.然后我查看了XE帮助,并说" 等待链:(仅适用于Windows Vista) ".很奇怪.

我怀疑这是一个文档错误,它应该适用于Windows 7,因为我也遇到了这个Delphi 2009修补程序,用于在Windows 7上运行的等待链遍历.听起来非常支持我!当然,他们无法在最新版本的Windows产品的最新版本中删除这样的功能......是吗？即使他们确实使用了一个版本,也可以记录下来.

编辑3:我让我的Windows 7使用同事也尝试了你的示例代码.这就是他得到的:

在这一点上,我承认我有点困惑.我只能说在Windows 7上使用RAD Studio 2010,据我所知,应该适合你.如果不是这样的话,除了上面几个模糊的想法之外,我没有更多的建议!