Hacer que la aplicación "respire"

[Khronos]

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.

[JXJ]

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

[Khronos]

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.

[JXJ]

otra seria probar con el indy 10.

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

[[xEsk]]

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

Saludos.