TIdTCPServer и ProgressBar

[Shouldercannon]

Так получаю файл от клиента

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  FS: TFileStream;
  FPath, FName: String;
begin
  FPath := ExtractFilePath(Application.ExeName) + 'Downloads';
  FName := AContext.Connection.IOHandler.ReadLn;

  if not DirectoryExists(FPath) then ForceDirectories(FPath);

  FS := TFileStream.Create(FPath + '\' + ExtractFileName(FName), fmCreate); // Сохранение
  try
    AContext.Connection.IOHandler.ReadStream(FS, -1, True); // Поток передаваемый клиентом
  finally
    FreeAndNil(FS);;
  end;

  AContext.Connection.Disconnect;

  Label1.Caption := 'Файл принят';
end;

Хочу подключить ProgressBar, но вся загвоздка в том, что приём идёт в отдельном потоке

AContext.Connection.IOHandler.ReadStream

и как туда залезть без понятия.
Помогите, пожалуйста, решить задачу.

[min@y™]

и как туда залезть без понятия.

События TIdIOHandler смотри.

284963.jpg

[Shouldercannon]

unit Unit1;
...
const
  Host = '192.168.0.10';
  Port = 1120;
  MY_MESS = WM_USER + 105;

type
  TForm1 = class(TForm)
...
  private
    { Private declarations }
    procedure MyProgress(var Msg: TMessage); message MY_MESS;
    procedure Work(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCount: Int64);
    procedure WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Int64);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  FS: TFileStream;
  FPath, FName: String;
begin
  FPath := ExtractFilePath(Application.ExeName) + 'Downloads';
  FName := AContext.Connection.IOHandler.ReadLn;

  if not DirectoryExists(FPath) then ForceDirectories(FPath);

  FS := TFileStream.Create(FPath + '\' + ExtractFileName(FName), fmCreate); // Сохранение
  try
    {ProgressBar1.Max := AContext.Connection.IOHandler.ReadLongInt; //!// Не скачивается 4 байта
    ProgressBar1.Position := 0;}

    AContext.Connection.OnWork := Work;
    AContext.Connection.OnWorkBegin := WorkBegin;
    AContext.Connection.IOHandler.ReadStream(FS, -1, True); // Поток передаваемый клиентом
  finally
    FreeAndNil(FS);;
  end;

  AContext.Connection.Disconnect;

  Label1.Caption := 'Файл принят';
end;

procedure TForm1.MyProgress(var Msg: TMessage);
begin
  case Msg.WParam of
  0: begin
    ProgressBar1.Max := Msg.LParam;
    ProgressBar1.Position := 0;
  end;

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

procedure TForm1.Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  PostMessage(Self.Handle, MY_MESS, 1, AWorkCount);
end;

procedure TForm1.WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  PostMessage(Self.Handle, MY_MESS, 0, AWorkCountMax);
end;

end.

AWorkCountMax равен нулю, зато AWorkCount не равен нулю.
Сделал так

ProgressBar1.Max := AContext.Connection.IOHandler.ReadLongInt;

И получил проблемы:
1. ProgressBar доходит только до 1/3
2. Файл скачивается не полностью
Отправляемый файл: 344 МБ (361*402*544 байт)
Полученный файл: 344 МБ (361*402*540 байт)
4 байта тю-тю

[vlad1389]

Видимо перевод строки не считается за тело файла. Оттого и -4 байта. Не трогайте ProgressBar1.Max. Считайте скачиваемый процент.

AWorkCountMax равен нулю

Возможно клиент не верно передаёт headers, откуда и считается AWorkCountMax.

[Shouldercannon]

Сообщение от vlad1389

Не трогайте ProgressBar1.Max. Считайте скачиваемый процент.

Это как?

[vlad1389]

Вы не умеете считать проценты? Вспомните школу.

Х = 100 * В / А

X - результат в процентах
A - AWorkCountMax
B - AWorkCount
Соответственно всегда имеем результат от нуля до ста. Прогресс бар по умолчанию имеет тот же диапазон.
P.S. данное замечание не имеет ни какого отношения к исправлению ошибки. Просто так по феншую будет )))

[Shouldercannon]

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

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

[northener]

Сообщение от Shouldercannon

Вот где бомбит
Msg.LParam = -408381440 при работе с 3886585856

Все правильно. В тип Integer число 3886585856 не влезает.