Создаю поток в другом потоке приложение работает правильно, но при закрытии выдаёт неверный дескриптор окна!
Что делать?
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | type
TFireThread = class(TThread)
private
adlink:Boolean;
nm:String;
service:integer;
procedure Get(Dname:String;adlink:Boolean;ser:integer);
protected
procedure Execute; override;
public
end;
type
TLoadThread = class(TThread)
private
hfil:HFILE;
size,ty,ok,isize:int64;
late:int64;
DownName:String;
DownNumber:integer;
hIneta,hURLa,hURLb: HINTERNET;
nseg,allseg,ns:integer;
zerkala:TStringList;
stok:Boolean;
procedure DownLoadSeg(beg,the:String);
protected
procedure Execute; override;
procedure Terminate;
public
end;
var
LinkThried: array [0..9999] of TFireThread;
procedure TLoadThread.DownLoadSeg(beg,the:String);
begin
LinkThried[DownNumber]:=TFireThread.Create(false);
end;
|
04.03.2012, 19:09
Потоки TThread
Линейный вид
