不错的delphi多线程编程教程.docx

百度文库 百度文库 PAGE PAGE # 不錯的delphi多线程编程教程 3097544f0c86a7f多线程编程(1)- 先入门再说。 多线程应该是编程工作者的基础技能，但这个基础对我来讲的确 有点难(起码昨天以前是这样). 开始本应该是一篇洋洋洒洒的文字，不过我还是提倡先做起来, 在尝试中去理解. 先试试这个: procedure (Se nder: TObject); var i: I nteger; begin for i := 0 to 500000 do begin (10, 10, I ntToStr(i)); en d; end; 上面程序运行时，我们的窗体基本是"死"的，可以在你在程序 运行期间拖动窗体试试… Delphi为我们提供了一个简单的办法来解决这个问题 : procedure (Se nder: TObject); var i: I nteger; begin for i := 0 to 500000 do begin (10, 10, I ntToStr(i)); J en d; end; 这个；一般用在比较费时的循环中，它会检查并先处理消息队列 中的其他消息. 但这算不上多线程，譬如:运行中你拖动窗体，循环会暂停下 来… 在使用多线程以前，让我们先简单修改一下程序: fun cti on MyFun: In teger; var i: I nteger; begin for i := 0 to 500000 do begin / 10, I ntToStr(i)); en d; Result := 0; end; procedure (Se nder: TObject); begin MyFu n; end; 细数上面程序的变化: 1、 首先这还不是多线程的，也会让窗体假"死"一会； 2、 把执行代码写在了一个函数里，但这个函数不属于TForml的 方法，所以使用Canvas是必须冠以名称（Forml）; 3、 既然是个函数，（不管是否必要）都应该有返回值； 4、 使用了 500001 次 Lock 和 Un lock. 好比在说:Canvas（绘图表面）正忙着呢，其他想用Canvas的等 会； :用完了，解锁！ 在Can vas中使用Lock和Un lock是个好习惯，在不使用多线 程的情况下这无所谓，但保不准哪天程序会扩展为多线程的；我们现 在学习多线程，当然应该用. 在Delphi中使用多线程有两种方法:调用API、使用TThread 类；使用API的代码更简单. fun cti on MyFun(p: Poin ter): I nteger; stdcall; var i: I nteger; begin for i := 0 to 500000 do begin 10, I ntToStr(i)); en d; Result := 0; end; procedure (Se nder: TObject); var ID: THa ndle; begin CreateThread( nil, 0, @MyFu n, n il, 0, ID); end; 代码分析: \ CreateThread 一个线程后，算上原来的主线程，这样程序就有两 个线程、是标准的多线程了 ； CreateThread第三个参数是函数指针，新线程建立后将立即执行 该函数，函数执行完毕，系统将销毁此线程从而结束多线程的故事. CreateThread要使用的函数是系统级别的，不能是某个类（譬如: TForml）的方法，并且有严格的格式（参数、返回值）要求，不管你暂时 是不是需要都必须按格式来； 因为是系统级调用，还要缀上stdcall, stdcall 是协调参数顺序的， 虽然这里只有一个参数没有顺序可言，但这是使用系统函数的惯例? CreateThread还需要一个var参数来接受新建线程的ID,尽管 \ 暂时没用，但这也是格式；其他参数以后再说吧? 这样一个最简单的多线程程序就出来了 ，咱们再用TThread类实 现一次 type TMyThread = class（TThread） \ / protected procedure Execute; override; end; procedure ; var i: I nteger; begin FreeO nTermi nate := True; { 这可以让线程执行完毕后随即释放 } for i := 0 to 500000 do begin 10, I ntToStr(i)); en d; end; procedure (Se nder: TObject); begin (False); end; TThread类有一个抽象方法(Execu