multithreading - Delphi和线程: “System Error. Code: 1400. Invalid window handle”

Question

对线程有点陌生，我遇到了一个问题:

我为Synapse THTTPSend对象构建了一个小型包装器，以通过线程方式处理异步调用。一切似乎一切顺利，直到我退出应用程序并得到此错误(使用madExcept异常处理程序)“系统错误。代码:1400。无效的窗口句柄。”

main thread ($2d00):
0047f931 +091 x.exe  System.SysUtils          RaiseLastOSError
0047f88e +00e x.exe  System.SysUtils          RaiseLastOSError
006198c4 +064 x.exe  Vcl.Controls             TWinControl.DestroyWindowHandle
0061674c +0dc x.exe  Vcl.Controls             TWinControl.Destroy
0067487b +05b x.exe  Vcl.ComCtrls             TTabSheet.Destroy
00616781 +111 x.exe  Vcl.Controls             TWinControl.Destroy
00673218 +0b8 x.exe  Vcl.ComCtrls             TCustomTabControl.Destroy
0067529c +06c x.exe  Vcl.ComCtrls             TPageControl.Destroy
00616781 +111 x.exe  Vcl.Controls             TWinControl.Destroy
0073d95e +06e x.exe  Vcl.Forms                TScrollingWinControl.Destroy
0073f5d2 +1e2 x.exe  Vcl.Forms                TCustomForm.Destroy
0040b2d5 +015 x.exe  System                   TObject.Free
005a034e +08e x.exe  System.Classes           TComponent.DestroyComponents
0073be06 +046 x.exe  Vcl.Forms                DoneApplication
00472520 +030 x.exe  System.SysUtils          DoExitProc
0040e0d9 +079 x.exe  System                   @Halt0

我已经跟踪到访问列表 View ，它是这样的:

GUI在我的包装器中调用proc并分配一个回调方法

包装器创建一个线程并设置一个回调

线程完成其工作(http帖子)，然后调用包装程序的回调

包装器的回调在GUI中触发另一个回调，然后更新列表 View 中的某些项目

如果我跳过该listview部分，该错误将永远不会发生，所以我认为我的线程代码可能出了点问题，弄乱了vcl/gui，可能是因为在访问VCL时它仍在运行？如果我检查列表 View ，则在线程结束后有一些奇怪的地方，有时列表 View 甚至不可见，或者添加的项目不可单击。

列表 View 部分

procedure Tx.AddLog(url,DelURL: string);
begin
  if Settings.OptEnableLogging.Checked then begin
    With UploadsForm.ListView1.Items.Add do begin
      Caption := DateTimeToStr(Now);
      SubItems.Add(OriginalFilename);
      SubItems.Add(url);
      SubItems.Add('');
      SubItems.Add(DelURL);
    end;
    SaveLoggingLog;
  end;

    With UploadsForm.ListView2.Items.Add do begin
      Caption := DateTimeToStr(Now);
      SubItems.Add(OriginalFilename);
      SubItems.Add(url);
      SubItems.Add('');
      SubItems.Add(DelURL);
    end;
end;

线程对象

type
  TMySynHTTPAsync = class(TThread)
  protected
    procedure Execute; override;
  private
    sObj: TSynHTTP;
  public
    Constructor Create(SynObj: TSynHTTP);
    Destructor Destroy; override;
end;

implementation

Constructor TMySynHTTPAsync.Create(SynObj: TSynHTTP);
begin
  inherited Create(False);
  Self.FreeOnTerminate := True;
  sObj := SynObj;
end;

Destructor TMySynHTTPAsync.Destroy;
begin
  //
  inherited Destroy;
end;

Procedure TMySynHTTPAsync.Execute;
begin
  With sObj do begin
    try
      case tCallType of
        thPostString: ThreadResult := sObj.Post(tURL, tPostVars);
      end;
    except
      //
    end;
    if Assigned(sObj.xOnAsyncRequestDone) then sObj.xOnAsyncRequestDone;
    FThread := nil;
  end;
end;

创建线程

FThread: TThread;

procedure TSynHTTP.DoAsync;
begin
  ThreadResult := False;
  FThread := TMySynHTTPAsync.Create(Self);
  FThread.Resume;
end;

我猜这是罪魁祸首，因为它在线程完成之前经历了所有GUI处理。

if Assigned(sObj.xOnAsyncRequestDone) then sObj.xOnAsyncRequestDone;

我该如何解决？

Answer 1

您已经发布了很多代码，但没有发布关键的相关部分。具体来说就是xOnAsyncRequestDone事件处理程序/方法的实现(除非它实际上只是调用您发布的log方法)。

此方法是在 TMySynHTTPAsync 线程的上下文中执行的，并且根据您描述的行为-特别是Synchronize解决了您的问题这一事实-该事件处理程序中的某些 Activity 很有可能正在创建窗口句柄。

然后，该窗口句柄由HTTP Async线程拥有，而不是由运行应用程序的主应用程序线程(有时称为“VCL线程”)拥有。当您的应用程序关闭时，VCL线程将执行一些最终的内务处理，销毁对象和窗口等。如果这些窗口之一是由其他线程创建的，则将引起问题。

窗口句柄是创建它们的线程的严格属性。您不能在一个线程中创建窗口句柄，然后在另一个线程中销毁它。

注意:这是Windows的基础知识，而不是Delphi。

在此值得注意的是，VCL中的窗口句柄通常可以间接创建。您不一定会看到显式创建的控件来标记基础窗口句柄的创建。仅在需要时才实际创建窗口句柄是很常见的。同样，更改控件的属性可能会触发VCL尝试重新创建该控件的窗口，从而破坏进程中的当前窗口。

显而易见，这些机制极易受到由VCL线程以外的线程调用VCL方法时可能出现的问题的影响。这就是为什么您经常在这里说“VCL不是线程安全的”的原因。

最安全的操作方式是仅通过VCL线程本身中运行的代码来操纵VCL对象。

与救援同步

实际上，这正是Synchronize存在的原因。

通过使用Synchronize调用的机制实际上可以确保要同步的方法在VCL线程上执行。如果实际上是在创建窗口句柄，则当VCL线程稍后销毁该窗口句柄时，这样做是完全自由的，因为它确实创建了它。

因此，您的问题得以解决。

其他选择

但是，Synchronize机制非常复杂，(如今)要处理跨平台问题，因此在这种情况下可能会显得过分杀伤力。

如果您的代码特定于Windows，则此问题的可能替代解决方案可能是利用Windows允许线程向其他线程中的Windows发送(或发布)消息的事实。当这些消息被这些窗口接收时，它们将由该窗口自己的线程处理，就像发送给那些窗口的所有其他消息一样。即，您不能突然跳过去从线程运行通知来中断该窗口接收到的“单击”消息。该通知消息只需要等待窗口完成对单击消息的处理就可以了。例如。

您可以将其视为OS中“内置”的“同步”系统。

因此，例如，您可以在初始化期间将窗口句柄传递给窗体(或带有窗口句柄的控件或任何东西)到HTTP异步线程，从而标识希望从窗口接收“请求完成”或其他通知的VCL窗口。线。然后，线程可以使用PostMessage或SendMessage将通知发送到该窗口句柄，您可以通过覆盖表单上的 WindowProc 或使用声明的消息处理程序来处理该通知。

如果线程使用SendMessage()发送通知，则它将自动挂起并被迫等待，直到窗口(在VCL线程中)接收到该消息并对其进行处理为止。

如果线程使用PostMessage()，则消息将异步发送，并且线程可以继续进行其他工作，而不必等待。 VCL线程最终将接收并处理该消息。

不是建议

这并不是说我会在这种情况下推荐这种替代方法。尽管在这种情况下它似乎只是一个简单的“工作已完成”通知，这似乎是适当的，但如果没有对您的特定需求的更全面的了解，就无法说出哪一个是最合适的。

我提到它只是为了强调以下事实:确实存在替代方案，并且安全，可靠的线程化的关键是理解所涉及的原理和机制。