Скачать: CL | DM;

Вопрос по Thread, мож кто прояснит в чём дело...   Найти похожие ветки 

← →
_Agent_   (2003-11-04 17:16) [0]

создаю Ветвь..
type
TScanThr = class(TThread)
DBFQuery:TQuery;
SQLStorPr:TStoredProc;
protected
procedure Execute; override;
public
constructor Create(........);
destructor Destroy; override;
end;

implementation
constructor TScanThr.Create ( ......);
begin
inherited Create(True);
FreeOnTerminate :=True;
DBFQuery:=TQuery.Create(nil);
.......
SQLStorPr:=TStoredProc.Create(nil);
.......
Resume;
end;

procedure TScanThr.Execute;
begin
..........
end;

destructor TScanThr.Destroy;
begin
if Assigned(DBFQuery) then
begin
DBFQuery.Close;
DBFQuery.Free;
DBFQuery := nil;
end;
if Assigned(SQLStorPr) then
begin
SQLStorPr.Close;
SQLStorPr.Free;
SQLStorPr := nil;
end;
inherited;
end;
спервого раза всё отрабатывает нормально и destructor тоже.
далее если из основного потока вызвать
If not Assigned( ScanThr)then (где ScanThr:TScanThr)
begin
//действия повторно не выполняются
end;
мож я как то не так удаляю ветвь в деструкторе
Заранее благодарен..

---

← →
Игорь Шевченко ©   (2003-11-04 17:33) [1]

После деструктора переменная ScanThr не обнуляется. Отладчиком надо пользоваться вообще-то...

---

← →
Chlavik ©   (2003-11-04 17:40) [2]


..
ScanThr:=TScanThr.Create......
ScanThr.OnTerminate:=ScanThrTerminate;
..

procedure Form1.SQLStorPrTerminate(Sender:TObject);
begin
ScanThr:=nil;
end;


---

← →
_Agent_   (2003-11-04 18:00) [3]

Спасибо большое.....
P.S. Век живи, век учись .... и дальше что то про дурака и смерть :)))

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c