Как избавиться от зависания приложения при выполнении длительных операциях

[Квэнди]

Для IdHttp достаточно просто обработать события onXXwork...
Насчет TIdAntiFreeze... Да, это выход в некоторых ситуациях, но далеко не во всех, ибо это сугубо иллюзия и не является прямой реализацией асинхронного ввода-вывода. И, кстати, в указанных выше событиях использование Application.ProcessMessages может вполне спасти в некоторых случаях

[Des]

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

Хотя нет, вспомнил, на вкладке Indy Misc есть компонент TIdAntiFreeze
Может быть он поможет, но не уверен.

Спасибо, поставил, чуть-чуть но уже лучше

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

И ничто тут не поможет, только можете в отдельный поток выставить форму показывающую, что сейчас идет длительный процесс.

Аммммм а как

Спасибо!

[Des]

Сообщение от Квэнди

Для IdHttp достаточно просто обработать события onXXwork...

А что обозначают вот эти ХХ? И собственно как обработать?

Спасибо!

[Neeter]

Вот набросал небольшой примерчик:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TNewThread = class(TThread)  //Поток
  private
    { private declarations }
  protected
    procedure execute; override; //Процедура, которая будет происходить при работе потока
  end;
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NewThread: TNewThread;  //Переменная, обозначающая данный поток

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 NewThread := TNewThread.Create(true); //Создаем
 NewThread.FreeOnTerminate := true;      //Освобождаем память при закрытии потока
 NewThread.Priority := tpLower;               //Назначаем приоритет
 NewThread.Resume;                               //Начинаем действие потока
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 NewThread.Suspend; //Пауза
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 NewThread.Terminate; //Закрываем поток
end;

{ TNewThread }

procedure TNewThread.execute;
begin
 inherited;
 while True do   //Бесконечный цикл
 begin
  if Form1.ProgressBar1.Position <> Form1.ProgressBar1.Max then
   Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + 1
  else
   Form1.ProgressBar1.Position := 0;
  Sleep(20); //Обязательно надо на немного задерживать действие потока(тут задерживаем на 20 миллисекунд)
 end;
end;

end.

[Des]

Neeter
Я так полагаю в предоставленом примере мы не TForm запихиваем в отдельный Thread а то что мешает жить форме .т.е.

while True do   //Бесконечный цикл

?
Но к примеру у меня есть несколько бесконечных циклов, ассинхронизировать? А не легче как нибудь форму запихать в отдельный поток а все остальное пусть себе тужится ?

[Neeter]

Да, можно и так, этот пример на простой progressbar, до остального наверно сам додумаешься)