Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Вниз
Ukazanie vremeni scitivania TFileStream Найти похожие ветки
← →
Delphi5.01 (2003-09-20 21:26) [0]Dobroe vrema sutok!
Mojno li schitat opridelonnae kolichestvo byte is TFileStream s ojidaniem, tipa esli za 10 sekund ne smog pochest eto kolichestvo baitov to programa prodoljaet rabotat!
Spasibo
← →
Anatoly Podgoretsky (2003-09-20 21:31) [1]Можешь.
← →
Delphi5.01 (2003-09-20 22:01) [2]a kak? :-))))
← →
Delphi5.01 (2003-09-20 22:53) [3]Uvajaemi Anatoly Podgoretsky, esli vam ne trudno podskajite, ochen nujno, ili ukajite url gde mojno naiti nujnuiu infu.
Spasibo
← →
Delphi5.01 (2003-09-20 23:07) [4]Pomogite pojaluista, ot etogo zavisit 5 gb informacii!
Pleazeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
← →
Anatoly Podgoretsky (2003-09-20 23:07) [5]А надо:
1. правиотно задавать вопрос, не телепаты
2. Попытаться рассказать задачу так, чтобы тебя поняли
← →
Романов Р.В. (2003-09-20 23:11) [6]2 варианта
1. Читаешь небольшими кусочками в цикле и проверяешь сколько времени прошло
2. Читаешь в отдельном потоке, а в основном потоке ставишь таймер.
← →
Delphi5.01 (2003-09-20 23:30) [7]Nu tipa zadacha takaia, esk kompakt disk, s nego nado schitat daninie, no neskolko baitov povrejdenni, tipa pitalsa schitat Try Except no rezultat plachevni, ne srabativaet except, po etoi prichine nado mne kajetsa ustanavlivat vrema, i kajetsa 2.2 variant ispolzovat, s potokom, potomuchto potok ubivat mojno; no ia s potokami ranshe ne rabotal, i po etoi prichine esli est drugoe reshenie pojaluista pomogite
← →
Романов Р.В. (2003-09-20 23:36) [8]Учись работать с потоками. Пригодится
← →
Delphi5.01 (2003-09-21 13:58) [9]TReadThread = class (TThread)
private
{ Private declarations }
protected
Procedure DoWork;
Procedure Execute; override;
end;
...
procedure TReadThread.DoWork;
begin
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 13:58) [10]TReadThread = class (TThread)
private
{ Private declarations }
protected
Procedure DoWork;
Procedure Execute; override;
end;
...
procedure TReadThread.DoWork;
begin
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) [11]Help Pleazeeeeeeeeeeeeeeeeeee
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
