线程如何通知没有窗口句柄的对象？

Question

我是多线程的新手，但并不是一个完全的新手。我需要在工作线程中执行对 Web 服务的调用。

在主线程中，我有一个带有私有数据成员（私有字符串）的表单（TForm），只有工作线程才会写入该表单（我在线程恢复之前将指向它的指针传递到线程中）。当工作线程完成其 Web 服务调用并将生成的响应 xml 写入表单上的私有成员时，工作线程使用 PostMessage 将消息发送到表单的句柄（我也在线程恢复之前将其传递到线程中）。

interface

const WM_WEBSERVCALL_COMPLETE = WM_USER + 1;

type 
  TWebServiceResponseXML = string;
  PWebServiceResponseXML = ^TWebServiceResponseXML;

  TMyForm = class(TForm)
    ...
  private
    ...
    fWorkerThreadID: Cardinal;
    fWebServiceResponseXML: TWebServiceResponseXML;
  public
    ...
    procedure StartWorkerThread;
    procedure OnWebServiceCallComplete(var Message: TMessage); Message WM_WEBSERVCALL_COMPLETE;
  end;

  TMyThread = class(TThread)
  private      
  protected
    procedure Execute; override;
  public
    SenderHandle: HWnd;
    RequestXML: string;
    ResponseXML: string;
    IMyService: IService;
    PResponseXML: PWebServiceResponseXML;
  end;

implementation

procedure TMyForm.StartWorkerThread;
var
  MyWorkerThread: TMyThread;
begin
  MyWorkerThread := TMyThread.Create(True);
  MyWorkerThread.FreeOnTerminate := True;
  MyWorkerThread.SenderHandle := self.Handle;
  MyWorkerThread.RequestXML := ComposeRequestXML;
  MyWorkerThread.PResponseXML := ^fWebServiceResponseXML;
  MyWorkerThread.Resume;
end;

procedure TMyForm.OnWebServiceCallComplete(var Message: TMessage);
begin
  // Do what you want with the response xml string in fWebServiceResponseXML
end;

procedure TMyThread.Execute;
begin
  inherited;
  CoInitialize(nil);
  try
    IMyService := IService.GetMyService(URI);
    ResponseXML := IMyService.Search(RequestXML);
    PResponseXML := ResponseXML;
    PostMessage(SenderHandle, WM_WEBSERVCALL_COMPLETE, 0, 0);
  finally
    CoUninitialize;
  end;
end;

它工作得很好，但现在我想从数据模块（没有句柄）做同样的事情...所以我真的很感激一些有用的代码来补充我的工作模型。

编辑

我真正想要的是代码（如果可能的话），它允许我将该行替换

MyWorkerThread.SenderHandle := self.Handle;

为

MyWorkerThread.SenderHandle := GetHandleForThisSOAPDataModule;

Answer 1

我之前已经使用过这种技术并取得了一些成功：向非窗口应用程序发送消息< /a>

基本上，使用第二个线程作为通过 AllocateHWND 获取的句柄上的消息泵。这无疑令人恼火，您最好使用库来处理所有细节。我更喜欢 OmniThreadLibrary 但还有其他 - 请参阅我如何在执行线程的各种方法之间进行选择Delphi？ 和 Delphi - 线程框架。

Answer 2

您可以使用 AllocateHwnd 分配自己的句柄并将其用作 PostMessage 目标。

TTestThread = class(TThread)
private
  FSignalShutdown: boolean;
  // hidden window handle 
  FWinHandle: HWND;                       
protected
  procedure Execute; override;
  // our window procedure 
  procedure WndProc(var msg: TMessage);   
public
  constructor Create;
  destructor Destroy; override;
  procedure PrintMsg;
end;

constructor TTestThread.Create;
begin
  FSignalShutdown := False;

  // create the hidden window, store it's 
  // handle and change the default window 
  // procedure provided by Windows with our 
  // window procedure 

  FWinHandle := AllocateHWND(WndProc);
  inherited Create(False);
end;

destructor TTestThread.Destroy;
begin
  // destroy the hidden window and free up memory 
  DeallocateHWnd(FWinHandle);
  inherited;
end;

procedure TTestThread.WndProc(var msg: TMessage);
begin
  if Msg.Msg = WM_SHUTDOWN_THREADS then
    // if the message id is WM_SHUTDOWN_THREADS
    // do our own processing        
    FSignalShutdown := True 
  else        
    // for all other messages call 
    // the default window procedure 
    Msg.Result := DefWindowProc(FWinHandle, Msg.Msg, 
                                Msg.wParam, Msg.lParam);
end;

您可以将其应用于任何东西，而不仅仅是线程。请注意，AllocateHWND 不是线程安全的，如此处。

Answer 3

基于事件使用的替代方案：

1. 使用OnTerminate线程（已经存在）与标志的组合：

   TMyDataModule = 类(TDataModule)
   私人的    
     过程 OnWebServiceCallComplete(Sender: TObject);
   ...  
   
   TMyThread = 类(TThread)
   民众
     属性 TerminateFlag: 整数 ...
   ...
   
   过程 TMyDataModule.StartWorkerThread；
     ...
     MyWorkerThread.OnTerminate := OnWebServiceCallComplete;
     ...
   
   过程 TMyDataModule.OnWebServiceCallComplete(Sender: TObject);
   开始
     如果 MyWorkerThread.TerminateFlag = WEBCALL_COMPLETE 那么
       ...
   结尾;
   

   在执行例程中设置 TerminateFlag。即使 FreeOnTerminate 为 True，OnTerminate 也会自动触发。

2. 向线程类添加一个新的事件属性，您可以在其中提供标志作为参数来指示终止/线程结果。类似此处所示。请务必同步事件调用。或者忘记参数，仅在执行正常完成时调用事件（就像您现在所做的那样）。