风林 — Wed, 08 Sep 2010 03:47:00 GMT

1、��界区
一�ơ只能由一个线�E�来执行的一�D�代码�?br>2、互�?br>互斥非常�c�M��于��界区�Q�除了两个关键的区别�Q�首先，互斥可用于跨�q�程的线�E�同步。其�ơ，互斥能被赋予一个字�W�串名字�Q��ƈ且通过引用此名字创建现有互斥对象的附加句柄�?br>临界��Z��事�g对象�Q�如互斥对象�Q�的最大区别是在性能上。��界区在没有线�E�冲�H�时�Q�要�?0-15个时间片�Q�而事件对象由于涉及到�pȝ��内核要用400-600个时间片�?br>3、信号量
它是在互斥的基础上徏立的�Q�但信号量增加了资源计数的功能，预定数目的线�E�允许同时进入要同步的代码�?br>
{*******************************************************}
{                                                       }
{       多线�E�同步演�C�Z��?nbsp;                             }
{                                                       }
{       版权所�?(C) 2010 风林                          }
{                                                       }
{*******************************************************}

unit untMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    btnStart: TButton;
    procedure btnStartClick(Sender: TObject);
private
    procedure ThreadsDone(Sender:TObject);
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
CS:TRTLCriticalSection; //临界��?br> hMutex:THandle = 0; //互斥句柄
hSem:THandle = 0;//信号量句�?br> DoneFlags:Integer = 0;
threadvar//�U�程局部变�?br> GlobalStr:string;
type
TTLSThread = class(TThread)
    private
      FNewStr:string;
    protected
      procedure Execute;override;
    public
      constructor Create(const ANewStr:string);
end;

procedure SetShowStr(const S:string);
begin
if S = '' then
MessageBox(0,PChar(GlobalStr),'The string is...',MB_OK)
else
GlobalStr := S;
end;

{ TTLSThread }

constructor TTLSThread.Create(const ANewStr: string);
begin
FNewStr := ANewStr;
inherited Create(False);
end;

procedure TTLSThread.Execute;
var
WaitReturn:DWORD;
begin
OnTerminate := Form1.ThreadsDone; //�U�程�l�束时执行相应清理代�?br> FreeOnTerminate := True; //自动释放资源
//EnterCriticalSection(CS); //�q�入临界�?br> WaitReturn := WaitForSingleObject(hSem,INFINITE);//计数器减1
// if WaitForSingleObject(hMutex,INFINITE)= WAIT_OBJECT_0 then
if WaitReturn = WAIT_OBJECT_0 then
begin
    SetShowStr(FNewStr);
    SetShowStr('');
    Sleep(100);
end;
//LeaveCriticalSection(CS);//��d��临界�?br>// ReleaseMutex(hMutex); //解除拥有关系,互斥对象重新�q�入发信��L��?br> ReleaseSemaphore(hSem,1,nil);//信号量对象计数加1
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
// InitializeCriticalSection(CS);//初始化��界区
// hMutex := CreateMutex(nil,False,nil); //创徏一个互斥量
hSem := CreateSemaphore(nil,
1, //�q�个值必��d��0和lMaximumCount之间�Q�大�?则表�C�处理发信号状�?br> 1, //�׃��只允�怸��U�程�q�入同步代码�Q�所以设�|�成1
nil);//
SetShowStr('Hello world');
TTLSThread.Create('Dilbert');
TTLSThread.Create('xx');
TTLSThread.Create('test');
end;

procedure TForm1.ThreadsDone(Sender: TObject);
begin
Inc(DoneFlags);
if DoneFlags = 3 then //当前��试时创��Z��3个线�E?br> begin
// DeleteCriticalSection(CS); //删除临界��录信�?br> //CloseHandle(hMutex);//释放由CreateMutex创徏对象的句�?br> CloseHandle(hSem);//释放由CreateSemaphore创徏对象的句�?br> end;
end;

end.

风林 2010-09-08 11:47 发表评论

DELPHI中的快捷方式一�?完全正式�?

风林 — Thu, 08 Jul 2010 12:45:00 GMT

1.SHIFT+鼠标左键先选中��M��控�g,按键后可选中�H�体(选中控�g后按Esc效果一�?
2.Shift+F8 调试时弹出CPU�H�口�?
3.Shift+F10 �{�于鼠标右键�Q�Windows快捷键）�?
4.Shitf+��头选择
5.shift +F12 快速查扄��体�ƈ打开
6.F7 �Q�步�q�式调试同时�q�踪�q�入子过�E�）
7.F8 �Q�步�q�式调试不进入子�q�程�Q?
8.F9 �q�行
9.F12 切换EDITOR,FORM
10.Alt+F4 关闭所有编辑框中打开的源�E�序文�g�Q�但不关闭项�?
11.ALT+鼠标左键可以块选代码，用来删除寚w��的重复代码非常有�?
12.Ctrl+F9 �~�译
13.Ctrl+shift+N(n=1,2,3,4......) 定义书签
14.Ctrl+n(n=1,2,3,4......)跛_��书签n
15.CTRL +SHIFT+N 在书�{�N处，再按一��? 取消书签
16.Ctrl+PageUp ��光标移��x��屏的�W�一行，屏幕不滚�?
17.Ctrl+PageDown ��光标移��x��屏的最后一行，屏幕不滚�?
18.Ctrl+↓ 向下滚动屏幕�Q�光标跟随滚动不出本�?
19.Ctrl+↑ 向上滚动屏幕�Q�光标跟随滚动不出本�?
20.Ctrl+Home ��光标移��x��件头
21.Ctrl+End ��光标移��x��件尾
22.Ctrl+B Buffer List�H�口
23.Ctrl+I 同Tab�?
24.CTRL+J (弹出Delphi语句提示�H�口�Q�选择所需语句��自动完成一条语�?代码模板
25.Ctrl+M 同Enter键�?
26.Ctrl+N 同Enter键，但光标位�|�保持不�?
27.Ctrl+T 删除光标双��的一个单�?
28.Ctrl+Y 删除光标所在行
29.CTRL+C 复制
30.CTRL+V �_�脓
31.CTRL+X 剪切
32.CTRL+Z �q�原(Undo)
33.CTRL+S 保存
34.Ctrl+F 查找
35.Ctrl+L �l�箋查找
36.Ctrl+r 替换
37.CTRL+ENTER 定位到单元文�?
38.Ctrl+F3 弹出Call Stack�H�口
39.Ctrl+F4 �{�于File菜单中的Close��?
40.Ctrl+Backspace 后退删除一个词,直到遇到一个分割符
41.Ctrl+鼠标转轮加速滚�?
42.Ctrl+O+U 切换选择块的大小�?注意村ּ�O后再按U,Ctrl保持按下)
43.Ctrl+K+O 切换选择块�ؓ��写(注意村ּ�K后再按O,Ctrl保持按下)
44.Ctrl+K+N 切换选择块�ؓ大写(注意村ּ�K后再按N,Ctrl保持按下)
45.Ctrl+Shift+G 插入GUID
46.Ctrl+Shift+T 在光标行加入To-Do注释
47.Ctrl+Shift+Y 删除光标之后��x��行末��之间的文本
48.CTRL+SHIFT+C �~�写��x��或者补上函敎ͼ��l�好!!!
49.CTRL+SHIFT+E 昄��EXPLORER
50.Ctrl+Tab 在Inspector中切换Properties��和Events��?
51.CTRL+SHIFT+U 代码整块左移2个空��g��|?
52.CTRL+SHIFT+I 代码整块右移2个空��g��|?
53.CTRL+SHIFT+↑ 在过�E�、函数、事件内�? 可蟩跃到相应的过�E�、函数、事
件的定义�Q�在interface和implementation之间来回切换�Q?
54.CTRL+SHIFT+↓ 在过�E�、函数、事件的定义处，可蟩跃到具体�q�程、函数、事件内�?同上)
55.Tab 在object inspector�H�口按tab键将光标�U�d��到属性名区，然后键入属性名的开�?
字母可快速定位到该属�?
56.Ctrl+Alt 按着Ctrl+Alt之后�Q�可用鼠标选择一个矩形块中的代码�Q?
�q�可比它�q�行复制�Q�粘�?
57.Shift+↓�?#8593;�?#8594;�?#8592; �?像素单位更改所选控件大��?
58.Ctrl+↓�?#8593;�?#8594;�?#8592;�?像素单位更改所选控件位�|?
59.Ctrl+E 快速选择

风林 2010-07-08 20:45 发表评论

欧美日韩国产探花,日韩视频在线一区二区,欧美激情一区

DELPHI中的快捷方式一�?完全正式�?