对线程有点陌生,我遇到了一个问题:
我为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 ,它是这样的:
如果我跳过该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;
我该如何解决?
最佳答案
您已经发布了很多代码,但没有发布关键的相关部分。具体来说就是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线程最终将接收并处理该消息。
不是建议
这并不是说我会在这种情况下推荐这种替代方法。尽管在这种情况下它似乎只是一个简单的“工作已完成”通知,这似乎是适当的,但如果没有对您的特定需求的更全面的了解,就无法说出哪一个是最合适的。
我提到它只是为了强调以下事实:确实存在替代方案,并且安全,可靠的线程化的关键是理解所涉及的原理和机制。
关于multithreading - Delphi和线程: “System Error. Code: 1400. Invalid window handle” ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36869815/