Вниз
Скачать: CL | DM;

Передача файла по сети   Найти похожие ветки 

 
ashnurov ©   (2004-06-24 11:34) [0]

Подскажите как сделать чтобы Gauge показывал сколько скачано.
Я использую код
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
M : TFileStream;
begin
M := TFileStream.Create;
G1.MaxValue:=strm.Size;
m.CopyFrom(strm,strm.Size);
Gauge1.Progress:=m.Position;
m.Free;
end;
end.
----------------------------------
но он показывает сразу 100%


 
Digitman ©   (2004-06-24 11:54) [1]

что мешает перед отправкой сообщений с последовательными фрагментами файла отправить сообщение с инф-цией о полной длине файла ?

а далее файл считывается равными кусками и каждый кусок передается отдельным сообщением, параметр strm покажет размер очередного принятого куска

если на принимающей стороне будет иметься полный размер файла, то установить параметры Gauge-индикатора при получении очередного сообщения не составляет труда


 
ashnurov ©   (2004-06-24 12:10) [2]

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


 
Digitman ©   (2004-06-24 12:15) [3]


> ashnurov ©   (24.06.04 12:10) [2]


что тебе непонятно ?


 
ashnurov ©   (2004-06-24 12:22) [4]

где это вставить в мой код


 
Digitman ©   (2004-06-24 14:02) [5]


> ashnurov ©   (24.06.04 12:22) [4]


> где это вставить


что ЭТО ?

попорядку давай...


 
Doctor Deejay ©   (2004-06-25 13:41) [6]

Я думал, что тормозов не осталось на этом сайте...



Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.022 c
14-1091605212
Layner
2004-08-04 11:40
2004.08.22
Почему такая дискриминация русского???


1-1091689182
Vilux
2004-08-05 10:59
2004.08.22
Вопрос по деревьям


3-1090056264
Andrey
2004-07-17 13:24
2004.08.22
Как сделать, чтоб новая запись записывалась в конце базы?


14-1091714217
default
2004-08-05 17:56
2004.08.22
Удалённая работа


4-1089281283
han_malign
2004-07-08 14:08
2004.08.22
Имя текущего пользователя, из под сервиса...




   Наверх