程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 多線程編程(4) - 從 CreateThread 說起[續二]

多線程編程(4) - 從 CreateThread 說起[續二]

編輯:Delphi

function CreateThread(
 lpThreadAttributes: Pointer;
 dwStackSize: DWord;
 lpStartAddress: TFNThreadStartRoutine;
 lpParameter: Pointer; {入口函數的參數}
 dwCreationFlags: DWord;
 var lpThreadId: DWord
): THandle; stdcall;

  線程入口函數的參數是個無類型指針(Pointer), 用它可以指定任何數據; 本例是把鼠標點擊窗體的坐標傳遞給線程的入口函數, 每次點擊窗體都會創建一個線程.

  運行效果圖:

  多線程編程(4) - 從 CreateThread 說起[續二]

  代碼文件:unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
type
 TForm1 = class(TForm)
  procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
var
 pt: TPoint; {這個坐標點將會已指針的方式傳遞給線程, 它應該是全局的}
function MyThreadFun(p: Pointer): Integer; stdcall;
var
 i: Integer;
 pt2: TPoint;    {因為指針參數給的點隨時都在變, 需用線程的局部變量存起來}
begin
 pt2 := PPoint(p)^; {轉換}
 for i := 0 to 1000000 do
 begin
  with Form1.Canvas do begin
   Lock;
   TextOut(pt2.X, pt2.Y, IntToStr(i));
   Unlock;
  end;
 end;
 Result := 0;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 ID: DWord;
begin
 pt := Point(X, Y);
 CreateThread(nil, 0, @MyThreadFun, @pt, 0, ID);
 {下面這種寫法更好理解, 其實不必, 因為 PPoint 會自動轉換為 Pointer 的}
 //CreateThread(nil, 0, @MyThreadFun, Pointer(@pt), 0, ID);
end;
end.

窗體文件:object Form1: TForm1
 Left = 0
 Top = 0
 Caption = 'Form1'
 ClIEntHeight = 128
 ClIEntWidth = 229
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 OnMouseUp = FormMouseUp
 PixelsPerInch = 96
 TextHeight = 13
end

  這個例子還有不嚴謹的地方: 當一個線程 Lock 窗體的 Canvas 時, 其他線程在等待; 線程在等待時, 其中的計數也還在增加. 這也就是說: 現在並沒有去處理線程的同步; 同步是多線程中最重要的課題, 快到了.

  另外有個小技巧: 線程函數的參數是個 32 位(4個字節)的指針, 僅就本例來講, 可以讓它的 "高16位" 和 "低16位" 分別攜帶 X 和 Y; 這樣就不需要哪個全局的 pt 變量了.

  其實在 Windows 的消息中就是這樣傳遞坐標的, 在 Windows 的消息中一般高字節是 Y、低字節是 X; 咱們這麼來吧, 這樣還可以使用給消息准備的一些方便的函數.

  重寫本例代碼(當然運行效果和窗體文件都是一樣的):unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
type
 TForm1 = class(TForm)
  procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
function MyThreadFun(p: Pointer): Integer; stdcall;
var
 i: Integer;
 x,y: Word;
begin
 x := LoWord(Integer(p));
 y := HiWord(Integer(p));
 {如果不使用 LoWord、HiWord 函數可以像下面這樣: }
 //x := Integer(p);
 //y := Integer(p) shr 16;
 for i := 0 to 1000000 do
 begin
  with Form1.Canvas do begin
   Lock;
   TextOut(x, y, IntToStr(i));
   Unlock;
  end;
 end;
 Result := 0;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 ID: DWord;
 num: Integer;
begin
 num := MakeLong(X, Y);
 {如果不使用 MekeLong、MakeWParam、MakeLParam、MakeResult 等函數, 可以像下面這樣: }
 //num := Y shl 16 + X;
 CreateThread(nil, 0, @MyThreadFun, Ptr(num), 0, ID);
 {上面的 Ptr 是專門將一個數字轉換為指針的函數, 當然也可以這樣: }
 //CreateThread(nil, 0, @MyThreadFun, Pointer(num), 0, ID);
end;
end.



 

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved