progressbar avance segun demore proceso

[Casimiro Noteví]

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 Noteví]

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.

[jonydread]

Empezado por 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.

si he visto como realizar progreso de copia pero tambien hago aparte de eso una modificacion y creacion de un archivo por eso queria saber cmo se puede realizar con ambos

Código Delphi [-]
EditArchivo(ruta1.Text);

Código Delphi [-]
procedure TForm1.EditArchivo(rutArchivo: string);
var
   v:integer;
 begin
 try
memo1.Lines.LoadFromFile(ruta1.text+'\sources\$oem$\$$\Setup\Scripts\SetupComplete.cmd');
memo1.Lines.Delete(memo1.Lines.Count -1);
memo1.Lines.Add('Echo..........Install  program');
for v := 0 to ListView2.Items.Count - 1 do
Memo1.Lines.Add(ListView2.Items[v].Caption+ListView2.Items[v].SubItems[0]+' '+ListView2.Items[v].SubItems[1]);
memo1.Lines.Add('Echo..........Completado');
memo1.Lines.Add('Exit');
   finally
   memo1.lines.SaveToFile(rutArchivo);
  end
 end;

adjunto unit
saludos y gracias!

[[escafandra]]

Escribir ese fichero desde un memo no va a cobsumir tiempo preciable en una barra de progreso. Lo lento va a ser la copia de archivos grandes. Si usas mi ejemplo con CopyFileEx, resuelves tu problema.

Para saber el valor del 100% suma los tamaños de los archivos a copiar. Modifica el ejemplo para usar CoptFileEx.
Si realmente entiendes como funciona, no vas a tener problemas en adaptarlo.


Saludos.

[jonydread]

ok gracias una vez mas