Передача файла большого размера

[Shouldercannon]

Передают через Indy (TIdTCPClient/Server) файл размером 3 Гб и наблюдаю проблему с определением

ProgressBar1.Max

туда передаётся отрицательное значение (-408381440). При передаче файлов до 1 Гб, всё нормально.
Подскажите как исправить этот момент?

[evg_m]

указывать в ProgressBar не байты а КБайты (или даже MБайты)

var
  fileSize: int64;
  filleSize:=3*1024*1024*1024;//ЗГбайта
ProgressBar1.Max =FileSize;
ProgressBar1.Max:=fileSize div 1024;

[Человек_Борща]

Показывайте расчет макс. прогресса,что вы туда передаёте?
Тип данных у ProgressBar1.Max какой? У Integer хватит места для пары петабайт в байтах.

[min@y™]

Оставь ProgressBar.Min:= 0; ProgressBar.Max:= 100.
Вычисляй Position во время передачи:

X:= Round(100 * ПЕРЕДАНО_БАЙТ / РАЗМЕР_ФАЙЛА);
if X <> ProgressBar.Position
  then ProgressBar.Position:= X;

У Integer хватит места для пары петабайт в байтах.

Да ты гонишь! Где integer (-(2^31)...+(2^31 - 1)), а где петабайт (2 в 50-й степени)?

[northener]

Сообщение от Человек_Борща

У Integer хватит места для пары петабайт в байтах.

На х86 МаксИнт = 2147483647

[Человек_Борща]

Да ты гонишь! Где integer (-(2^31)...+(2^31 - 1)), а где петабайт (2 в 50-й степени)?

каюсь, переборщил

[Shouldercannon]

Сообщение от Человек_Борща

Показывайте расчет макс. прогресса,что вы туда передаёте?
Тип данных у ProgressBar1.Max какой? У Integer хватит места для пары петабайт в байтах.

Вот где проблема

procedure TForm1.MyServerProgress(var Msg: TMessage);
begin
  case Msg.WParam of
  0: begin
    SProgressBar.Max := Msg.LParam; // Фаталити
    SProgressBar.Position := 0;
  end;

  1: SProgressBar.Position := Msg.LParam;
  end;
end;

Msg.LParam не может вместить 3886585856
LPARAM = INT_PTR; - INT_PTR = System.IntPtr; - IntPtr = NativeInt - не помещается туда значение.

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

[Alex11223]

Дык 3 раза в разных темах уже сказали об этом и о том как надо делать.

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

Непонятный набор слов.

[Shouldercannon]

Задача требует отображать количество переданных данных начиная с байт и заканчивая Мб, Гб и т.д. Здесь ProgressBar поднимешь, байты уронишь. Поднимешь байты, ProgressBar уронишь.
Замкнутый круг.

[Alex11223]

Причем тут отображение байтов и полоса прогресса в ProgressBar? Это разные вещи.