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
相关文档：
技术交流,DH讲解.
明天去坐火车,回家,今天就没有事做,本来在弄一个跨进程获取其他程序里面组件,如ListView,ListBox,Button等的信息,突然有个想法自己写个Timer,不用SetTimer函数,我们自己用个多线程也正好实现这个.反正前段时间多线程也弄得比较多,本来想单独讲讲的,现在就用个例子来说明吧.
写成一个控件:utTimer.pas
v ......
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
搞了好一会才搞明白其用法.所以想贴出来帮助需要帮助的人.
var
&nb ......
关于delphi Assigned
1.根据 Delphi 指令参考手册中
说明：
Assigned 函式在参数不为nil时传回True,表示指针已经指到某个内存地址，这个内存地址可能是一个对象地首地址，也可能在函数或过程中，声明一个指针变量，没有赋值为nil ，无乱的指向某处，这两个种情况，Assigned（指针变量）都不为nil , 函数放回True；
而� ......
信号量是建立在互斥量的基础之上，同时加入重要特性：提供了资源计数功能，因此预定义数量的线程同时可以进入同步的代码块中。
信号量是维护0到指定最大值之间的计数器的同步对象，当线程完成一次信号量的等待时，计数器自减1，当线程释放信号量对象时，计数器自增1。
......
ADO多线程数据库查询通常会出现3个问题：
1、CoInitialize 没有调用（CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitialize was not called"例外。
2、画布不允许绘画（Canvas does not allow drawing）；所以，必须通过Synch ......
