请教如果创建多个线程【【【【【【【【【【【【【【【【【【【【

2010-04-09 07:28:04 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

淘宝x-mini-wua生成机制与硬件信息关联性深度解析本文深度解析了淘宝x-mini-wua的生成机制与硬件信息的关联性，详细介绍了其作为设备指纹令牌的核心作用及技术实现细节。通过分析基础硬件层、环境特征层和行为特征层的数据采集，揭示了淘宝如何利用AES加密和分级加密策略防止破解，并探讨了其安全防护与对抗策略。阅读详情

type

  TMyThread = class(TThread)

  protected

    procedure Execute; override;

  Private

  public

end;

implementation







procedure TMyThread.Execute;

begin

  FreeOnTerminate := True; {这可以让线程执行完毕后随即释放}

   //事件

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  TMyThread.Create(False);

end;

如以上代码,我已经创建了一个线程,

我想在建一个线程,于是我新建一个单元,把代码放进去,就可以了

问题:不创建单元如何创建多个线程.

请贴出代码谢谢

...全文

abaqus单位设置_ABAQUS热辐射分析实例热辐射是一种通过电磁波传递热能的方式。电磁波以光的速度进行传递，而能量传递与辐射物体之间的介质无关。热辐射只在电磁波的频谱中占小部分的带宽。由于辐射产生的热流与物体表面的绝对温度的四次方成正比因此热辐射有限元分析是高度非线性的。下面就通过一个简单的案例带大家了解以下在ABAQUS中如何进行热辐射分析。1. 模型介绍该案例模拟了一个直径为1m、高1m、初始温度20... 阅读详情

woyun03

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

SQLDebug_Fan 2010-04-11

打赏
举报

给一个源码供你参考：



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    btn1: TButton;

    procedure btn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



  TMyThread = class(TThread)

  private

    FRunType: Integer;

    procedure Procedure0;

    procedure Procedure1;

  protected

    procedure Execute; override;

  public

    property RunType: Integer read FRunType write FRunType;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{ TMyThread }



procedure TMyThread.Execute;

begin

  inherited;

  case FRunType of

    0: Procedure0;

    1: Procedure1;

  end;

end;



procedure TMyThread.Procedure0;

begin

  //类别0执行代码

end;



procedure TMyThread.Procedure1;

begin

  //类别1执行代码

end;



procedure TForm1.btn1Click(Sender: TObject);

var

  MyThread0, MyThread1: TMyThread;

begin

  MyThread0 := TMyThread.Create(True);

  MyThread0.RunType := 0;

  MyThread0.Resume;



  MyThread1 := TMyThread.Create(True);

  MyThread1.RunType := 1;

  MyThread1.Resume;

end;



end.

woyun03 2010-04-10

打赏
举报

求源码
定义对象.创建实例,
但是我不会各自执行各自的事件

type

  TMyThread = class(TThread)

  protected

    procedure Execute; override;

  Private

  public

end;

implementation







procedure TMyThread.Execute;

begin

  FreeOnTerminate := True; {这可以让线程执行完毕后随即释放}

   //事件

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  TMyThread.Create(False);

end;

procedure TMyThread.Execute; 就是创建线程后执行的事件,
我不知道如果创建多个线程和多个事件.

请以我的代码给出源码...参考后就懂了

SQLDebug_Fan 2010-04-10

打赏
举报

TMyThread.Create(False);
这样就创建了一个线程，调用多次就创建了多个线程，楼主不是如何创建单元才能创建线程，而且对程序的理解存在偏差，对DELPHI封装的线程理解不够。

xiaocongzhi 2010-04-10

打赏
举报

你定义几个对象实例分别Create不就行了
如：
Var
Thread1:TMyThread;
Thread2:TMyThread;
Thread3:TMyThread;
分别 : Thread1:=TMyThread.Create(False);
Thread2:=TMyThread.Create(False);
Thread3:=TMyThread.Create(False);

woyun03 2010-04-10

打赏
举报

UP~~~~~~~~~~~~~~~~

SQLDebug_Fan 2010-04-10

打赏
举报

在DELPHI不推荐用createthread，因为用TThread会告诉DELPHI程序，现在是多线程程序。

woyun03 2010-04-10

打赏
举报

type

  TMyThread2 = class(TThread) //TMyThread2  不是TMyThread

  protected

    procedure Execute; override;

  Private

  public

end;

implementation







procedure TMyThread2.Execute;  //TMyThread2

begin

  FreeOnTerminate := True; {这可以让线程执行完毕后随即释放}

   //事件

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  TMyThread2.Create(False); //TMyThread2

end;

问题,我这样就算创建2个线程了吧?

我没接触过线程所以不懂呵呵

浮生若梦_平淡为真 2010-04-10

打赏
举报

俺都用createthread

亮剑_ 2010-04-10

打赏
举报

1、创建一个TMyThread类的对象，就会创建一个线程
2、程序单元（Unit）和线程不存在对应关系

woyun03 2010-04-09

打赏
举报

恩是的最终是API

其他线程...我就是想TMyThread创建多个线程的方法....

QQ286251099 2010-04-09

打赏
举报

TThread 最终也是 API
不能创建组建可能是你同步没做好吧.
VCL 组建的处理是在
Application 的消息循环里也就是主线程里

你其他线程创建时要注意同步

woyun03 2010-04-09

打赏
举报

createthread 确实可以在一个单元里创建多个线程

但是动态创建idhttp 后,在过程中进程会死掉,

我需要不停的IDHTTP,然后用createthread后过会就有事了,程序挂了.

用TMyThread 就没事了,程序一点事都没有,不知道为什么

所以想知道 TMyThread怎么1个单元里创建多个线程

dinoalex 2010-04-09

打赏
举报

谁说不可以动态创建组件

woyun03 2010-04-09

打赏
举报

用createthread没法动态创建组件

...

我要在这一个单元里创建多个线程实现不了?

dinoalex 2010-04-09

打赏
举报

你指的是你的TMyThread所在的单元,这个一个单元概念??

可以试用API的createthread

请教 如果创建多个线程【【【【【【【【【【【【【【【【【【【【

相关推荐

请教如果创建多个线程【【【【【【【【【【【【【【【【【【【【