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

Question

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

当Windows Vista成为当前的操作系统时，Delphi 2009发布了。根据我的经验，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
• 关键部分
• 互斥
• 的SendMessage
• 等待进程和线程上的操作

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

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

Answer 1

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

2. 否即可。等待链遍历是在Vista（和Server 2008）中引入的，也可以在Windows 7上使用。您可以通过阅读MSDN documentation on wait chain traversal并查看一些core functions来看到这一点，这些都在底部的表格说“支持的最低客户端：Windows Vista”。它会说它是否在Windows的更高版本中被移除 - 它的措辞方式正是它对任何其他函数的方式。另外，使用Windows 7（我有Vista）的同事也有此功能。

编辑：我在自己的Vista计算机上尝试过Delphi 2010中的示例代码（我不担心2009年）。我单击了Button1和Button2，然后切换到Threads视图而不暂停程序。 “线程”窗格有一个“等待链”列，其中包含两个非主线程线程“阻塞等待线程11968”或“14416”的文本。

以下是截图：



如果此功能有效，那么您应该在IDE中获得该功能。

当你尝试这个时，你会得到其他列而不是Wait Chain列吗？如果是这样，我承认我有点困惑，我认为下一步可能是联系Embarcadero或至少发帖one of their forums，可能是this one。我确实查找了等待链函数需要哪些权限才能工作，但是如果您正在使用当前用户拥有的进程，则看起来像don't even need SE_DEBUG_NAME。 （我不完全确定这是对文档的有效解释，但是......）

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

编辑2：我以为我会做一次完整性检查并查看他们的帮助文件说的内容。我无法在线找到2009年的帮助，但2010年的帮助说“Wait Chain: (For Windows Vista and 7 only)”。凉。然后我查看了XE帮助，并说“Wait Chain: (For Windows Vista only)”。很奇怪。

我怀疑这是一个文档错误，它应该适用于Windows 7，因为我也遇到了这个Delphi 2009 hotfix for wait chain traversal running on Windows 7。听起来非常支持我！当然，他们无法在最新版本的Windows产品的最新版本中删除这样的功能......是吗？即使他们确实使用了一个版本，也可以记录下来。

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



此时我承认我有点困惑。我只能说在Windows 7上使用RAD Studio 2010，据我所知，应该适合你。如果不是，我现在除了上面几个模糊的想法之外没有其他建议了！