Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Вниз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
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c