Передача файла по сети

← →
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]

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

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

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