ZLib com Progresso

Delphi

12/03/2008

Bom eu ja uso a zlib.pas para comprimir e descomprimir arquivos no esquema de update do meu sistema a uns 3 anos.

porem entretanto todavia eu quero colocar uma barra de progresso

encontrei esse codigo que aparentemente faz oque eu quero

[url]http://www.koders.com/delphi/fidE588D2D334AC5A8514FE4D33EE952AA40C0D9F70.aspx?s=algorithm[/url]

nao entendi como usar o preenchimento das funcoes pra disparar a descompactacao que é o mais importante pra mim ... que meu cliente veja o progresso ...

Valeu


Mysys

Mysys

Curtidas 0

Respostas

Nerdex

Nerdex

12/03/2008

private
  FileIni, FileOut: TFileStream;
  procedure ZlibProgress(Sender: TObject);

procedure TFrmRegs.ZlibProgress(Sender: TObject);
begin
  ProgBar.Position:= FileOut.Position;
  Application.ProcessMessages;
end;


Att Ricardo Bastos - Porto Alegre / RS


GOSTEI 0
POSTAR