Delphi中多线程用Synchronize实现VCL数据同步显示

 Synchronize 这个函数可以让多线程逐个执行,不知道是否可以呢?还没有测试过。。。

概述:
       VCL实现同步的另一种方法就是调用线程类的Synchronize的过程,此过程需要一个无参数的procedure,故在此procedure中无法传递参数值,但可以通过类的成员来实现。在类的Execute中只须调用Synchronize就可以了。
实现:
       关键在于对Synchronize参数的定义。定义一个无参数的procedure通过它来访问类的成员变量szName和nIndex。在类的重载Execute中调用Synchronize。
子类的定义如下:
unit TChildThread;
 
interface
 
uses
 Classes,Messages,Windows,SysUtils;
 
const MAX_LEN = 260;
type
 TChildThreads = class(TThread)
 private
    { Private declarations }
 protected
procedure Execute; override;
//同步函数的声明
    procedure UpdateData;
 public
     szName : array[0..MAX_LEN] of Char;
    nIndex : Integer;
 end;
 
implementation
uses
       Unit1;
 
{ Important: Methods and properties of objects in VCL or CLX can only be used
 in a method called using Synchronize, for example,
 
      Synchronize(UpdateCaption);
 
 and UpdateCaption could look like,
 
    procedure TChildThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }
 
{ TChildThread }
//同步函数的实现
procedure TChildThreads.UpdateData;
begin
   Form1.ShowData.Items.Add(PChar(@szName));
end;
procedure TChildThreads.Execute;
begin
 { Place thread code here }
 //调用同步过程
 Synchronize(UpdateData);
end;
end.
主程的设计与《Delphi中多线程用消息实现VCL数据同步显示》基本一致,但为了与其显示相同结果,在生成子线程中语句顺序作了一下调整。以下代码仅显示与上一篇不同的一个过程,其它代码不再赘述。
procedure TForm1.StartThreadsClick(Sender: TObject);
var
       oChildThread : array[0..1000] of TChildThreads;
 i : Integer;
begin
       For i := 0 to 1000 do
 begin
     oChildThread[i] := TChildThreads.Create(true);
    //注意这里的代码与消息同步中的顺序。
    oChildThread[i].nIndex := i;
    strcopy(@oChildThread[i].szName,PChar('Child' + IntToStr(i)));
    oChildThread[i].Resume;
 end;
end;
本文来自Delphi之窗,原文地址:http://www.52delphi.com

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值