Узнать процент отправки

← →
MRAk (2005-10-31 04:26) [0]

собственно есть такой кусок отправки файла:
fs.Position:= 0;
Socket.SendText("#$!file"+IntToStr(fs.Size) + #0 +ExtractFileName(putfail)+ #0);
Socket.SendStream(fs);
вот тут вопрос как можно узнать сколько процентов отправленно? только не через ответные сообшения...

Заранее спасибо

← →
Digitman © (2005-10-31 08:37) [1]

> как можно узнать сколько процентов отправленно?

реализуй своего наследника класса TFileStream, в нем перекрой вирт.метод Read()

← →
MRAk (2005-10-31 12:57) [2]

хм а как это сделать? можно пример?

← →
Digitman © (2005-10-31 13:08) [3]

TMyFileStream = class(TFileStream)
..
protected
function Read(var Buffer; Count: Longint): Longint; override;
..
end;

...
function TMyFileStream := Read(var Buffer; Count: Longint): Longint;
begin
Result := inherited;
showmessage(Format("Отправлено %2u процентов", [Result * 100 / Size]);
end;

fs := TMyFileStream.Create(..);
...
Socket.SendStream(fs);

← →
MRAk (2005-10-31 14:51) [4]

Простите за нубовский вопрос
Result := inherited;
Это я так понимаю озночает использовать стандартные действия? а то он ругается на это место

> озночает использовать стандартные действия?

это означает вызов одноименного метода класса-предка

Result := inherited Read(Buffer, Count);

← →
MRAk (2005-10-31 20:16) [6]

Спсибо.. большое вот такой код получился:

function TMyFileStream.Read(var Buffer; Count: Longint):Longint;
begin
Result := inherited Read(Buffer, Count);
obsh:=obsh+result;
unit2.Form2.Gauge1.Progress:=round((Obsh/Size)*100);
if round((Obsh/Size)*100)=100 then
unit2.Form2.Label3.caption:="Файл успешно отправлен... ожидаем конца приема";
end;

Узнать процент отправки Найти похожие ветки