关于多线程的例子，老是类似死机，请大师指导！ ( 积分: 200 )

hotboy · 2007-07-20

最近在学习多线程编程。 我在一个窗体上放下Edit1,和Button1 还有Edit2,和Button2。 设想： 点击Button1启动一个线程，在Edit1不停的变动数字。 点击Button2启动第二个线程，在Edit2不停的变动数字。 可是在点击完Button1，后在点击Button2 会死机。为什么啊？ 对多线程不太理解，请大师指导。 我的代码如下： program Project1; uses   Forms,   Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end. －－－－－－－－－－－－－ unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Button2: TButton;     Edit2: TEdit;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation uses Calculate,Calculate2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin TMyThread.Create(False); end; procedure TForm1.Button2Click(Sender: TObject); begin TMyThread2.Create(False); end; end. －－－－－－－－－－－－－ unit Calculate; interface uses   Classes,SysUtils; type   TMyThread = class(TThread)   private     { Private declarations }   protected     procedure Execute; override;   end; implementation  uses Unit1;  { TMyThread } procedure TMyThread.Execute;  var i:Integer; begin   { Place thread code here }       for i:=1 to 1000000000 do       Form1.Edit1.Text:=IntToStr(i); end; end.  －－－－－－－－－－－－ unit Calculate2; interface uses   Classes,SysUtils; type   TMyThread2 = class(TThread)   private     { Private declarations }   protected     procedure Execute; override;   end; implementation uses unit1; { TMyThread2 } procedure TMyThread2.Execute; var i:Integer; begin   { Place thread code here }      for i:=1 to 1000000000 do       Form1.Edit2.Text:=IntToStr(i); end; end.

xxljishiben · 2007-07-20

是不是线程同步问题。

happycyp · 2007-07-20

procedure TMyThread2.Execute; var i:Integer; begin   { Place thread code here }      for i:=1 to 1000000000 do       Form1.Edit2.Text:=IntToStr(i); end; 不要在线程中传使用 Form1.Edit2.Text 这种ＶＣＬ中的东东，这样使用的话，和不使用线程没有什么区别。 你可以发送消息使主窗体Edit框中的数据改变。 在线程创建时，将主窗体的Handle传递进来。 例子： type   TSQLThread = class(TThread)   private     FHandle: THandle;   public     procedure Execute; override;     constructor Create(CreateSuspended: Boolean; AHandle: THandle); reintroduce;   end; constructor TSQLThread.Create(CreateSuspended: Boolean; AHandle: THandle); begin   inherited Create(CreateSuspended);   FHandle := AHandle;   //传入窗体句柄，使线程不调用VCL的东东   FreeOnTerminate := True;   if Suspended then     Resume; end; procedure TSQLThread.Execute; begin   while not Terminated do   begin     for i:=1 to 1000000000 do           begin       PostMessage(FHandle, WM_MYMSG, i, 0);       Sleep(500); //不要太快，要不你看不到变化的效果     end;   end; end; 然后在主窗体中写一个消息处理函数： procedure ShowProcess(var Msg: TMessage); Message WM_MYMSG; procedure TForm1.ShowProcess(var Msg: TMessage);  begin    edit1.Text := IntToStr(Msg.WParam) end; 大概就是这个样子，没有测试。你试试

zhaokaien · 2007-07-20

在excute函数中加sleep(100);

白河愁 · 2007-07-20

怎么老有人要载线程中使用 Sleep, 拜托看下 MSDN

zwz_good · 2007-07-20

unit Calculate2; interface uses   Classes,SysUtils; type   TMyThread2 = class(TThread)   private     { Private declarations }     i:Integer;   protected     procedure Execute; override;     procedure UpdateCaption;   end; type   TMyThread = class(TThread)   private     { Private declarations }     i:Integer;   protected     procedure Execute; override;     procedure UpdateCaption;   end; implementation uses unit1; { TMyThread2 } procedure TMyThread2.Execute; begin   { Place thread code here }      for i:=1 to 1000000000 do        Synchronize(UpdateCaption); end; procedure TMyThread.Execute; begin   { Place thread code here }       for i:=1 to 1000000000 do         Synchronize(UpdateCaption); end; procedure TMyThread2.UpdateCaption; begin   Form1.Edit2.Text:=IntToStr(i); end; procedure TMyThread.UpdateCaption; begin   Form1.Edit1.Text:=IntToStr(i); end; end. 原因：（引用） { Important: Methods and properties of objects in visual components can only be   used in a method called using Synchronize, for example,       Synchronize(UpdateCaption);   and UpdateCaption could look like,     procedure ww.UpdateCaption;     begin       Form1.Caption := 'Updated in a thread';     end; }

hotboy · 2007-07-20

to zwz_good 采用您的方法好像不行。

late_autumn_zp · 2007-07-21

zwz_good 的方法是 正確的. 正確的做法是Synchronize(Function).

hotboy · 2007-07-21

zwz_good 的方法 仍然会死机

hotboy · 2007-07-21

zwz_good 的方法 数字显示到5,6万，就死机了

aicd · 2007-07-21

无语

z-jackey · 2007-07-21

呵呵,是同步的问题,好好看看线程同步的知识

kinneng · 2007-07-21

这个程序几乎没有需要同步的地方，但它有消息处理，间隔地释放时间，让系统有时间处 理消息队列的消息，就可以解决这个问题。 对症下药，将最顶贴的    for i:=1 to 1000000000 do    Form1.Edit1.Text:=IntToStr(i); 改为   for i := 1 to 1000000000 do   begin     Form1.Edit2.Text := IntToStr(I);     if I mod 2000 = 1 then sleep(1);//间隔地释放时间。   end; 即可！请加分。

hotboy · 2007-07-21

还有其它高见吗？

kinneng · 2007-07-22

还可以用低级线程，但我的方法确实对症下药解决了，就算了吧，没必要挖地三尺，除非客户给你很多钱，或者你给我很多分。

hotboy · 2007-07-22

加分不是问题！ 我在unit1里面使线程优先等级为idle，也可以解决我的问题。各位高手能再指导、指导，分析、分析吗？ 我已有的解决方法。 procedure TForm1.Button1Click(Sender: TObject); var xx:TMyThread; begin xx:=TMyThread.Create(False); xx.Priority:=tpIdle; end; procedure TForm1.Button2Click(Sender: TObject); var yy:TMyThread; begin yy:=TMyThread2.Create(False); yy.Priority:=tpIdle; end; end.

zwz_good · 2007-07-22

同意kinneng, 的看法。 “zwz_good 的方法 数字显示到5,6万，就死机了” 其实不是死机，而是cpu太忙了。

zwz_good · 2007-07-22

此问题到此结束吧，不然就有点专牛角尖的味道了。

hotboy · 2007-07-22

呵呵，大家来钻钻牛角尖。学编程鼓励钻牛角尖，我很快就发分了。[

]

appfirst · 2007-07-22

修改一下“zwz_good”的代码，是否是你要的？ type   TMyThread = class(TThread)   private     { Private declarations }     i:Integer;   protected     procedure Execute; override;     procedure UpdateCaption;   end; procedure TMyThread.Execute; Var   i:Integer; begin   for i:=1 to 1000000000 do   begin    Self.i:=i;    Synchronize(UpdateCaption);   end; end; procedure TMyThread.UpdateCaption; begin   Form1.Edit1.Text:=IntToStr(i);   Application.ProcessMessages; end;

关于多线程的例子，老是类似死机，请大师指导！ ( 积分: 200 )

hotboy

Unregistered / Unconfirmed

xxljishiben

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

zhaokaien

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

zwz_good

Unregistered / Unconfirmed

hotboy

Unregistered / Unconfirmed

late_autumn_zp

Unregistered / Unconfirmed

hotboy

Unregistered / Unconfirmed

hotboy

Unregistered / Unconfirmed

aicd

Unregistered / Unconfirmed

z-jackey

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

hotboy

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

hotboy

Unregistered / Unconfirmed

zwz_good

Unregistered / Unconfirmed

zwz_good

Unregistered / Unconfirmed

hotboy

Unregistered / Unconfirmed

appfirst

Unregistered / Unconfirmed

Similar threads