Ver Mensaje Individual
  #3  
Antiguo 23-04-2007
Avatar de BlackDaemon
BlackDaemon BlackDaemon is offline
Miembro
 
Registrado: dic 2006
Ubicación: Bolivia - Santa Cruz
Posts: 206
Reputación: 18
BlackDaemon Va por buen camino
Hola Dec la verdad es que me ha gustado mucho tu explicación, haz sido muy detallista. así da dusto aprender lo he entendido todo, pero no lo he podido poner en práctica con mi aplicación, no se por que pero el ProgressBar no se mueve, la aplicación se sigue congelando miemtras está enviando/recibiendo los datos, y lo he echo igual que tu, no se.. la única idiferencia es que yo hago POST nada mas, lleno un formulario, y nada mas.. pero como lo he dicho, el progressBar no se mueve, aquí dejo mi código que tengo en los 3 eventos del componente idHTTP

Código Delphi [-]
procedure TForm1.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  PBProgreso.Max := AWorkCountMax;
  gProgreso.MaxValue := AWorkCountMax;
end;

procedure TForm1.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Application.ProcessMessages();
  PBProgreso.Position := AWorkCount;
  gProgreso.Progress := AWorkCount;
end;

procedure TForm1.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  PBProgreso.Position := 0;
  gProgreso.Progress := 0;
end;

también he pueso un gauge, por que pensé que el problema no era el código, pero tampoco funcionó, no se que pueda ser, tampoco no entiendo por que devería afectar lo que haga con el componente idHTTP, si según lo que entiendo la barra avanzará de acuerdo a lo que el idHTTP se lo indique, osea que no tiene que afectar si uso un código o no, uso el mismo componente y tienen esos mismos eventos como dices, pero pues no se que pasará
Si es necesário pongo mi código que tengo, pero repito NO creo que sea problema del código, por que igual realiza bién el trabajo.


saludos y muchas gracias de nuevo Dec
Responder Con Cita