delphi多线程的实现

最新推荐文章于 2023-08-22 10:01:23 发布

原创最新推荐文章于 2023-08-22 10:01:23 发布 · 759 阅读

0 ·

CC 4.0 BY-SA版权

多线程一般用win32 API函数，比较直接简单

如下所示：

//注，此行写成TForm1.MyFun Createthread调用处会报错。

function MyFun(p: Pointer): Integer;stdcall;
var
i: Integer;
begin
for i := 0 to 500000 do
begin
Form1.Canvas.Lock
Form1.Canvas.TextOut(10, 10, IntToStr(i));
Form1.Canvas.Unlock;
end;
Result := 0;
end;

function MyFun1::Integer;stdcall;
var
i: Integer;
begin
for i := 0 to 500000 do
begin
Form1.Canvas.Lock
Form1.Canvas.TextOut(10, 10, IntToStr(i));
Form1.Canvas.Unlock;
end;
Result := 0;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
ID: THandle;
begin
CreateThread(nil, 0, @MyFun, nil, 0, ID);//创建多线程对象,调用的函数在子线程上面运行
TMyThread.Create();//本函数在主线程上面运行
end;

@MyFun表示函数的首地址，也就是指针对象

stdcall表示本函数式标准的win32函数