Progressbar

[Guest program-amador]

Ola, alguém sabe como execultar uma PROGRESSBAR num FORM enquanto um arquivo é copiado.

Usei este comando para Copiar:

CopyFile('c:\projeto1.exe','c:\pasta1\projeto1.exe',True)

Na verdade o meu programada trabalha em rede, então criei um Atualizador que no caso atualiza o programa nos computadores ao iniciar o window.

Eu já havia feito em srquivo BAT, só que eu fui comparar os dois, o que foi feito no Delphi foi quase duas vezes mais rapido do que o arquivo BAT.

O ProgressBar é só pra incremetar...

[s3c]

porque você não copia no padrão Windows?

Ele já coloca a barra de progresso.

[Guest Ricardo Salles]

- Coloque uma StatusBar no form.

- Adicione dois paineis na StatusBar (propriedade Panels).

- Ajuste as propriedades do primeiro painel conforme abaixo:

Style = psOwnerDraw

Width = 150

- Coloque uma ProgressBar no form e mude sua propriedade

Visible para false.

- No evento OnDrawPanel da StatusBar digite o código abaixo:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

{ Se for o primeiro painel... }

if Panel.Index = 0 then begin

{ Ajusta a tamanho da ProgressBar de acordo com

o tamanho do painel }

ProgressBar1.Width := Rect.Right - Rect.Left +1;

ProgressBar1.Height := Rect.Bottom - Rect.Top +1;

{ Pinta a ProgressBar no DC (device-context) da StatusBar }

ProgressBar1.PaintTo(StatusBar.Canvas.Handle, Rect.Left, Rect.Top);

end;

end;

- Coloque um Button no form

- Digite no evento OnClick do Button o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);

var

I: integer;

begin

for I := ProgressBar1.Min to ProgressBar1.Max do begin

{ Atualiza a posição da ProgressBar }

ProgressBar1.Position := I;

{ Repinta a StatusBar para forçar a atualização visual }

StatusBar1.Repaint;

{ Aguarda 50 milisegundos }

Sleep(50);

end;

{ Aguarde 500 milisegundos }

Sleep(500);

{ Reseta (zera) a ProgressBar }

ProgressBar1.Position := ProgressBar1.Min;

{ Repinta a StatusBar para forçar a atualização visual }

StatusBar1.Repaint;

end;

- Execute e clique no botão para ver o resultado.

[Arlon]

o amigo s3c disse:

porque você não copia no padrão Windows?
Ele já coloca a barra de progresso.

agora eu pergunto: como é que se copia com o padrão windows que eu não sei, aliás eu não sei comando de cópia em padrão nenhum!!

[s3c]

Veja a Api SHFileOperation e o parâmetro TSHFileOpStruct

[Arlon]

Veja a Api SHFileOperation e o parâmetro TSHFileOpStruct 

Cara desculpa, mas eu não entendo nada dessas paradas aí ainda. Dava pra explicar melhor?? O que é Api?

[s3c]

Bom, API significa Application Programming Interface.

É uma maneira de você interagir diretamente com o sistema operacional.

A Api p/ copiar arquivos e pastas é muito simples.

Veja o código:

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);

var FO:TSHFileOpStruct;

begin

FillChar(FO, SizeOf(FO), 0);

FO.wFunc := FO_COPY;

FO.pFrom := 'Caminho origem';

FO.pTo := 'Caminho destino';

FO.fFlags := FOF_ALLOWUNDO;

SHFileOperation(FO);

end;

[Arlon]

Dexa ver se eu entendi. É uma espécie de código q o próprio windows ou qualquer outro SO usa (tipo, já vem pronto dentro dele) e você também pode usá-los através do Delphi e outras linguagens.

[s3c]

Isso mesmo Arlon, por ex: a Api SHFileOperation é uma função da Shell32.dll do Windows.