-
等级
本版专家分：115勋章
-
-
进士
2006年 总版技术专家分年内排行榜第五
2004年 总版技术专家分年内排行榜第八
-
-
银牌
2006年10月 总版技术专家分月排行榜第二
2006年9月 总版技术专家分月排行榜第二
-
- 铜牌 2006年5月 总版技术专家分月排行榜第三
-
-
微软MVP
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
结帖率 100% -
-
RT展开阅读全文
-
等级
本版专家分：74093勋章
-
-
金牌
2003年2月 总版技术专家分月排行榜第一
2003年1月 总版技术专家分月排行榜第一
-
-
红花
2003年2月 Delphi大版内专家分月排行榜第一
2003年1月 Delphi大版内专家分月排行榜第一
2002年12月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2002年6月 Delphi大版内专家分月排行榜第三
-
-
创建多线程程序并且同步线程，我们需要首先理解一些东西，比如临界区和互斥等概念，楼主可查相关基础资料得到这些，在DLEPHI中我们要用到与临界区和互斥相关的函数如下：
EnterCriticalSection()
LeaveCriticalSection()
DeleteCriticalSection()
InitializeCriticalSection()等等，
举一个例子下如：
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TMainForm = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
procedure ThreadsDone(Sender: TObject);
end;
TFooThread = class(TThread)
protected
procedure Execute; override;
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
const
MaxSize = 128;
var
NextNumber: Integer = 0;
DoneFlags: Integer = 0;
GlobalArray: array[1..MaxSize] of Integer;
CS: TRTLCriticalSection;
function GetNextNumber: Integer;
begin
Result := NextNumber; // return global var
inc(NextNumber); // inc global var
end;
procedure TFooThread.Execute;
var
i: Integer;
begin
OnTerminate := MainForm.ThreadsDone;
EnterCriticalSection(CS); // CS begins here
for i := 1 to MaxSize do
begin
GlobalArray[i] := GetNextNumber; // set array element
Sleep(5); // let thread intertwine
end;
LeaveCriticalSection(CS); // CS ends here
end;
procedure TMainForm.ThreadsDone(Sender: TObject);
var
i: Integer;
begin
inc(DoneFlags);
if DoneFlags = 2 then
begin // make sure both threads finished
for i := 1 to MaxSize do
{ fill listbox with array contents }
Listbox1.Items.Add(IntToStr(GlobalArray[i]));
DeleteCriticalSection(CS);
end;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
InitializeCriticalSection(CS);
TFooThread.Create(False); // create threads
TFooThread.Create(False);
end;
end.
-
等级
本版专家分：3091 -
我的回答很简单。delphi5开发人员指南第11章，delphi Win32核心API参考第6章，delphi技术手册第4章
-
等级
本版专家分：74093勋章
-
-
金牌
2003年2月 总版技术专家分月排行榜第一
2003年1月 总版技术专家分月排行榜第一
-
-
红花
2003年2月 Delphi大版内专家分月排行榜第一
2003年1月 Delphi大版内专家分月排行榜第一
2002年12月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2002年6月 Delphi大版内专家分月排行榜第三
-
-
原来楼上的可以同时给三个答案啊：）
不过除了第一个答案，后面两个答案好像都必须花钱买书：）
因为只有第一本书才有电子版的：）
dentistrydoctor
等级：
-
-
进士
2006年 总版技术专家分年内排行榜第五
2004年 总版技术专家分年内排行榜第八
-
-
银牌
2006年10月 总版技术专家分月排行榜第二
2006年9月 总版技术专家分月排行榜第二
-
- 铜牌 2006年5月 总版技术专家分月排行榜第三
-
-
微软MVP
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
- Delphi多线程编程基础入门
Delphi是一门古老而优秀的编程语言，它对多线程的处理有一些特殊的地方，本文尝试做一些简单的讲解，可以当作Delphi的多线程基础入门知识来阅读。如无特殊说明，所有例子都在XP操作系统中和Delphi7中调试通过。2. 一...
- 【Delphi】多线程编程
本篇简单介绍一下Delphi下多线程的编写 一、CreateThread 这个是最原始最基础的方法，利用Windows API来创建 function ThreadProc(param: LPVOID): DWORD; stdcall; begin Result := 0; end; var threadId: T...
- delphi多线程编程
delphi多线程编程详解。 不错的资源。
- delphi之多线程编程
先试试这个: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to 500000 do begin Canvas.TextOut(10, 10, IntToStr(i));...
- Delphi多线程教程
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编...
- delphiXE关于线程和多线程、线程的同步与异步执行
delphiXE关于线程和多线程、线程的同步与异步执行 一、最好的参照案例 {$BDS}\source\fmx\FMX.Helpers.Android.pas 如下四个独立方法： type TMethodCallback = procedure of object; TCallBack = reference ...
- delphi的多线程编程
2-1 多线程的基本概念 win 98/nt/2000/xp 是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用cpu 运行时间和资源，或者说，把cpu 时间划成片，每个片分给不同的线程，这样，每个线程轮流的...
- delphi XE多线程同步对象及其管理
本下载解决delphiXE在处理多线程时，如何对各线程进行管理、如何做到中途中断执行多线程时的线程安全，如何在多线程内部进行UI同步等等。 直接上代码，自己看咯： unit uMultiThreadSyncObjs; interface uses...
- Delphi中线程类TThread 实现多线程编程
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程...
- Delphi多线程编程中的技巧(转)
1）创建线程 MsgThread := TMsgThread.Create(False) ; //创建并执行线程 MsgThread := TMsgThread.Create(True) ; //创建线程后挂起 constructor Create(CreateSuspended: Boolean); 中的参数CreateSuspended表示...
- Delphi多线程编程之同步读写全局数据
开始研究最重要的多线程读写全局数据了，结合书上的例子，我修改成下面的情况： unit Tst_Thread3U; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,...
- delphi 讲的比较详细的多线程（推荐）
Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html 主线程又程为UI线程。 进程和线程的主要差别在于它们是不同的操作系统资源管理方式。进程有独立的地址空间，一个进程
- Delphi 多线程编程（1）
多线程应该是编程工作者的基础技能, 但这个基础我从来没学过，所以仅仅是看上去会一些，明白了2+2的时候，其实我还不知道1+1。 开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先...
- Delphi Socket通信及多线程编程总结
... 一、Socket通信： ...Delphi在ScktComp单元中对WinSock进行了封装，该单元提供了TAbstractSocket、TClientSocket、TClientWinSocket、TCustomSocket、TCustomWinSocket、TCustomServerSocket...
- Delphi实现多线程
一个应用可以有一个主线程，一个主线程可以有多个子线程，子线程还可以有自己的子线程，这样就构成了多线程应用了。由于多个线程往往会同时访问同一块内存区域，频繁的访问这块区域，将会增加产生线程冲突的概率。...
- delphi中几种多线程操作方式
在了解多线程之前我们先了解一下进程和线程的关系 ...为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html 主线程又程为UI线程
- 基于 QWorker 的多线程编程V1.1（肥猫大叔排版贡献）
基于 QWorker 的多线程编程V1.1（肥猫大叔排版贡献） QWorker 是 QDAC 项目带给大家的一套多线程并行编程框架。它基于作业的视角来规划作业多线程编程，简化多线程编程的步骤和方法和交互手法。首先，我们要明白我们...
- Delphi之多线程编程(一)
Delphi之多线程编程(一) 本文的内容取自网络，并重新加以整理，在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。 多线程应该是编程工作者的基础技能, 但这个...
- Delphi中有一个线程类TThread是用来实现多线程编程
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程...
- Delphi 多线程编程（3）
在多线程中，通过优先级管理，可以使重要的程序优先操作，提高了任务管理的灵活性。 另一方面，在多CPU 系统中，可以把不同的线程在不同的CPU 中执行，真正做到同时处理多任务（Win 98 只是模拟的，而Win/NT/2000是...
- delphi中多线程同步的一些方法
多核时代的到来，对于我们程序员来说要尽快的，尽可能多的使用多线程编程只有这样，作的程序才会有高效率，这个思想一定要宣传啊，不然多核时代了，还写单线程的程序就太不够档次了。delphi中多线程同步的一些方法当...
- Delphi多线程编程之同步读写全局数据
开始研究最重要的多线程读写全局数据了，结合书上的例子，我修改成下面的情况： unit Tst_Thread3U; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ...
- Delphi 中多线程同步的一些处理方法
当创建了多个线程，并且多个线程都要访问同一资源，，就有可能出现混乱，于是用Synchronize来控制，使同一时间只有一个线程使用那部分资源，Synchronize参数里面的代码就是多线程需要公共的代码！ 线程是进程内...
- delphi之多线程编程(一)
多线程应该是编程工作者的基础技能, 但这个基础我从来没学过，所以仅仅是看上去会一些，明白了2+2的时候，其实我还不知道1+1。 开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先...
- Delphi 的多线程
先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体): {自定义方法: 在窗体上绘制…} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas....
- Delphi多线程编程中的技巧
（1）创建线程 MsgThread := TMsgThread.Create(False) ; //创建并执行线程 MsgThread := TMsgThread.Create(True) ; //创建线程后挂起 constructor Create(CreateSuspended: Boolean); 中的
- [转]Delphi多线程编程入门（一）
最近Ken在比较系统地学习Delphi多线程编程方面的知识，在网络上查阅了很多资料。现在Ken将对这些资料进行整理和修改，以便收藏和分享。内容基本上是复制粘贴，拼拼凑凑，再加上一些修改而来。各个素材的来源已经很难...
- delphi多线程编程中利用事件机制同步的初步实现
<!-- /* Font Definitions */@font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable;