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

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 вся ветка

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



Память: 0.47 MB
Время: 0.013 c