delphi中主线程如何等以另一个线程执行完在执行

2010-10-11 10:33:11 1.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wangxiubing04535 墨衍会员 · AI 创作全网分发关注 + 加入社区

【delphi11】delphi进阶【七、多线程编程在Delphi中的实现】在深入Delphi的多线程编程之前，首先要理解并发（Concurrency）和多线程（Multithreading）的概念。：并发是指系统能够处理多个任务的能力，这些任务可能会交错执行，但在任意时刻，可能只有一个任务在执行。：多线程是并发的一种形式，它允许在同一个程序中同时运行多个线程来执行不同的任务。阅读详情

我有个主线程中要创建一个线程。线程中主要判断某个任务完成没有，是一个while循环，没执行完就等待。主线程要等子线程执行完才能往下执行，所以我用了个互斥句柄，主线程关键代码是这样子的：
if FPlayFileHandle > 0 then
begin
MyThread := TMyThead.Create(True);
MyThread.FPlayFileHandle := FPlayFileHandle;
MyThread.Resume;
nret := WaitForSingleObject(hMutex, INFINITE);
ReleaseMutex(hMutex);
end；
子线程中关键代码：
hMutex := CreateMutex(nil, false, nil);
while true do
begin
nPos := BSR_DVR_DownFileGetPos(FPlayFileHandle) div 10;
if (npos < 0) or (npos >= 100) then
begin
FreeOnTerminate := True;
CloseHandle(hMutex);
我就是不知道这样的对互斥变量操作过程能让子线程先执行完吗，网上查资料可以的，可是子线程没执行完，主线程就接着执行了，请问大家我那个地方出问题了，怎么改？

...全文

Delphi语言的多线程编程在计算机科学中，线程是程序执行的基本单元。一个程序可以由多个线程并行执行，每个线程都可以独立执行任务。资源共享：多个线程可以共享进程的资源（如堆、全局变量等），避免资源冗余。更好的响应性：在用户界面应用中，主线程通常负责处理用户输入，辅助线程可以执行耗时的操作，避免界面冻结。并行处理：在多核处理器上，多个线程可以并行执行，提高程序的整体性能。然而，多线程编程也带来了复杂性，特别是在资源共享和同步方面，容易引发竞争条件等问题。阅读详情

wangxiubing04535

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

wxieyang 2010-10-12

打赏
举报

不要再主线程中调用等待函数，你的子线程完全可以采用通知的方式将当前的进度通知给主线程。
为什么一定要在主线程中自己用循环去等待呢？
主线程中的消息循环本身就是最好的等待方式，最简单的方式，你自定义一个消息，子线程向主线程发消息通知自己的进度就是了。

换个思路，问题可能很简单的。

比如：
在主线程的显示进度的窗体中定义一个消息响应函数，在消息响应函数中刷新进度信息。
子线程在适当的时候，采用sendmessage的方式向进度显示窗体发送消息，在消息中携带进度相关的数据供显示进度窗体的消息响应函数来处理。

lght 2010-10-12

打赏
举报

把主线程中的while循环放到一个子线程里

wangxiubing04535 2010-10-12

打赏
举报

用带while的MSGWaitForMultipleObjects没有阻塞掉时间线程。

lght 2010-10-12

打赏
举报

有那个ocx窗体的句柄就可以发消息。
你阻塞了主线程，界面还有响应？

wangxiubing04535 2010-10-12

打赏
举报

貌似用MSGWaitForMultipleObjects可以显示进度值了了，主线程的while并不会阻塞掉timer时钟，只是timer时钟线程随机执行导致取得进度值不是实时下载的进度。我的timer事件是在调用下载主线程后激发的，主线程有前面的while循环所以延后激发了。我对ocx不是很熟悉，下载窗体已经封转进ocx中，我不知道怎么向已封装进ocx中窗体发送消息，（主线程没被封转进ocx中，只是外部普通的pas）。再问下，在外部可以向ocx中窗体发送消息吗?我想说确实应直接使用TThread类，后来才发现要用Terminated属性，二楼说的是有道理的。

lght 2010-10-11

打赏
举报

只有一个线程在等待hMutex，当然是立即就返回了。
仔细看看windows核心编程。

Mutex创建后，改互斥对象计数器为0，表示所保护的资源没有线程访问，调用waitforsingleobject将查看计数器，为0时才能访问保护的资源，同时将计数器加1，其它所有访问改资源的线程将被置于等待状态。
等待多个用WaitForMultipleObjects。

如果你要用Mutex，主线程和子线程都得调用waitforsingleobject，并且主线程的waitforsingleobject还必须在子线程的waitforsingleobject之后执行。

SQLDebug_Fan 2010-10-11

打赏
举报

可以这样写WaitForSingleObject(MyThread.Handle, INFINITE);

SQLDebug_Fan 2010-10-11

打赏
举报

WaitForSingleObject等待线程句柄返回就可以了，WaitForSingleObject(hMutex, INFINITE)这样很快就返回了。

wangxiubing04535 2010-10-11

打赏
举报

子线程代码
//hMutex := CreateMutex(nil, false, nil);
while true do
begin
nPos := BSR_DVR_DownFileGetPos(FPlayFileHandle) div 10;
if (npos < 0) or (npos >= 100) then
begin
FreeOnTerminate := True;
//CloseHandle(hMutex);
if npos = 100 then
Break
else
begin
npos := nPos * 1;
TraceLog(IntToStr(FPlayFileHandle) + '下载文件时发生异常le npos:' +inttostr(npos));
Break;
end;
end
else
begin
TraceLog('下载句柄：'+ inttostr(FPlayFileHandle) + '正在下载文件');
Sleep(1000);
end;
end; // while

wangxiubing04535 2010-10-11

打赏
举报

貌似线程同步的方法有四种吧，我和你说的都是可行的，只是我对我使用mutex的过程不够自信，不知道错了没有，我的线程是继承TThread类，另外，主线程在执行时其实有一个timer时间事件线程也执行了，用于在窗体中显示下载进度值的，可是没能显示出来，是sleep的原因吗

bdmh 2010-10-11

打赏
举报

检查一下WaitForSingleObject的返回值是什么

kye_jufei 2010-10-11

打赏
举报

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);



  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  threadid:dword;

  hthread:thandle;

  procedure tt();



implementation



{$R *.dfm}



procedure  tt();//线程要执行的函数

var i:integer;

begin

for i:=0 to 20000 do

form1.Edit1.Text:=inttostr(i);

end;



procedure TForm1.Button1Click(Sender: TObject);//

begin

hthread:=createthread(nil,0,@tt,nil,0,threadid); //创建线程并立即执行

if hthread=0 then

messagebox(handle,'创建失败',nil,mb_ok);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

suspendthread(hthread);//挂起线程

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

resumethread(hthread);//恢复线程

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

terminatethread(hthread,2);//结束线程

end;

end.

kye_jufei 2010-10-11

打赏
举报

首先在DELPHI裏，有DELPHI自己做的線程類，最好用它。

還有就是這種方法用在多線程裏就一定要有 CreateEvent ,ResetEvent 完成一個再下一個。不然就同辦法同步了。

wangxiubing04535 2010-10-11

打赏
举报

用mutex也没有问题吧，希望大家指出我的错误在哪里，我会试下二楼的方法

lght 2010-10-11

打赏
举报

没必要用mutex吧
子线中：
FreeOnTerminate := False;

主线程创建子线程：
MyThread := TMyThead.Create(True);
MyThread.Resume;
MyThread.WaitFor;//WaitForSingleObject(MyThread.Handle, INFINITE)也可以
MyThread.Free;

wangxiubing04535 2010-10-11

打赏
举报

timer事件可以每隔一秒在下载窗体上显示下载的进度，而下载窗体封装进ocx控件里面了，当单击下载窗体的下载按钮会激发timer事件，我想能不能运行timer线程，因为下载的文件比较大，不显示进度感觉不太好，有办法吗，呵呵

SQLDebug_Fan 2010-10-11

打赏
举报

这个问题可以在TThread的OnTerminate事件中来通知下载完成。

wangxiubing04535 2010-10-11

打赏
举报

phandle就是MyThread.Handle

wangxiubing04535 2010-10-11

打赏
举报

在主线程中调用WaitForSingleObject(MyThread.Handle, INFINITE)会导致死锁;所以我在主线程中又用了以下代码：
while true do
begin
nret := MSGWaitForMultipleObjects(1, pHandle, False, INFINITE, (QS_INPUT or QS_POSTMESSAGE or QS_PAINT
or QS_HOTKEY or QS_SENDMESSAGE));
if nret = WAIT_OBJECT_0 then
break
else
begin
peekMessage(msg, 0, 0, 0, PM_REMOVE);
DispatchMessage(msg);
end;

end;

MSGWaitForMultipleObjects最后一个参数没有用QS_ALLINPUT，是考虑到不过滤掉QS_TIMER消息
我还有一个时钟事件线程会在主线程（一个下载文件的函数）运行时就会执行，可是主线程中的while会阻塞掉时钟事件线程，真是头疼，哪位大侠在帮忙出下主意，while循环会阻塞掉时钟事件吗，有什么方法呢，先谢谢了。

keeley20 2010-10-11

打赏
举报

加互斥标示

加载更多回复（5）

delphi中主线程如何等以另一个线程执行完在执行

相关推荐