请问如何给我的线程传参数(50分)

咪

咪咪富翁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #1

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure sa.execute;
begin
try
freeonterminate:=true;
//线程结束后自动退出内存
if form1.SpeedButton2.top>20 then
repeat
form1.SpeedButton2.top:=form1.SpeedButton2.top-1;
form1.Refresh;
until
form1.SpeedButton2.top=20
else
while form1.SpeedButton2.top<200do
form1.SpeedButton2.top:=form1.SpeedButton2.top+1;
finally
end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
ywx:=sa.create(false);
end;

end.
初学线程，我写了这么一段程序，我想把speedbutton的名字作为参数传给我的线程
请问该怎么做？？

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #2

procedure sa.execute(speedbutton:tspeedbutton);overload ;

 

咪

咪咪富翁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #3

to:
weekboy
请你讲得稍微详细点好吗，谢谢了

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #4

sorry!
published
constructor create(speedbutton:tspeedbutton);
...
constructor create(speedbutton:tspeedbutton);
begin
inherited create(true);
...
end;
...
yourthread:=tyourthread.create(form1.SpeedButton2)

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #5

自己写一个线程类，
TGetFileInfo = class(TThread)
private
FSpeed:TSpeedbutton;
protected
procedure Execute;
override;
public
constructor CreateGetFile(Speed:TSpeedbutton);
//构造函数
destructor Destroy;override;
//析构函数
end;
contructor TGetFileInfo.CreateGetFile(Speed:TSpeedButton);
begin
inherited Create;
FSpeed:=Speed;
end;
再在线程里用这个Fspeed就可以了，
或者用
TGetFileInfo = class(TThread)
private
protected
procedure Execute;
override;
public
FSpeed:TSpeedbutton;
constructor CreateGetFile(Speed:TSpeedbutton);
//构造函数
destructor Destroy;override;
//析构函数
end;

在启动线程前给这个fspeeD给个值就OK

 

咪

咪咪富翁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-04

• #6

谢谢支持

 

S

sim_might

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-04

• #7

CreateThread()
5个参数， 其中有一个是用一个指针来傳地参数。
记不清了，要查一下。

 

R

raiboi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #8

在 {Delphi}/Demos/Threads 中有最好的例程.

 

T

tp168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #9

如果用继承TThread类的方法来建立线程，就和张无忌写的那样传递参数
constructor Create(Speed:TSpeedbutton;...);
如果用Api函数CreateThread建立线程，必须用一个指针来传递参数，
例如：
type
PPara = ^TPara;
TPara = record
para1:integer;
para2:string;
end;
procedure testproc(paraPara);stdcall;
var
begin
para^.para1和para^.para2访问传递进来的参数
end;

 

T

tp168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #10

var
paraPara;
ThreadId:dword;
h1:THandle;
begin
para^.para1:=1;
para^.para2:='123';
h1:=createthread(nil,0,@testproc,para,0,threadid);
if h1=0 then
showmessage('error')
else
showmessage('success');
end;

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-07

• #11

很簡單:
只要在你的線程類的Contructor函數中設定幾個參數就可以了.

 

T

tfnmao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #12

1用构造器传
2在线程中定义一些变量
xxthread.create(true);
给变量赋值
thread.resume
3给线程发消息