Delphi7 從子線程中發送消息到主線程觸發事件執行

在對數據庫的操作時,有時要用一個子線程來進行後台的數據操作。比如說數據備份,轉檔什麽的。在主窗口還能同是進行其它操作。而有時後台每處理一個數據文件,要向主窗口發送消息,讓主窗口實時顯示處理進度在窗口上(可視),同時進行日志處理等。我用的是下面的方法:

[1]用到的API函數:

RegisterWindowsMessage

----------------------

函數功能:該函數定義一個新的窗口消息,該消息確保在系統中是唯一的。返回的消息值可在調用函數SendMessage或PostMessage時使用。

function RegisterWindowMessage(lpString: PChar): UINT; stdcall;

SendNotifyMessage

----------------------

函數功能:該函數將指定的消息發送到一個窗口。

如果該窗口是由調用線程創建的;此函數爲該窗口調用窗口程序,

並等待窗口程序處理完消息後再返回。

如果該窗口是由不同的線程創建的,此函數將消息傳給該窗口程序,

並立即返回,不等待窗口程序處理完消息。

SendNotifyMessage(HWND hWnd,UINT Msg,WPARAM wParam,LPARAM IParam);

BroadcastSystemMessage

----------------------

函數功能:該函數發送消息給指定的接受者。

接受者可以是一個應用程序、安裝驅動器、網絡驅動器、系統級設備驅動器

或這些系統組件的組合。

[2]過程:

type

TForm1 = class(TForm)

...............

...............

private

Msg: Cardinal;

protected

procedure WndProc(var Message: TMessage); override;

public

...............

...............

end;

var

Form1: TForm1;

MsgStrList: TStringList;

MsgStrLock : TCriticalSection;

implementation

uses ThreadCommunication_Unit;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Msg := RegisterWindowMessage('wm_threadmsg');

MsgStrList := TStringList.Create;

end;

procedure TForm1.WndProc(var Message: TMessage);

begin

if Message.Msg = Msg then begin

MsgStrLock.Enter;

if MsgStrList.Count > 0 then begin

Caption := MsgStrList.Strings[0];

MsgStrList.Delete(0);

end;

MsgStrLock.Leave;

ShowMessage('收到消息了'+ inttostr(Message.Msg));

end

else begin

inherited;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

TThreadCommunication.Create(Msg,Memo1);

end;

...............

...............

initialization

MsgStrLock := TCriticalSection.Create;

finalization

MsgStrLock.Free;

end.

一個子線程類的單元:

unit ThreadCommunication_Unit;

interface

uses

Classes,StdCtrls;

type

TThreadCommunicaiton = class(TThread)

private

FMsg : Cardinal;

FMemo: TMemo;

protected

procedure Execute; override;

procedure SendMsg;

public

constructor Create(aMsg:Cardinal;am:TMemo);virtual;

end;

implementation

uses Messages,Windows, Dialogs,SysUtils, ThreadMsg;

{ TThreadCommunicaiton }

constructor TThreadCommunicaiton.Create(aMsg: Cardinal; am:TMemo);

begin

inherited Create(True);

FMsg := aMsg;

FMemo:= am;

FreeOnTerminate :=True;

Resume;

end;

procedure TThreadCommunicaiton.Execute;

begin

Synchronize(SendMsg);

end;

procedure TThreadCommunicaiton.SendMsg;

var

M: TMessage;

B: DWord;

d: integer;

begin

{ Place thread code here }

sleep(50);

M.Msg := FMsg;

B := BSM_ALLCOMPONENTS;

MsgStrLock.Enter;

MsgStrList.Add('子線程子柄:'+inttostr(ThreadID)+ ' 用BroadcastSystemMessage發送');

d := MsgStrList.Count;

MsgStrLock.Leave;

BroadcastSystemMessage(BSF_POSTMESSAGE, @B , M.Msg, M.WParam, M.LParam );

FMemo.Lines.Add('子線程子柄:'+inttostr(ThreadID)+ ' 用BroadcastSystemMessage發送'+inttostr(d));

end;

end.

我在窗口上放有一Memo控件,可以顯示一些信息。

同時我定義了一個全局的TStringList的變量,用于存在要從子線程傳出的一些值。用BroadcaseSystemMessage發送消息,而消息號由創建子線程時傳入。而消息號在FormCreate中用RegisterWindowsMessage定義,並獲得一個消息號。

而消息觸發後的事件處理寫在WndProc中。

這裏將子線程傳出的字符串寫入窗口的標題。

而TStringList的變量作爲臨界區使用, 因爲當兩個線程訪問全局量時,爲防止它們同時執行,需要使用線程同步。

用TCriticalSection進行操作。

Enter,進入臨界區

Leave,離開臨界區

這樣可以正確的處理從子線程發來的消息。

如果是用SendNotifyMessage函數發送消息的話。

用法如下:

M.Msg := FMsg;

SendNotifyMessage(HWND_BROADCAST,M.Msg , M.WParam, M.LParam);

參數爲HWND_BROADCAST,則消息將被發送到系統中所有頂層窗口,包括無效或不可見的非自身擁有的窗口、被覆蓋的窗口和彈出式窗口,但消息不被發送到子窗口。

由于是用SendNotifyMessage將消息發送到主窗口,而主窗口所在線程與調用線程是同一個線程,所以要等待窗口程序處理完消息後再返回。才會執行子線程中的:

FMemo.Lines.Add('子線程子柄:'+inttostr(ThreadID)+ ' 用SendNotifyMessage發送');

 
Delphi7 從子線程中發送消息到主線程觸發事件執行
在對數據庫的操作時,有時要用一個子線程來進行後台的數據操作。比如說數據備份,轉檔什麽的。在主窗口還能同是進行其它操作。而有時後台每處理一個數據文件,要向主窗口發送消息,讓主窗口實時顯示處理進度在窗口上...查看完整版>>Delphi7 從子線程中發送消息到主線程觸發事件執行
 
如何暫停主線程直到第二個線程的終止?
如何暫停主線程直到第二個線程的終止?By 本文題目意思是:主線程要繼續執行,必須先等待另一個線程的終止。如何等待另一個線程的終止,正是下文要講述的。簡介Introduction幾周前,我需要制作一個對話框將它作爲MSI安...查看完整版>>如何暫停主線程直到第二個線程的終止?
 
Asp.net中服務端控件事件是如何觸發的
  Asp.net 中在客戶端觸發服務端事件分爲兩種情況:  一.  WebControls中的Button 和HtmlControls中的Type爲submit的HtmlInputButton    這兩種按鈕最終到客戶端的表現形式爲: <input name="Submit1" ...查看完整版>>Asp.net中服務端控件事件是如何觸發的
 
Asp.net 中服務端控件事件是如何觸發的
Asp.net 中在客戶端觸發服務端事件分爲兩種情況:一. WebControls中的Button 和HtmlControls中的Type爲submit的HtmlInputButton這兩種按鈕最終到客戶端的表現形式爲: <input name="Submit1" id="Submit1" ty...查看完整版>>Asp.net 中服務端控件事件是如何觸發的
 
Asp.net中服務端控件事件是如何觸發的
  Asp.net 中在客戶端觸發服務端事件分爲兩種情況:    一.   WebControls中的Button 和HtmlControls中的Type爲submit的HtmlInputButton    這兩種按鈕最終到客戶端的表現形式爲: <input name="Subm...查看完整版>>Asp.net中服務端控件事件是如何觸發的