每日时讯!delphi多线程详解及其详解例子 Delphi多线程同步处理方案
在了解多线程之前我们先了解一下进程和线程的关系
一个程序至少有一个主进程,一个进程至少有一个线程。
为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html
(相关资料图)
主线程又程为UI线程。
进程和线程的主要差别在于它们是不同的操作系统资源管理方式。进程有独立的地址空间,一个进程崩溃后,在保护模式下不会对其它进程产生影响,而线程只是一个进程中的不同执行路径。线程有自己的堆栈和局部变量,但线程之间没有单独的地址空间,一个线程死掉就等于整个进程死掉,所以多进程的程序要比多线程的程序健壮,但在进程切换时,耗费资源较大,效率要差一些。但对于一些要求同时进行并且又要共享某些变量的并发操作,只能用线程,不能用进程。如果有兴趣深入的话,我建议你们看看《现代操作系统》或者《操作系统的设计与实现》。对就个问题说得比较清楚。
多线程应该是编程工作者的基础技能, 但这个基础我从来没学过,所以仅仅是看上去会一些,明白了2+2的时候,其实我还不知道1+1。 开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.
先试试这个:
procedureTForm1.Button1Click(Sender: TObject); vari: Integer; beginfori := 0 to500000 dobeginCanvas.TextOut(10, 10, IntToStr(i)); end; end;
上面程序运行时, 我们的窗体基本是 "死" 的, 可以在你在程序运行期间拖动窗体试试... Delphi 为我们提供了一个简单的办法(Application.ProcessMessages)来解决这个问题:
procedureTForm1.Button1Click(Sender: TObject); vari: Integer; beginfori := 0 to500000 dobeginCanvas.TextOut(10, 10, IntToStr(i)); Application.ProcessMessages; end; end;
这个 Application.ProcessMessages; 一般用在比较费时的循环中, 它会检查并先处理消息队列中的其他消息. 但这算不上多线程, 譬如: 运行中你拖动窗体, 循环会暂停下来... 在使用多线程以前, 让我们先简单修改一下程序:
functionMyFun: Integer; vari: Integer; beginfori := 0 to500000 dobeginForm1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end; Result := 0; end; procedureTForm1.Button1Click(Sender: TObject); beginMyFun; end;
细数上面程序的变化: 1、首先这还不是多线程的, 也会让窗体假 "死" 一会; 2、把执行代码写在了一个函数里, 但这个函数不属于 TForm1 的方法, 所以使用 Canvas 是必须冠以名称(Form1); 3、既然是个函数, (不管是否必要)都应该有返回值; 4、使用了 500001 次 Lock 和 Unlock. Canvas.Lock 好比在说: Canvas(绘图表面)正忙着呢, 其他想用 Canvas 的等会; Canvas.Unlock : 用完了, 解锁! 在 Canvas 中使用 Lock 和 Unlock 是个好习惯, 在不使用多线程的情况下这无所谓, 但保不准哪天程序会扩展为多线程的; 我们现在学习多线程, 当然应该用. 在 Delphi 中使用多线程有两种方法: 调用 API、使用 TThread 类; 使用 API 的代码更简单.
functionMyFun(p: Pointer): Integer; stdcall; vari: Integer; beginfori := 0 to500000 dobeginForm1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end; Result := 0; end; procedureTForm1.Button1Click(Sender: TObject); varID: THandle; beginCreateThread(nil, 0, @MyFun, nil, 0, ID); end;
代码分析: CreateThread 一个线程后, 算上原来的主线程, 这样程序就有两个线程、是标准的多线程了; CreateThread 第三个参数是函数指针, 新线程建立后将立即执行该函数, 函数执行完毕, 系统将销毁此线程从而结束多线程的故事. CreateThread 要使用的函数是系统级别的, 不能是某个类(譬如: TForm1)的方法, 并且有严格的格式(参数、返回值)要求, 不管你暂时是不是需要都必须按格式来; 因为是系统级调用, 还要缀上 stdcall, stdcall 是协调参数顺序的, 虽然这里只有一个参数没有顺序可言, 但这是使用系统函数的惯例. CreateThread 还需要一个 var 参数来接受新建线程的 ID, 尽管暂时没用, 但这也是格式; 其他参数以后再说吧. 这样一个最简单的多线程程序就出来了, 咱们再用 TThread 类实现一次
typeTMyThread = class(TThread) protectedprocedureExecute; override; end; procedureTMyThread.Execute; vari: Integer; beginFreeOnTerminate := True; {这可以让线程执行完毕后随即释放} fori := 0 to500000 dobeginForm1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end; end; procedureTForm1.Button1Click(Sender: TObject); beginTMyThread.Create(False); end;
TThread 类有一个抽象方法(Execute), 因而是个抽象类, 抽象类只能继承使用, 上面是继承为 TMyThread. 继承 TThread 主要就是实现抽象方法 Execute(把我们的代码写在里面), 等我们的 TMyThread 实例化后, 首先就会执行 Execute 方法中的代码. 按常规我们一般这样去实例化:
procedureTForm1.Button1Click(Sender: TObject); varMyThread: TMyThread; beginMyThread := TMyThread.Create(False); end;
因为 MyThread 变量在这里毫无用处(并且编译器还有提示), 所以不如直接写做 TMyThread.Create(False); 我们还可以轻松解决一个问题, 如果: TMyThread.Create(True) ? 这样线程建立后就不会立即调用 Execute, 可以在需要的时候再用 Resume 方法执行线程, 譬如:
procedureTForm1.Button1Click(Sender: TObject); varMyThread: TMyThread; beginMyThread := TMyThread.Create(True); MyThread.Resume; end; //可简化为: procedureTForm1.Button1Click(Sender: TObject); beginwithTMyThread.Create(True) doResume; end;
一、入门 ㈠、
functionCreateThread( lpThreadAttributes: Pointer; {安全设置} dwStackSize: DWORD; {堆栈大小} lpStartAddress: TFNThreadStartRoutine; {入口函数} lpParameter: Pointer; {函数参数} dwCreationFlags: DWORD; {启动选项} varlpThreadId: DWORD {输出线程 ID } ): THandle; stdcall; {返回线程句柄}
在 Windows 上建立一个线程, 离不开 CreateThread 函数; TThread.Create 就是先调用了 BeginThread (Delphi 自定义的), BeginThread 又调用的 CreateThread. 既然有建立, 就该有释放, CreateThread 对应的释放函数是: ExitThread, 譬如下面代码:
procedureTForm1.Button1Click(Sender: TObject); beginExitThread(0); {此句即可退出当前程序, 但不建议这样使用} end;
代码注释: 当前程序是一个进程, 进程只是一个工作环境, 线程是工作者; 每个进程都会有一个启动线程(或叫主线程), 也就是说: 我们之前大量的编码都是写给这个主线程的; 上面的 ExitThread(0); 就是退出这个主线程; 系统不允许一个没有线程的进程存在, 所以程序就退出了. 另外: ExitThread 函数的参数是一个退出码, 这个退出码是给之后的其他函数用的, 这里随便给个无符号整数即可. 或许你会说: 这个 ExitThread 挺好用的; 其实不管是用 API 还是用 TThread 类写多线程, 我们很少用到它; 因为: 1、假如直接使用 API 的 CreateThread, 它执行完入口函数后会自动退出, 无需 ExitThread; 2、用 TThread 类建立的线程又绝不能使用 ExitThread 退出; 因为使用 TThread 建立线程时会同时分配更多资源(譬如你自定义的成员、还有它的祖先类(TObject)分配的资源等等), 如果用 ExitThread 给草草退出了, 这些资源将得不到释放而导致内存泄露. 尽管 Delphi 提供了 EndThread(其内部调用 ExitThread), 这也不需要我们手动操作(假如非要手动操作也是件很麻烦的事情, 因为很多时候你不知道线程是什么时候执行完毕的). 除了 CreateThread, 还有一个 CreateRemoteThread, 可在其他进程中建立线程, 这不应该是现在学习的重点; 现在先集中精力把 CreateThread 的参数搞彻底. 倒着来吧, 先谈谈 CreateThread 将要返回的 "线程句柄". "句柄" 类似指针, 但通过指针可读写对象, 通过句柄只是使用对象; 有句柄的对象一般都是系统级别的对象(或叫内核对象); 之所以给我们的是句柄而不是指针, 目的只有一个: "安全"; 貌似通过句柄能做很多事情, 但一般把句柄提交到某个函数(一般是系统函数)后, 我们也就到此为止很难了解更多了; 事实上是系统并不相信我们. 不管是指针还是句柄, 都不过是内存中的一小块数据(一般用结构描述), 微软并没有公开句柄的结构细节, 猜一下它应该包括: 真实的指针地址、访问权限设置、引用计数等等. 既然 CreateThread 可以返回一个句柄, 说明线程属于 "内核对象". 实际上不管线程属于哪个进程, 它们在系统的怀抱中是平等的; 在优先级(后面详谈)相同的情况下, 系统会在相同的时间间隔内来运行一下每个线程, 不过这个间隔很小很小, 以至于让我们误以为程序是在不间断地运行. 这时你应该有一个疑问: 系统在去执行其他线程的时候, 是怎么记住前一个线程的数据状态的? 有这样一个结构 TContext, 它基本上是一个 CPU 寄存器的集合, 线程是数据就是通过这个结构切换的, 我们也可以通过 GetThreadContext 函数读取寄存器看看. 附上这个结构 TContext(或叫: CONTEXT、_CONTEXT) 的定义:
PContext = ^TContext; _CONTEXT = recordContextFlags: DWORD; Dr0: DWORD; Dr1: DWORD; Dr2: DWORD; Dr3: DWORD; Dr6: DWORD; Dr7: DWORD; FloatSave: TFloatingSaveArea; SegGs: DWORD; SegFs: DWORD; SegEs: DWORD; SegDs: DWORD; Edi: DWORD; Esi: DWORD; Ebx: DWORD; Edx: DWORD; Ecx: DWORD; Eax: DWORD; Ebp: DWORD; Eip: DWORD; SegCs: DWORD; EFlags: DWORD; Esp: DWORD; SegSs: DWORD; end;
CreateThread 的最后一个参数是 "线程的 ID"; 既然可以返回句柄, 为什么还要输出这个 ID? 现在我知道的是: 1、线程的 ID 是唯一的; 而句柄可能不只一个, 譬如可以用 GetCurrentThread 获取一个伪句柄、可以用 DuplicateHandle 复制一个句柄等等. 2、ID 比句柄更轻便. 在主线程中 GetCurrentThreadId、MainThreadID、MainInstance 获取的都是主线程的 ID. ㈡、启动选项
functionCreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; dwCreationFlags: DWORD; {启动选项} varlpThreadId: DWORD ): THandle; stdcall;
CreateThread 的倒数第二个参数 dwCreationFlags(启动选项) 有两个可选值: 0: 线程建立后立即执行入口函数; CREATE_SUSPENDED: 线程建立后会挂起等待. 可用 ResumeThread 函数是恢复线程的运行; 可用 SuspendThread 再次挂起线程. 这两个函数的参数都是线程句柄, 返回值是执行前的挂起计数. 什么是挂起计数? SuspendThread 会给这个数 +1; ResumeThread 会给这个数 -1; 但这个数最小是 0. 当这个数 = 0 时, 线程会运行; > 0 时会挂起. 如果被 SuspendThread 多次, 同样需要 ResumeThread 多次才能恢复线程的运行. 在下面的例子中, 有新线程不断给一个全局变量赋随机值; 同时窗体上的 Timer 控件每隔 1/10 秒就把这个变量写在窗体标题; 在这个过程中演示了 ResumeThread、SuspendThread 两个函数.
//上面图片中演示的代码。 unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; typeTForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Timer1: TTimer; procedureButton1Click(Sender: TObject); procedureButton2Click(Sender: TObject); procedureButton3Click(Sender: TObject); procedureFormCreate(Sender: TObject); procedureTimer1Timer(Sender: TObject); end; varForm1: TForm1; implementation{$R *.dfm} varhThread: THandle; {线程句柄} num: Integer; {全局变量, 用于记录随机数} {线程入口函数} functionMyThreadFun(p: Pointer): Integer; stdcall; beginwhileTrue do{假如线程不挂起, 这个循环将一直循环下去} beginnum := Random(100); end; Result := 0; end; {建立并挂起线程} procedureTForm1.Button1Click(Sender: TObject); varID: DWORD; beginhThread := CreateThread(nil, 0, @MyThreadFun, nil, CREATE_SUSPENDED, ID); Button1.Enabled := False; end; {唤醒并继续线程} procedureTForm1.Button2Click(Sender: TObject); beginResumeThread(hThread); end; {挂起线程} procedureTForm1.Button3Click(Sender: TObject); beginSuspendThread(hThread); end; procedureTForm1.FormCreate(Sender: TObject); beginTimer1.Interval := 100; end; procedureTForm1.Timer1Timer(Sender: TObject); beginText := IntToStr(num); end; end.
㈢、入口函数的参数
functionCreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; {入口函数的参数} dwCreationFlags: DWORD; varlpThreadId: DWORD ): THandle; stdcall;
线程入口函数的参数是个无类型指针(Pointer), 用它可以指定任何数据; 本例是把鼠标点击窗体的坐标传递给线程的入口函数, 每次点击窗体都会创建一个线程. 运行效果图:
//上面演示的代码 unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; typeTForm1 = class(TForm) procedureFormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); end; varForm1: TForm1; implementation{$R *.dfm} varpt: TPoint; {这个坐标点将会已指针的方式传递给线程, 它应该是全局的} functionMyThreadFun(p: Pointer): Integer; stdcall; vari: Integer; pt2: TPoint; {因为指针参数给的点随时都在变, 需用线程的局部变量存起来} beginpt2 := PPoint(p)^; {转换} fori := 0 to1000000 dobeginwithForm1.Canvas dobeginLock; TextOut(pt2.X, pt2.Y, IntToStr(i)); Unlock; end; end; Result := 0; end; procedureTForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); varID: DWORD; beginpt := Point(X, Y); CreateThread(nil, 0, @MyThreadFun, @pt, 0, ID); {下面这种写法更好理解, 其实不必, 因为 PPoint 会自动转换为 Pointer 的} //CreateThread(nil, 0, @MyThreadFun, Pointer(@pt), 0, ID); end; end.
这个例子还有不严谨的地方: 当一个线程 Lock 窗体的 Canvas 时, 其他线程在等待; 线程在等待时, 其中的计数也还在增加. 这也就是说: 现在并没有去处理线程的同步; 同步是多线程中最重要的课题, 快到了. 另外有个小技巧: 线程函数的参数是个 32 位(4个字节)的指针, 仅就本例来讲, 可以让它的 "高16位" 和 "低16位" 分别携带 X 和 Y; 这样就不需要哪个全局的 pt 变量了. 其实在 Windows 的消息中就是这样传递坐标的, 在 Windows 的消息中一般高字节是 Y、低字节是 X; 咱们这么来吧, 这样还可以使用给消息准备的一些方便的函数. 重写本例代码(当然运行效果和窗体文件都是一样的):
unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; typeTForm1 = class(TForm) procedureFormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); end; varForm1: TForm1; implementation{$R *.dfm} functionMyThreadFun(p: Pointer): Integer; stdcall; vari: Integer; x,y: Word; beginx := LoWord(Integer(p)); y := HiWord(Integer(p)); {如果不使用 LoWord、HiWord 函数可以像下面这样: } //x := Integer(p); //y := Integer(p) shr 16; fori := 0 to1000000 dobeginwithForm1.Canvas dobeginLock; TextOut(x, y, IntToStr(i)); Unlock; end; end; Result := 0; end; procedureTForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); varID: DWORD; num: Integer; beginnum := 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.
㈣、入口函数的指针
functionCreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; {入口函数的指针} lpParameter: Pointer; dwCreationFlags: DWORD; varlpThreadId: DWORD ): THandle; stdcall;
到了入口函数了, 学到这个地方, 我查了一个入口函数的标准定义, 这个函数的标准返回值应该是 DWORD, 不过这函数在 Delphi 的 System 单元定义的是: TThreadFunc = function(Parameter: Pointer): Integer; 我以后会尽量使用 DWORD 做入口函数的返回值. 这个返回值有什么用呢? 等线程退出后, 我们用 GetExitCodeThread 函数获取的退出码就是这个返回值! 如果线程没有退出, GetExitCodeThread 获取的退出码将是一个常量 STILL_ACTIVE (259); 这样我们就可以通过退出码来判断线程是否已退出. 还有一个问题: 前面也提到过, 线程函数不能是某个类的方法! 假如我们非要线程去执行类中的一个方法能否实现呢? 尽管可以用 Addr(类名.方法名) 或 MethodAddress("published 区的方法名") 获取类中方法的地址, 但都不能当做线程的入口函数, 原因可能是因为类中的方法的地址是在实例化为对象时动态分配的. 后来换了个思路, 其实很简单: 在线程函数中再调用方法不就得了, 估计 TThread 也应该是这样. 下面的例子就尝试了用线程调用 TForm1 类中的方法, 并测试了退出码的相关问题.
unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; typeTForm1 = class(TForm) Button1: TButton; Button2: TButton; procedureButton1Click(Sender: TObject); procedureButton2Click(Sender: TObject); privateprocedureFormProc; {准备给线程使用的方法} end; varForm1: TForm1; implementation{$R *.dfm} varhThread: THandle; {线程入口函数} functionMyThreadFun(p: Pointer): DWORD; stdcall; beginForm1.FormProc; {调用 TForm1 类的方法} Result := 99; {这个返回值将成为线程的退出代码, 99 是我随意给的数字} end; {TForm1 的方法, 本例中是给线程的入口函数调用的} procedureTForm1.FormProc; vari: Integer; beginfori := 0 to200000 dobeginwithForm1.Canvas dobeginLock; TextOut(10, 10, IntToStr(i)); Unlock; end; end; end; {建立并执行线程} procedureTForm1.Button1Click(Sender: TObject); varID: DWORD; beginhThread := CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); end; {获取线程的退出代码, 并判断线程是否退出} procedureTForm1.Button2Click(Sender: TObject); varExitCode: DWORD; beginGetExitCodeThread(hThread, ExitCode); ifhThread = 0 thenbeginText := "线程还未启动"; Exit; end; ifExitCode = STILL_ACTIVE thenText := Format("线程退出代码是: %d, 表示线程还未退出", [ExitCode]) elseText := Format("线程已退出, 退出代码是: %d", [ExitCode]); end; end.
㈤、堆栈大小
functionCreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; {堆栈大小} lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; dwCreationFlags: DWORD; varlpThreadId: DWORD ): THandle; stdcall;
CreateThread 的第二个参数是分配给线程的堆栈大小. 这首先这可以让我们知道: 每个线程都有自己独立的堆栈(也拥有自己的消息队列). 什么是堆栈? 其实堆是堆、栈是栈, 有时 "栈" 也被叫做 "堆栈". 它们都是进程中的内存区域, 主要是存取方式不同(栈:先进后出; 堆:先进先出); "栈"(或叫堆栈)适合存取临时而轻便的变量, 主要用来储存局部变量; 譬如 for i := 0 to 99 do 中的 i 就只能存于栈中, 你把一个全局的变量用于 for 循环计数是不可以的. 现在我们知道了线程有自己的 "栈", 并且在建立线程时可以分配栈的大小. 前面所有的例子中, 这个值都是 0, 这表示使用系统默认的大小, 默认和主线程栈的大小一样, 如果不够用会自动增长; 那主线程的栈有多大? 这个值是可以设定的: Project -> Options -> linker -> memory size(如图) 栈是私有的但堆是公用的, 如果不同的线程都来使用一个全局变量有点乱套; 为解决这个问题 Delphi 为我们提供了一个类似 var 的 ThreadVar 关键字, 线程在使用 ThreadVar 声明的全局变量时会在各自的栈中留一个副本, 这样就解决了冲突. 不过还是尽量使用局部变量, 或者在继承 TThread 时使用类的成员变量, 因为 ThreadVar 的效率不好, 据说比局部变量能慢 10 倍. 在下面的例子就测试了用 var 和 ThreadVar 定义变量的不同. 使用 var 效果图: 使用 ThreadVar 效果图:
unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; typeTForm1 = class(TForm) Button1: TButton; procedureButton1Click(Sender: TObject); end; varForm1: TForm1; implementation{$R *.dfm} //var num: Integer; {全局变量} threadvarnum: Integer; {支持多线程的全局变量} functionMyThreadFun(p: Pointer): DWORD; stdcall; varpy: Integer; beginpy := Integer(p); whileTrue dobeginInc(num); withForm1.Canvas dobeginLock; TextOut(20, py, IntToStr(num)); Unlock; end; Sleep(1000); {然线程挂起 1 秒钟再继续} end; end; procedureTForm1.Button1Click(Sender: TObject); varID: DWORD; begin{借入口函数的参数传递了一个坐标点中的 Y 值, 以让各线程把结果输出在不同位置} CreateThread(nil, 0, @MyThreadFun, Ptr(20), 0, ID); CreateThread(nil, 0, @MyThreadFun, Ptr(40), 0, ID); CreateThread(nil, 0, @MyThreadFun, Ptr(60), 0, ID); end; end.
㈥、安全设置
functionCreateThread( lpThreadAttributes: Pointer; {安全设置} dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; dwCreationFlags: DWORD; varlpThreadId: DWORD ): THandle; stdcall;
CreateThread 的第一个参数 lpThreadAttributes 是指向 TSecurityAttributes 结构的指针, 一般都是置为 nil, 这表示没有访问限制; 该结构的定义是:
//TSecurityAttributes(又名: SECURITY_ATTRIBUTES、_SECURITY_ATTRIBUTES) _SECURITY_ATTRIBUTES = recordnLength: DWORD; {结构大小} lpSecurityDescriptor: Pointer; {默认 nil; 这是另一个结构 TSecurityDescriptor 的指针} bInheritHandle: BOOL; {默认 False, 表示不可继承} end; //TSecurityDescriptor(又名: SECURITY_DESCRIPTOR、_SECURITY_DESCRIPTOR) _SECURITY_DESCRIPTOR = recordRevision: Byte; Sbz1: Byte; Control: SECURITY_DESCRIPTOR_CONTROL; Owner: PSID; Group: PSID; Sacl: PACL; Dacl: PACL; end;
够复杂的, 但我们在多线程编程时不需要去设置它们, 大都是使用默认设置(也就是赋值为 nil). 我觉得有必要在此刻了解的是: 建立系统内核对象时一般都有这个属性(TSecurityAttributes); 在接下来多线程的课题中要使用一些内核对象, 不如先盘点一下, 到时碰到这个属性时给个 nil 即可, 不必再费神.
{建立事件} functionCreateEvent( lpEventAttributes: PSecurityAttributes; {!} bManualReset: BOOL; bInitialState: BOOL; lpName: PWideChar ): THandle; stdcall; {建立互斥} functionCreateMutex( lpMutexAttributes: PSecurityAttributes; {!} bInitialOwner: BOOL; lpName: PWideChar ): THandle; stdcall; {建立信号} functionCreateSemaphore( lpSemaphoreAttributes: PSecurityAttributes; {!} lInitialCount: Longint; lMaximumCount: Longint; lpName: PWideChar ): THandle; stdcall; {建立等待计时器} functionCreateWaitableTimer( lpTimerAttributes: PSecurityAttributes; {!} bManualReset: BOOL; lpTimerName: PWideChar ): THandle; stdcall;
上面的四个系统内核对象(事件、互斥、信号、计时器)都是线程同步的手段, 从这也能看出处理线程同步的复杂性; 不过这还不是全部, Windows Vista 开始又增加了 Condition variables(条件变量)、Slim Reader-Writer Locks(读写锁)等同步手段. 不过最简单、最轻便(速度最快)的同步手段还是 CriticalSection(临界区), 但它不属于系统内核对象, 当然也就没有句柄、没有 TSecurityAttributes 这个安全属性, 这也导致它不能跨进程使用; 不过写多线程时一般不用跨进程, 所以 CriticalSection 应该是最常用的同步手段. 二、临界区。 先看一段程序, 代码文件:
unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; typeTForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; procedureFormCreate(Sender: TObject); procedureButton1Click(Sender: TObject); end; varForm1: TForm1; implementation{$R *.dfm} functionMyThreadFun(p: Pointer): DWORD; stdcall; vari: Integer; beginfori := 0 to99 doForm1.ListBox1.Items.Add(IntToStr(i)); Result := 0; end; procedureTForm1.Button1Click(Sender: TObject); varID: DWORD; beginCreateThread(nil, 0, @MyThreadFun, nil, 0, ID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); end; procedureTForm1.FormCreate(Sender: TObject); beginListBox1.Align := alLeft; end; end.
在这段程序中, 有三个线程几乎是同时建立, 向窗体中的 ListBox1 中写数据, 最后写出的结果是这样的: 能不能让它们别打架, 一个完了另一个再来? 这就要用到多线程的同步技术. 前面说过, 最简单的同步手段就是 "临界区". 先说这个 "同步"(Synchronize), 首先这个名字起的不好, 我们好像需要的是 "异步"; 其实异步也不准确... 管它叫什么名字呢, 它的目的就是保证不冲突、有次序、都发生. "临界区"(CriticalSection): 当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 让其他也要执行此代码的线程先等等; 这和前面用的 Lock 和 UnLock 差不多; 使用格式如下:
varCS: TRTLCriticalSection; {声明一个 TRTLCriticalSection 结构类型变量; 它应该是全局的} InitializeCriticalSection(CS); {初始化} EnterCriticalSection(CS); {开始: 轮到我了其他线程走开} LeaveCriticalSection(CS); {结束: 其他线程可以来了} DeleteCriticalSection(CS); {删除: 注意不能过早删除} //也可用 TryEnterCriticalSection 替代 EnterCriticalSection.
用上临界区, 重写上面的代码, 运行效果图:
//用临界区重写后的代码文件: unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; typeTForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; procedureFormCreate(Sender: TObject); procedureFormDestroy(Sender: TObject); procedureButton1Click(Sender: TObject); end; varForm1: TForm1; implementation{$R *.dfm} varCS: TRTLCriticalSection; functionMyThreadFun(p: Pointer): DWORD; stdcall; vari: Integer; beginEnterCriticalSection(CS); fori := 0 to99 doForm1.ListBox1.Items.Add(IntToStr(i)); LeaveCriticalSection(CS); Result := 0; end; procedureTForm1.Button1Click(Sender: TObject); varID: DWORD; beginCreateThread(nil, 0, @MyThreadFun, nil, 0, ID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); end; procedureTForm1.FormCreate(Sender: TObject); beginListBox1.Align := alLeft; InitializeCriticalSection(CS); end; procedureTForm1.FormDestroy(Sender: TObject); beginDeleteCriticalSection(CS); end; end.
Delphi 在 SyncObjs 单元给封装了一个 TCriticalSection 类, 用法差不多, 代码如下:
unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; typeTForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; procedureFormCreate(Sender: TObject); procedureFormDestroy(Sender: TObject); procedureButton1Click(Sender: TObject); end; varForm1: TForm1; implementation{$R *.dfm} usesSyncObjs; varCS: TCriticalSection; functionMyThreadFun(p: Pointer): DWORD; stdcall; vari: Integer; beginCS.Enter; fori := 0 to99 doForm1.ListBox1.Items.Add(IntToStr(i)); CS.Leave; Result := 0; end; procedureTForm1.Button1Click(Sender: TObject); varID: DWORD; beginCreateThread(nil, 0, @MyThreadFun, nil, 0, ID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); end; procedureTForm1.FormCreate(Sender: TObject); beginListBox1.Align := alLeft; CS := TCriticalSection.Create; end; procedureTForm1.FormDestroy(Sender: TObject); beginCS.Free; end; end.
三、等待函数 WaitForSingleObject 一下子跳到等待函数 WaitForSingleObject, 是因为下面的 Mutex、Semaphore、Event、WaitableTimer 等同步手段都要使用这个函数; 不过等待函数可不止 WaitForSingleObject 它一个, 但它最简单.
functionWaitForSingleObject( hHandle: THandle; {要等待的对象句柄} dwMilliseconds: DWORD {等待的时间, 单位是毫秒} ): DWORD; stdcall; {返回值如下:} WAIT_OBJECT_0 {等着了, 本例中是: 等的那个进程终于结束了} WAIT_TIMEOUT {等过了点(你指定的时间), 也没等着} WAIT_ABANDONED {好不容易等着了, 但人家还是不让咱执行; 这一般是互斥对象} //WaitForSingleObject 的第二个参数一般给常数值 INFINITE, 表示一直等下去, 死等.
WaitForSingleObject 等待什么? 在多线程里就是等待另一个线程的结束, 快来执行自己的代码; 不过它可以等待的对象可不止线程; 这里先来一个等待另一个进程结束的例子, 运行效果图:
//WaitForSingleObject的示例代码文件: unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; typeTForm1 = class(TForm) Button1: TButton; procedureButton1Click(Sender: TObject); end; varForm1: TForm1; implementation{$R *.dfm} varhProcess: THandle; {进程句柄} {等待一个指定句柄的进程什么时候结束} functionMyThreadFun(p: Pointer): DWORD; stdcall; beginifWaitForSingleObject(hProcess, INFINITE) = WAIT_OBJECT_0 thenForm1.Text := Format("进程 %d 已关闭", [hProcess]); Result := 0; end; {启动一个进程, 并建立新线程等待它的结束} procedureTForm1.Button1Click(Sender: TObject); varpInfo: TProcessInformation; sInfo: TStartupInfo; Path: array[0..MAX_PATH-1] ofChar; ThreadID: DWORD; begin{先获取记事本的路径} GetSystemDirectory(Path, MAX_PATH); StrCat(Path, "\notepad.exe"); {用 CreateProcess 打开记事本并获取其进程句柄, 然后建立线程监视} FillChar(sInfo, SizeOf(sInfo), 0); ifCreateProcess(Path, nil, nil, nil, False, 0, nil, nil, sInfo, pInfo) thenbeginhProcess := pInfo.hProcess; {获取进程句柄} Text := Format("进程 %d 已启动", [hProcess]); CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID); {建立线程监视} end; end; end.
标签:
相关推荐:
精彩放送:
- []全球看点:永恒之塔无法连接到认证服务器怎么办?解决方法步骤
- []快讯:财面儿丨建发股份:房地产业务2022年归母净利润22.67亿元 同比下降21.23%
- []世界热点评!斗鱼看不到弹幕怎么办?斗鱼无法看到弹幕的解决方法
- []【天天报资讯】如何解决lIE浏览器的崩溃?lWin浏览器产生崩溃的几类原因
- []每日快报!如何发布一个BT种子文件?2个步骤搞定
- []富士通电磁炉电路图 电磁炉电路板维修教程
- []世界关注:空间克隆怎么用?网页版如何用?
- []当前关注:文件压缩与解压缩工具——ZIP4J项目包
- []【数据分析】如何快速实现API和数据接口的调用?
- []每日时讯!delphi多线程详解及其详解例子 Delphi多线程同步处理方案
- []电子机票怎么使用?电子机票使用流程
- []李锋张雪的小说书名叫什么?李锋张雪的小说名字介绍
- []快消息!中学生营养午餐食谱大全 收藏起来
- []世界热点评!《棋魂》佐的消失算不算一个败笔?这其实是个神来之笔
- []推动住宅类不动产率先实现“带押过户”
- []恒盛地产2022年度录得公司拥有人应占亏损2.97亿元 同比下降94.2%
- []微头条丨克勤于邦克俭于家的意思是什么?关于克勤于邦克俭于家的意思解释
- []关晓彤换头像引战触发新热搜 这次的事情是谁有错在先?
- []焦点热门:财面儿丨珠江股份2022年归属股东净亏损18.64亿元
- []天天观察:办外出经营许可证需要什么资料?怎么办理?
- []【新视野】财面儿丨远洋集团2022年营业额为人民币461.27亿元
- []前沿热点:神仙道太初有什么用?魔鼎在哪里?
- []速看:丢的部首是什么?丢的笔顺是什么?
- []当前头条:"股王"业绩出炉!暴赚627亿,将分红325亿!神秘百亿私募疯狂加仓
- []【全球聚看点】龙洲股份:目前,公司所属龙岩市交通职业技术学是龙岩市交通行业从业人员培训、考试基地
- []环球快报:《金鹰独播剧场》璀璨人生演员演员表介绍
- []【天天报资讯】世界最长的三条河流是哪三个?世界最长的河流TOP3
- []全球球精选!上海大众汽车在中国有几家工厂?分别生产什么车型?
- []女漫游二觉主动技能叫什么?和男漫游一样吗?
- []焦点热文:泰国到底是一个怎样的国家?为什么中国人那么多去泰国旅游的?
- []全球实时:工业用电2022最新规定:每千瓦时的电力消费单价也不同
- []焦点快报!当年传奇升级有多难?一比一复刻 升级速度刚刚好
- []天天播报:成都九中光华校区现在怎么样了?成都九中光华校区介绍
- []《笑傲江湖》三大美女:许晴任盈盈 苗乙乙的岳灵珊 仪琳的仪峰
- []露营的钱,不好赚了
- []世界资讯:今天最新消息 新疆葫芦岛成摄影爱好者“天堂”
- []天天最新:【爬取红岭创投】存储在mysql数据库中的无头模式
- []华为光纤猫指示灯有什么用?华为光纤猫指示灯功能介绍
- []多普达手机如何鉴别?多普达手机行货验证介绍
- []每日快讯!2019年运城高考状元名单公布:运城文理科状元是谁?
- []【环球报资讯】冬季家用洗碗机怎么样?家用洗碗机使用特点
- []笔记本电脑电池如何校准电量?教你一招
- []启发式搜索算法解决八数码问题(C语言)珍藏版
- []当前短讯!web服务器是什么?web服务器的概念与类型
- []联想thinkpadx200怎样装系统?五步装电脑
- []世界快播:IE浏览器未响应怎么办?IE浏览器未响应问题的解决办法
- []天天视讯!【scrapy框架】scrapy框架糗事百科爬虫案例分享
- []今日看点:bot短期密集访问形成的流量高峰有哪些?如何解决?
- []天天精选!戴尔笔记本电脑多少钱?戴尔笔记本电脑价格大全
- []世界即时看!无线数字电视怎么搜台?无线数字电视搜台步骤介绍
- []三星S5660手机配置怎么样?三星S5660如何设置时间和日期?
- []焦点热议:IUNI U3的手机系统是什么?IUNI U3能升级安卓4.3吗?
- []mysql-h主机名-p密码库名C-lamp61数据库
- []焦点日报:飞信登录PC客户端时无法正常登录怎么办?无法正常登录的原因有哪些?
- []新消息丨windows10运行ssd训练自己的数据集 pytorch1.8.0+cuda111的数据集
- []全球快资讯丨golang-java-serializer序列化算法解析
- []天天关注:C语言算法---扑克牌排序问题描述
- []天天信息:徕卡镜头有哪些型号?徕卡镜头大全以及报价镜头
- []全球讯息:上坤地产:杨占东辞任执行董事 继续担任执行总裁职务
- []世界热门:专业数字录音机价格是多少钱?买哪种品牌?
- []速读:seo入门知识有哪些?seo入门需掌握的基础知识
- []环球快消息!什么是视频会议系统?视频会议的发展及标准有哪些?
- []环球速递!紫外光激发使光诱导进入二苯并--萘酚的花菁形式
- []世界快资讯丨CCFL是什么?CCFL背光屏有哪些优点?
- []世界讯息:qq字体怎么设置?qq聊天字体设置教程
- []每日速读!显示器色域检测软件怎么下载?显示器色域检测图拉丁版
- []焦点快播:【python】Python中最常用的数据类型
- []每日视讯:去年地产板块收入降超四成 金隅集团今年要“下更大力度去库存”
- []TD早报 | 多方回应搭飞机坐高铁是否需要佩戴口罩;国航:暂未接到下调机票燃油费相关通知
- []世界通讯!3月31日财经早餐:美元走软和美债收益率下降推动黄金需求,关注美国通胀数据
- []观热点:二六三(002467)2022年年报财务简析:增收不增利
- []弘阳地产:2022年实现收入200.13亿元
- []视焦点讯!方圆生活服务:2022年总收入约为人民币5.11亿元
- []太平洋保险的税优识别码,在保单右上方查找
- []天天报道:领悦服务集团:2022年收益为人民币5.77亿元
- []保险公司排名一览表,十大公司排名
- []天天新消息丨养老保险种类
- []【天天聚看点】燕塘乳业2022年营收18.8亿 新零售业务逆势增长58%
- []统筹公司倒闭车险不能理赔怎么办
- []天天动态:保利发展:2022年实现营业总收入2811.08亿元
- []远洋集团:2022年营业额为人民币461.27亿元
- []疫情隔离保险在哪买,有以下三种方法
- []环球热推荐:“快递一哥”顺丰控股去年净利增长45%,前十大股东中4位去年四季度在减持
- []环球今亮点!村民不认可孙国友被称治沙英雄是什么情况
- []全球微头条丨东胜智慧城市服务2022年收入2.27亿港元 同比增加约77%
- []天天快资讯丨新华联所持长沙银行1.39亿股司法拍卖已完成过户手续
- []金茂投资:2022年实现营业收入771.64亿元
- []移卡创始人称数字生活正在加速由2.0进入3.0时代
- []热点评!青岛双星: 您的提问涉及到公司与合作方的商业秘密不便透露,敬请谅解
- []助力乡村振兴 长安汽车帮扶酉阳茶油可持续发展
- []世界讯息:郑州航空港区购房每平方米补贴300元 不限户籍、不限区域
- []建发股份:2022年归属股东净利润62.82亿元
- []首旅酒店:2022年归属股东净亏损5.82亿元
- []直真科技:3月29日公司高管彭琳明减持公司股份合计10000股
- []当前观察:合肥今年首批集中供地揽金约89亿元
- []亚朵集团上市首份成绩单:2022年净利润同比增85.6%
- []美联储更担心通胀年内至少加息一次,黄金腾飞
- []每日头条!交通银行副行长周万阜:财富管理业务具有很大的发展空间
- []协会属于什么性质企业
- []均胜电子:2022年净利3.94亿元 同比扭亏为盈
- 天天微动态丨SIS与ESD、DCS、PLC,四者之间有什么关系?一文读懂SIS与DCS的关系
- 全球百事通!欧几里德几何的多目标优化自适应进化算法——AGE-II
- 《魔兽世界》所改编的网络游戏单机版 你玩过吗?
- 热点评!泛海微无线电动牙刷怎么样?无线充电电动牙刷技术介绍
- 每日资讯:固态存储设备要擦除哪些数据的SATAm指令?详情介绍
- 当前动态:天涯明月刀:1月第1批天涯合璧-数据互通(合服)即将启动
- 焦点信息:怎么设置excel2007冻结窗口?excel2007冻结窗口设置方法
- 全球要闻:如何成为一名优秀的产品经理?这四步很重要
- java中的TCP是什么?如何进行通讯?
- 硬屏和软屏有什么区别?如何识别?
- 当前最新:发行股票的手续费计入什么科目
- 动态:配债100元一股要不要买
- 焦点热讯:归母利润是什么意思
- 绿景中国地产:2022年归属股东净亏损7.30亿元
- 华侨城:2022年归属股东净亏损109.05亿元
- 最资讯丨两部门:推动常态化开展“带押过户”服务,实现地域范围、金融机构和不动产类型全覆盖
- 焦点讯息:海尔智家2022年财报:业绩双增,利润增速超营收
- 精选!英诺特2022年净利1.51亿同比增长25.31% 董事长叶逢光薪酬12万
- 环球精选!财报金选丨万科企业2022年度营收5038.4亿元,同比增长11.3%
- 全球快看点丨万科晒年报:行业震荡中实现业绩企稳,经营服务业务收入突破500亿
- 【热闻】金辉控股:2022年净利润约为人民币20.8亿元
- 焦点消息!中科金财:公司业务和回款一直以来均具有季节性特征,四季度回款量较大
- 安徽天堂寨在哪里_安徽天堂寨
- 粤海置地:2022年归属股东净利润3.93亿港元
- 指南针:公司业务目前不涉及ChatGPT相关应用,也暂未有从事AI基础研究计划
- 焦点讯息:精研科技:随着人工智能的发展,我们认为在以下几个方面会有更多、更高效的散热方案需求
- 富通信息:公司专业从事以光纤光缆制造为核心的光通信业务和以石英管材产品为辅助的石英制品业务
- 鲁商发展:2022年归属股东净利润0.45亿元
- 中国中铁:2022年房地产业务新签合同额751.9亿元
- 当前热议!中梁控股:2022年实现收入393.3亿元
- 【世界热闻】建发物业:2022年实现收入22.90亿元
- 近期经济运行亮点 | 甘肃省临夏州重锤敲响项目建设起势锣 凝心聚力力保有效投资开门红
- 鲁商服务:2022年实现收入6.27亿元
- 快资讯:陆家嘴:2022年实现营业收入117.62亿元
- 当前关注:中骏商管:2022年实现收入11.82亿元
- 水井坊:一季度业绩详见拟于4月份披露的公司一季度报告
- 环球关注:福星股份:2022年实现收入151.42亿元
- 沿海家园:出售珠海沿海股权事项补充材料将延迟至5月31日寄发
- 每日视讯:微盟发布2022年报:总营收18亿元 下半年亏损环比收窄0.8亿
- ST宏达:公司目前没有对外引进资产的计划,如有相关计划将按规则及时披露
- 环球最资讯丨溢价近90%战投荣盛石化,沙特阿美的野心不止于此
- 焦点速递!斩获储能双奖|华塑闪耀金砖储能大会
- 每日热点:跌无可跌,新能源板块暴力反弹一触即发!
- 两款手机表现有何不同?选HUAWEI magic5,还是oppofindx6?
- 环球热文:浙江海曙区2022年下半年非自然人家庭屋顶光伏项目补贴资金120198元
- 热推荐:比亚迪年报发布!2022年平均日营收11.62亿元!
- 环球速读:450MWh!宁德时代海外储能提速!
- “双碳目标”驱动箭牌家居绿色发展,以身作则引领行业绿色智造升级
- 实时焦点:在这里,孩子们感受家的温暖(一线调研)
- 合肥第二批供地挂牌11宗地块 总起始价98.44亿元
- 全球动态:中国铁建:2022年房地产开发业务实现收入622.53亿元
- 沙河股份:2022年实现收入7.63亿元
- 天天亮点!沙河股份2022年营业收入7.64亿元 房地产销售收入占98.45%
- 环球滚动:港发展局指交椅洲人工岛每年平开支只占政府每年总开支不到5%
- 楚江新材:公司产品暂未应用于固态氢能发电领域
- 怎么野,你说了算!奇瑞首款轻越野TJ-1开启全球征名
- 当前看点!九安医疗:持续血糖监测仪(CGMS)研发项目是公司募投项目之一,目前处于研发阶段,还需要一段时间
- 世界速读:通策医疗:公司不存在挪用资金情形,也不存在被ST的情形
- 支付宝出境游服务覆盖超过70个国家和地区 最新去韩国可用支付宝买火车票
- 前沿热点:21566人参观!2023中国国际清洁能源博览会暨中国氢能展圆满落幕
- 环球热资讯!身体抱恙是什么意思?抱恙出自哪里?
- putup加动词什么形式?putup是什么意思?
- 【全球聚看点】金地集团29.95亿元公司债将付息 利率分别为3.91%及4.30%
- 今日精选:北京故宫的特点有哪些?北京故宫资料介绍?
- 几套房要征收房产税?房产税怎么征收?
- 天天热资讯!厦门象屿完成发行23亿中期票据 利率1.69%
- 天天视点!“创”字当头“智”造为先 泸州老窖荣获2022年度四川省科学技术进步奖一等奖
- 当前时讯:斛珠的意思是什么?斛珠出自哪里?
- 12万买宝马? 营销噱头多于让利,难助力宝马电动化转型
- 实时:金管局:港家庭负债占GDP比率升至95.5%
- 盘它是什么意思?盘它一词的来源是什么?
- 全球看点:新地香港apm复活节生意额料增25%
- 每日讯息!吸附在鲨鱼身上的鱼是什么鱼?吸附在鲨鱼身上的鱼有什么特征?
- 世界今日讯!华润建筑有限公司是国企吗?华润建筑有限公司资料介绍?
- 当前滚动:公司社保怎么办理?公司社保的办理方式?
- 野风现代中心二期6.4亿元ABS项目更新至“已受理”
- 要闻:张辽和张颌是什么关系?张辽的简单介绍?
- 天天热推荐:3月30日豪迈科技涨停分析:风电,轮胎概念热股
- 全球即时:3月30日江波龙涨停分析:闪存,DRAM(内存),大基金概念概念热股
- 世界最资讯丨如何自然疏通浴室水槽
- 关上灯,点亮希望——宁波阪急响应“地球一小时”活动
- 【全球时快讯】求生之路2怎么局域网联机?局域网联机方法详解
- 全球微动态丨联想ThinkPad有哪些型号?联想ThinkPad各系列型号介绍
- 华为HiLink是什么?华为路由器hilink怎么用?
- QQ网络硬盘在哪?如何添加QQ界面?
- 世界今热点:躲过15次GC之后 进入老年代系统有哪些规则?
- iPhone5怎么升级ios7?8款苹果设备升级更新
- 克而瑞深度解读百瑞纪首本《住房租赁轻资产运营白皮书》
- 每日快播:张坤隐形重仓股曝光 再谈投资:每一次市场的大幅下跌 股票都是在“打折促销”
- 网吧服务器维护工具怎么下载?网吧维护管理助手使用方法
- 摄像机的焦距是什么意思?摄像机焦距对应距离介绍
- 世界即时看!【剑灵力士】新版本力士职业天赋加点推荐 备战不删档
- 每日头条!如何打开pdg文件?手把手教你打开PDG文件
- 每日热文:湖北长阳农商银行被罚60万元:因违规办理展期业务等
- 福建莆田市住房公积金政策调整 最低首付款比例20%
- 当前时讯:湖北襄阳出台购房新政 多孩家庭可获4万元补贴
- 微速讯:中建一局集团完成发行30亿票据 利率2.20%
- 西藏:适当提高住房公积金贷款最高额度
- 当前视讯!拉芳家化:公司将在2023年4月份公布2022年度的经营情况,还请届时关注
- 焦点要闻:众信旅游:目前,公司核心团队人员情况稳定,不存在专业人才流失的情况
- 全球热资讯!越秀资本完成发行8亿短期融资券 票面利率2.32%
- 来宾彩印手提无纺布袋定制,环保无纺布袋制作厂家
- 携程集团CEO孙洁:出入境游年底会反弹至80%水平
- 世界微动态丨日本角川出版公司奥运项目负责人承认向东京奥组委官员行贿
- 合肥2023首场土拍落幕 13宗地块成交总揽金约88.49亿元
- 全球热点评!东星医疗:公司若有股权激励计划,将根据相关规定及时履行信息披露义务
- 成都双流板桥轨道公司100%股权挂牌将满一年 目前尚未成功转让
- 天天快看:武汉城建开元森泊度假乐园项目签约 投资总额达22亿元
- 即时:合生创展2022年实现核心利润10.81亿港元 同比下降77.27%
- 【新视野】一张图:黄金原油外汇股指"枢纽点+多空占比"一览(2023/03/30周四)