Delphi多线程学习（11）：多线程图形操作
VCL对象不是线程安全的，而且它们的属性和方法必须要从VCL主线程中进行访问或被执行，但有两种VCL对象是例外的情况，它们是线程安全的。一种是任何图形对象，另一种是TThreadList。
这意味着不必非得在主VCL线程中才能设置一个画布的画笔颜色，或画刷类型，可以在另一个线程的环境中完成一点。对于图形对象，使用Lock和UnLock，而对于ThreadList，则使用LockList和UnLockList，这些方法的行为类似于临界区，在调用它们的时候会阻止其他线程的执行。因为Lock会中断所有线程的执行，所以如果使用不正确的话，应用程序性能会有很大下降。比如：
Form1.Canvas.Lock;
For i := 0 to 10000 do
begin
Form1.Canvas.TextOut(20,20,str);
end;
Form1.Canvas.UnLock;上面这个代码中，Lock后再循环，则循环结构过于拥挤，锁定时间过长。所以应该将Lock与UnLock放在循环里面。
下面的例子，通过多线程对窗体画布进行画线。点“开始”菜单创建N个线程同时往窗体画线，点“结束”同时终止N个线程。
{主窗体代码}
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, Menus;
type
TForm2 = class(TForm)
MainMenu1: TMainMenu;
S1: TMenuItem;
T1: TMenuItem;
procedure S1Click(Sender: TObject);
procedure T1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
List:TList;
implementation
uses DrawThread;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
List:=TList.Create;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
List.Free;
end;
//“开始”菜单
procedure TForm2.S1Click(Sender: TObject);
var
value:string;
i: Integer;
begin
value:=InputBox('提示','请输入需要创建多少线程：','3');
try
for i := 0 to StrToInt(value) - 1 do
List.Add(TDrawThread.create(self));
except
on e:Exception do
相关文档：
如何调试DLL，在这里就不再赘述了，但是，今天就碰到了一个特别奇怪的问题，参数设置正确，就是不能调试？？ 通过上网查资料，发现了问题，注意：
1， 将Project主菜单的Project Options对话框的Compiler页面Debugging选项中的 Debug informaton、Local symbols、Assertions复选框选中
2，将Tools主菜单的D ......
技术交流,DH讲解. 记得很早之前我就说过,数组和结构体在内存中其实一样的,他们都是连续分布的.
例如: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
这两个都占12字节,而且TMyStruct.A就是T3IntArray[0].
而我们知道在访问数组中某个元素的时候,只是在� ......
用Delphi 实现串口通讯，常用的几种方法为：使用控件如MSCOMM和SPCOMM，使用API函数或者在Delphi 中调用其它串口通讯程序。利用API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂 的低层次通信程序。相比较而言，利用SPComm控件则相对较简单，该控件具� ......
2010-02-22 17:08:46
Delphi把多线程相关的API封装在TThread这个类中，可以方便实现多线程运用。首先看下TThread的声明：
TThread = class
private
FHandle: THandle;
FThreadID: THandle;
FCreateSuspended: Boolean;
FTerminated: Boolean;
FSuspended: Boolean;
FFreeOnTerminate: ......
在使用多线程的时候，如果多线程对某个特定的公共数据或资源进行访问，需要对多线程进行协调操作，叫做线程同步。
例如：三个线程分别循环地向ListBox中写入数据。没有进行同步时，写入的顺序是不确定的。
{主窗体代码}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, V ......
