Привязать ProgressBar к динамически созданному IdHTTP

[Shouldercannon]

Так ProgressBar привязывается не к динамически созданному IdHTTP

const
  MY_MESS = WM_USER + 100;
...
procedure MyProgress(var msg: TMessage); message MY_MESS;
...
procedure TFormMain.MyProgress(var msg: TMessage);
begin
  case msg.WParam of
  0: begin
    ProgressBar3.Max := msg.LParam;
    ProgressBar3.Position := 0;
  end;

  1: ProgressBar3.Position := msg.LParam;
  end;
end;

procedure TFormMain.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  PostMessage(FormMain.Handle, MY_MESS, 1, AWorkCount);
end;

procedure TFormMain.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  PostMessage(FormMain.Handle, MY_MESS, 0, AWorkCountMax);
end;

Как сделать тоже самое, но для динамически созданного IdHTTP?

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

вот куски из моего проекта:
поток:

  FWTrayIcon,
  NativeXml;

const
  UPD_PROGRESS_MAX = WM_USER + 1;
  UPD_PROGRESS = WM_USER + 2;

type
  TSelfUpdateThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure HttpWork(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
  public
  end;


....

procedure TSelfUpdateThread.HttpWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if AWorkMode = WmRead then
    SendMessage(SelfUpdatingForm.Handle, UPD_PROGRESS, 0, AWorkCount);
end;

procedure TSelfUpdateThread.HTTPWorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  if AWorkMode = WmRead then
    SendMessage(SelfUpdatingForm.Handle, UPD_PROGRESS_MAX, 0, AWorkCountMax);
end;

procedure TSelfUpdateThread.HTTPWorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
  SendMessage(SelfUpdatingForm.Handle, UPD_PROGRESS, 0, 0);
  SendMessage(SelfUpdatingForm.Handle, UPD_PROGRESS_MAX, 0, 0);
end;

procedure TSelfUpdateThread.GetHttpFile(aFile, aDestDir: string);
var
  http: TIdHTTP;
  sFile: TMemoryStream;
begin
  sFile := TMemoryStream.Create;
  http := TIdHTTP.Create(nil);
  try
    Http.OnWork := HttpWork;
    http.OnWorkBegin := HTTPWorkBegin;
    http.OnWorkEnd := HTTPWorkEnd;
    try
      StatusMessage('Загрузка данных...');
      http.Get(aFile, sFile);
      sFile.SaveToFile(aDestDir);
    except
      Terminate;
    end;
  finally
    http.Free;
    sFile.Free;
  end;
end;

Форма:

const
  UPD_PROGRESS_MAX = WM_USER + 1;
  UPD_PROGRESS = WM_USER + 2;
...
    procedure SetProgressMax(var msg: TMessage); message UPD_PROGRESS_MAX;
    procedure SetProgress(var msg: TMessage); message UPD_PROGRESS;

...

{Исп. компонент TGauge вкладка Samples} 
procedure TSelfUpdatingForm.SetProgress(var msg: TMessage);
begin
  FileProgress.Progress := msg.LParam;
  Msg.Result := 1;
end;

procedure TSelfUpdatingForm.SetProgressMax(var msg: TMessage);
begin
  FileProgress.MaxValue := msg.LParam;
  msg.Result := 1;
end;

[Shouldercannon]

Возникли проблемы с вызовом GetHttpFile

procedure TSelfUpdateThread.GetHttpFile(aFile, aDestDir: string);

добавил в

type
  TSelfUpdateThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure HttpWork(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
    procedure GetHttpFile(aFile, aDestDir: string);
  public
  end;

Пытался вызвать так

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetHttpFile('http://img.yandex.net/i/www/logo.png', 'C:\'); // Ошибка
  Form1.GetHttpFile('http://img.yandex.net/i/www/logo.png', 'C:\'); // Ошибка
  SelfUpdateThread.GetHttpFile('http://img.yandex.net/i/www/logo.png', 'C:\'); // Ошибка
end;

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

И что за ошибки? У меня все как часы...

[Shouldercannon]

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

TSelfUpdatingForm.SetProgress

Хоть один из выше приведённых способов привилен?

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

Вот вам простой пример, как из потока отправлять прогресс(см. вложение).


А передавать прогресс из динам. idHHTP очень просто, просто используя его обработчики события OnWorkBegin.OnWork,OnWorkEnd.
динамически их назначив в потоке созданному компоненту.

Чтобы получить эти обработчики, нужно сам компонент поставить на форму и дабл-кликом вызвать нужные обработчики, скопировать их и обявить в секции private у потока, затем там вписать код отправки данных на форму, а при создании idHTTP в потоке, назначить ему, его же события только уже обьявленые из потока.

В куске модуля потока показно как это делать.