Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

потоки текут-2 или получилось наполовину   Найти похожие ветки 

 
Eraser ©   (2002-01-16 10:59) [0]

Спасибо ВСЕМ кто вчера помогал мне!! Но за бессоную ночь родилось много вопросов. Приведу код который я наваял (точнее списал с Demos и Panov):
//ocновная форма
var
// FirstParameter, NextParameter: integer;
T:array [1..3] of TSortThread;

procedure TSortForm.StartBtnClick(Sender: TObject);
begin
ThreadsRunning := 3;
T[1]:=TSortThread.Create(1,5);
T[2]:=TSortThread.Create(2,4);
T[3]:=TSortThread.Create(3,6);
StartBtn.Enabled := False;
end;

procedure TSortForm.Button1Click(Sender: TObject);
begin
while ThreadsRunning<>0 do begin
T[ThreadsRunning].Terminate;
Dec(ThreadsRunning);
end;
StartBtn.Enabled := True;
end;

//ThreadObject
type
TSortThread = class(TThread)
private
FFirstPar: integer;
FNextPar: integer;
public
procedure Execute; override;
procedure Rab;
constructor Create(const FirstParameter, NextParameter: integer);
end;

implementation

constructor TSortThread.Create(const FirstParameter, NextParameter: integer);
begin
inherited Create(True);
FreeOnTerminate := True;
FFirstPar := FirstParameter; //Инициализация переменных
FNextPar := NextParameter;
Resume; end;

procedure TSortThread.Execute;
begin
while not Terminated do
begin
case FFirstPar of
<верно ли здесь, будут ли 3 разных процесса с одной и той же процедурой>
1:Rab;
2:Rab;
3:Rab;
end;
end;
end;

procedure TSortThread.Rab;
var hPort:Thandle;
begin
hPort := CreateFile(PChar(FNextPar),
GENERIC_READ + GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hPort = INVALID_HANDLE_VALUE then
label1.caption:="no";
end;

Вопрос в принципе один -где то я запутался в передаче значений форме и определении переменных(пишет что label1,hport,createfile не определены)?? Подскажите как? Ведь если делаю потоки в основной форме то все работает??
Простите за глупые вопросы, подскажите чайнику.



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.007 c
3-8772
Andr
2002-01-05 19:06
2002.02.04
DBImage


1-8901
Ольга
2002-01-16 14:28
2002.02.04
Генератор паролей


4-9040
GoldenFox
2001-12-06 16:06
2002.02.04
Надо убрать иконку из Таскбара в WinNT,


1-8860
$hade
2002-01-21 13:07
2002.02.04
CASE-средства


14-8976
Nikolay
2001-12-12 20:27
2002.02.04
Откачали........