Вопрос по потокам

← →
zaN0za © (2006-04-30 15:39) [0]

Доброго времени суток.

У меня такой вопрос:

создаю поток с помощью CreateThread, передаю в него параметр.

каким образом создать поток и передать в него например 3 параметра?

Спасибо за внимание.

← →
Eraser © (2006-04-30 15:50) [1]

> zaN0za © (30.04.06 15:39)

> создаю поток с помощью CreateThread

Лучше использовать BeginThread.

> каким образом создать поток и передать в него например 3
> параметра?

создать потомок класса TThread и в нём определить свой метод Create.

Так :
type TMyMode = packed record Port : Byte; Baud : Word; CashID : Byte; Handle : THandle; Mode : Byte; Idx1, Idx2 : Word; end; PMyMode = ^TMyMode; ... var Ph:PMyMode; begin New(Ph); Ph^.Port:=Port; Ph^.Baud:=Baud; Ph^.Mode:=Mode; Ph^.Idx1:=Idx1; Ph^.Idx2:=Idx2; Ph^.CashID:=CashID; Ph^.Handle:=Handle; CloseHandle(BeginThread(nil,0,@Potok,Ph,0,ThreadId)); //... end; function Potok(Param: PMyMode): DWord; begin //... case Param^.Mode of ... //... Dispose(Param); end;

Вопрос по потокам Найти похожие ветки