Hacer que la aplicación "respire"
 

Hola, estoy utilizando el componente TidHttp con su método Post y funciona correctamente pero la aplicacion tarda unos segundos en volver a responder. Probe añadiendo en el evento OnWork

Código Delphi [-]
application.ProcessMessages;

Pero no hace efecto. Busqué en google y leí algo del componente TidAntiFreeze pero no me funciona ¿?


Saludos y gracias.

podrias usar hilos. y la accion que realizas, ejecutarla en un hilo.

Ya lo hice pero nada, sigue quedándose bloquedado durante unos segundos y solo pasa al descargar el contenido del html.

Código Delphi [-]
type
  THttpThread = class(TThread)
    private
      Http: TIdHttp;
      FPage: string;
      FIndex: integer;
      FBusqueda: string;
      procedure UpdateSearch;
      procedure OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
      procedure OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);
      procedure OnWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
    public
      constructor Create;
      procedure Execute(const Busqueda: string; index: integer); reintroduce;
  end;

Saludos.

otra seria probar con el indy 10.

si usas indy 9.. con la version 10 tal vez eso ya no pase.

Si tienes algun synchronized, vigila de no haber metido codigo "lento" ahi, ya que pierdes las "propiedades" de los hilos.

Saludos.