Problema s potokom (ne mogu ubit potok)

← →
Delphi5.01 © (2003-09-21 14:00) [0]

TReadThread = class (TThread)
private
{ Private declarations }
protected
Procedure DoWork;
Procedure Execute; override;
end;
...
procedure TReadThread.DoWork;
begin
//F : TFileStream
k:=F.Read(Buffer,SizeOf(Buffer));
WorkDone:=True;
end;

procedure TReadThread.Execute;
begin
While (Not Terminated)and(Not WorkDone) do
Synchronize(DoWork);
end;
...

v samom kode pishu
WorkDone:=False;
Time:=GetTickCount;
Reader:=TReadThread.Create(False);
//proverau esli ne proshlo 100 milisekund ili esho nichego ne schitano to togda jdu
While (Not WorkDone)and(GetTickCount-Time<100) do
Application.ProcessMessages;
Reader.Terminate;
Reader.Free;

PROBLEMA zakluchaetsa v sleduushem, "Reader.Terminate" ne srabativaet a pochemu?
Pomogite Please

← →
Delphi5.01 © (2003-09-21 16:52) [1]

pomogite pleazeeeeeeeee

Problema s potokom (ne mogu ubit potok) Найти похожие ветки