progressbar avance segun demore proceso

[jonydread]

amigos me veo en la obligacion de solicitar una luz
el problema es el sgte tengo la progressbar pero solo he logrado que avance de a uno ProgressBar1.StepIt; pero necesito que avance gradualmente como podria hacerlo?
esto es lo que tengo

Código Delphi [-]
procedure TForm1.btintClick(Sender: TObject);
var
  destino,dir : String;
  archivo : Tstrings;
  i : integer;
  T0: TDateTime;
begin
  T0 := Now;
  progressbar1.Max :=2;
  ProgressBar1.Step := 1;
  ProgressBar1.Position := 0;
  destino := ruta1.Text+'\App';
  dir := ruta1.Text;
  for i:= 0 to Opendialog1.Files.Count -1 do
    XCopy(Handle, openDialog1.Files[i], destino);
  ProgressBar1.StepIt;
  if not DirectoryExists(dir) or not fileexists(dir+'archiv.ext') then 
  begin
    ForceDirectories(dir);
    archivo := TStringList.Create;
    archivo.Add('CLS');
    archivo.Add('@echo off');
    archivo.Add('Exit');
    archivo.SaveToFile(ruta);
    if fileexists(ruta) then 
    begin
      EditArchivo(ruta);
      ProgressBar1.StepIt;
      ListView2.Clear;
      ListView1.Clear;
    end else
      showmessage('error al crear archivo');
  end else
  begin
    EditArchivo(ruta);
    ProgressBar1.StepIt;
    ListView2.Clear;
    ListView1.Clear;
    ShowMessage(TimeToStr(Now - T0));
  end;
end;

gracias saludos!

[jonydread]

encontre lo que necesitaba
http://www.clubdelphi.com/foros/showthread.php?t=40339

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: Integer;
begin
  ProgressBar1.Step := 1;
  For i := 1 to 100 do begin
     ProgressBar1.StepIt;
     sleep(300); //Espera 300 milisegundos, solo para ver el movimiento.
  end;
end;

[Casimiro Notevi]

Empezado por jonydread

encontre lo que necesitaba

¿Pero tú qué quieres hacer?, eso no tiene ninguna lógica ni utilidad real.

[jonydread]

necesito una progressbar a la medida que vaya realizando las acciones avance,algo asi como que calcule el tiempo restante y avance, y la unica forma que me ha resultado mas o menos lo que quiero lograr es

Código Delphi [-]
procedure TForm1.btintClick(Sender: TObject);
var
destino,dir : String;
archivo : Tstrings;
i,j : integer;
T0: TDateTime;
begin
T0 := Now;
ProgressBar1.Step := 1;
destino := ruta1.Text+'\App';
dir := ruta1.Text+'\sources';
for i:= 0 to Opendialog1.Files.Count -1 do
XCopy(Handle, openDialog1.Files[i], destino);
if not DirectoryExists(dir) or not fileexists(dir+'\arch.ext')
 then begin
ForceDirectories(dir);
archivo := TStringList.Create;
archivo.Add('CLS');
archivo.Add('@echo off');
archivo.Add('Exit');
archivo.SaveToFile(ruta1.Text);
if fileexists(ruta1.Text)
then begin
EditArchivo(ruta1.Text);
ListView2.Clear;
ListView1.Clear;
For i := 1 to 100 do begin
     ProgressBar1.StepIt;
     sleep(10);
  end;
ShowMessage(TimeToStr(Now - T0));
end else
showmessage('error al crear archivo');
end else
begin
EditArchivo(ruta1.Text);
ListView2.Clear;
ListView1.Clear;
For i := 1 to 100 do begin
     ProgressBar1.StepIt;
     sleep(10);
  end;
ShowMessage(TimeToStr(Now - T0));
end;
end;

lo malo es que al terminar de hacer todo espera y avanza la barra, y del modo que lo tenia antes avanza por parte pero no gradualmente

[Casimiro Notevi]

Es que no veo el proceso que quieres controlar con la barra de progreso.

[[escafandra]]

Ciertamente no está claro lo que quiere.

Usa mi finción XCopy diseñada para copiar de golpe una lista de archivos, pero la modifica para ir de archivo a archivo... perdió el sentido de la función.

Por otro lado, si quiwre controlar el progreso de la copia tiene varias opciones. Un ejemplo lo puede encontrar siguiendo este hilo.


Saludos.

[Casimiro Notevi]

Hola, al principio pones:

Código Delphi [-]
progressbar1.Max :=2;

Por lo tanto, de ahí no va a pasar.