Как в ProgressBar отобразить процесс выполнения Post запроса через Idhttp

[Joe_Tribbiani]

Как в ProgressBar отобразить прогресс выполнения Post запроса через Idhttp?
Да, и еще: как ускорить выполнение запроса?

[Квэнди]

1. для отображения процесса запроа в IdHTTP используются события onworkbegin onwork onworkend
2. Так какового ускорения сделать невозможно. Единственное что можно сделать: если удаленный сервер поддерживает GZIP, то можете подключить к IDhttp компонент TIdCompressorZLib с вкладки Misc.
Компонент связывается путем указания его в свойстве compressor компонента IdHttp
Также для корректной отрисовки прогресбаров бросьте на форму компонент TIdAntiFreeze с вкладки Misc. Он эмулирует работу неблокирующих сокетов и позволяет корректно обрабатывать и перерисовывать компоненты формы во время выполнения запроса.

[Joe_Tribbiani]

Спасибо!
Но процесс запроса отображаеться так быстро, что невозможно и заметить)

[Квэнди]

Может просто запрос быстро проходит ? ) попробуй загрузить файл побольше и посмотри )

[Joe_Tribbiani]

) Да я не файл загружаю, а просто отправляю пост запрос (регюсь на сайте), но иногда он долговато отправляеться, такшо и хотел отобразить прогресс... А сейчас отображаеться пустой прогресс бар, потом он думает, потом резко прогрессбар заполняеться и всё)
А я хотел чтобы в то время когда он думает, отображался прогресс

[Alter]

Может ещё нужно, вот код использования прогресса в программе:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, ExtCtrls,
  Gauges;

const 
  MY_MESS = WM_USER + 100;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    Gauge1: TGauge;
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
  private
    { Private declarations }
  public
   procedure MyProgress(var msg:TMessage);message MY_MESS;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyProgress(var msg: TMessage);
begin
 case msg.WParam of
  0: begin
      Gauge1.MaxValue := msg.LParam;
      Gauge1.Progress := 0;
     end;
  1: Gauge1.Progress := msg.LParam;
 end;
end;

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

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

end.

[Viteef]

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

) Да я не файл загружаю, а просто отправляю пост запрос (регюсь на сайте), но иногда он долговато отправляеться, такшо и хотел отобразить прогресс... А сейчас отображаеться пустой прогресс бар, потом он думает, потом резко прогрессбар заполняеться и всё)
А я хотел чтобы в то время когда он думает, отображался прогресс

Скорее сам запрос отправляется быстро, но сервер отвечает медленно.

[Квэнди]

) Да я не файл загружаю, а просто отправляю пост запрос (регюсь на сайте), но иногда он долговато отправляеться, такшо и хотел отобразить прогресс... А сейчас отображаеться пустой прогресс бар, потом он думает, потом резко прогрессбар заполняеться и всё)
А я хотел чтобы в то время когда он думает, отображался прогресс

1.в событиях onworkXXX добавь обработку сообщений ос
2. Как вы собираетесь отобразить процесс "думает" ? у него нет начала и окончания, есть только текущий процесс. Для этого существуют компоненты, отображающие не "прогресс", а именно "длительное неопределенное действие". Пример: любой анимационный крутящийсяобъект с надписью "ожидайте".

[Joe_Tribbiani]

Спс всем, кто ответил)

Пример: любой анимационный крутящийсяобъект с надписью "ожидайте".

А хорошая идея, так даже легче...