前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >学习笔记:delphi多线程知识

学习笔记:delphi多线程知识

作者头像
用户1105954
发布2018-01-12 17:52:06
1.1K0
发布2018-01-12 17:52:06
举报
文章被收录于专栏:mini188

最近一直在温习旧的知识,刚好学习了一下Java的线程安全方面的知识,今天想起之前一直做的Delphi开发,所以还是有必要温习一下,看看这些不同的编程语言有什么不同之处。

Delphi的线程同步方法:

1、临界区

申明一个临界资源

FLock   : TRTLCriticalSection;

先初化一个临界资源对象 InitializeCriticalSection(FLock) 销毁临界资源对象 DeleteCriticalSection(FLock)

代码语言:javascript
复制
procedure TSaveThread.PushTask(pTask: pFileInfo);
begin  //进入临界资源,有线程占用后,后面的线程会阻塞
  EnterCriticalSection(FLock);
  try    //这里是受保护的代码
    if not Assigned(FTasks) then
      FTasks:= TList.Create;

    FTasks.Add(pTask);
  finally    //离开临界资源,其他的阻塞的线程可以进入
    LeaveCriticalSection(FLock);
  end;
end;

这种方式还是挺简单的,和Java中的synchronized代码块方式类似

2、Event事件

Event有两种状态:有信号和无信号,通过这个特性可以用于线程同步。Event相关的API也多,控制起来也比较灵活,看看他的几个方法:

CreateEvent:创建事件

SetEvent:设置为有信号状态

ResetEvent: 设置为无信号状态

PulseEvent :设置为有信号状态,接着又设置为无信号状态(有点类似于单步调试的感觉)

在线程中还是要用WaitForSingleObject来阻塞

代码语言:javascript
复制
procedure TSearchTopNThread.Execute;
begin
  while not Self.Terminated do
  begin
    WaitForSingleObject(FEvent, INFINITE);//FEvent为无信号时阻塞,直到变为有信号时代码继续执行
    .......
  end;
end;
代码语言:javascript
复制
//设置事件状态为无信号,阻塞线程
procedure TForm1.Button1Click(Sender: TObject);
begin
  ResetEvent(hEvent);
end;

//设置事件状态为有信号,线程解除阻塞
procedure TForm1.Button2Click(Sender: TObject);
begin
  SetEvent(hEvent);
end;

//设置一次脉冲信号状态,先设置有信号,再设置无信号
procedure TForm1.Button3Click(Sender: TObject);
begin
  PulseEvent(hEvent);
end;

3、互斥对象

代码语言:javascript
复制
var  hMutex: THandle; //互斥对象的句柄

function ThreadFun(p: Pointer): DWORD; stdcall;
var
  i: Integer;
beginfor i := 0 to 1000 do
  begin    //使用WaitForSingleObject访问互斥对象,如果hMutex为被锁定>=1,那就等待,如果为未锁定那么就给hMutex的上锁,然后运行下面的代码
    if WaitForSingleObject(hMutex, INFINITE) = WAIT_OBJECT_0 then
    begin      //保护中的代码      .....            //代码结束后释放信号量,表示当前线程已经完成处理,后面的线程就可以获得控制权
      ReleaseMutex(hMutex);
    end;
  end;
  Result := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  hMutex := CreateMutex(nil, False, nil);//第二个参数为False表示创建的互斥对象不被任何线程拥有,也就说初始状态为未锁定,线程可以占有
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CloseHandle(hMutex);
end;

end.

总的过程和临界区有些类似,只不过互斥对象是系统核心对象,可以跨进程,而临界区只是当前进程。有这个特性可以用于对文件等资源的并发保护。

4、信号量

 信号量与互斥对象的方法类似,信号量的特点是可以设置计数,就是同时可以允许多个线程同时访问同一段代码。互斥对象就是信号量为1的情况,后面的线程只能等前一个执行完,而信号量就可以允许指定多个执行。

后来在看TThread的代码时发现新的Delphi版本中有了一个好东西:TMnitor

代码语言:javascript
复制
try
      TMonitor.Enter(ThreadLock);
      try
        SyncProcPtr.Queued := QueueEvent;
        if SyncList = nil then
          SyncList := TList.Create;
        SyncProcPtr.SyncRec := ASyncRec;
        SyncList.Add(SyncProcPtr);
        SignalSyncEvent;
        if Assigned(WakeMainThread) then
          WakeMainThread(SyncProcPtr.SyncRec.FThread);
        if not QueueEvent then
          TMonitor.Wait(SyncProcPtr.Signal, ThreadLock, INFINITE)
      finally
        TMonitor.Exit(ThreadLock);
      end;

这个代码和java中的Synchronized代码块很像,这样写起线程同步要简化不少。

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2015-03-08 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档