Progresso na TStream

Delphi

08/11/2007

Bom Dia,
Estou criando uma aplicação compactadora de arquivos usando TCompressionStream e mostrar progresso ao usuário.
O problema é que eu consigo pegar Taxa de Compressão, Posição Atual da Memória mas não consigo pegar o Size (Tamanho) da Stream para eu fazer a porcentagem, dá erro de ´Invalid Stream Operation´.
Alguém tem uma idéia de como pegar isso?


Marcosrocha

Marcosrocha

Curtidas 0

Respostas

Nerdex

Nerdex

08/11/2007

Sim ... fiz um artigo sobre isso a muito tempo, mas para o caso da progressão faça o seguinte:

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


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


Att

Ricardo Bastos


GOSTEI 0
POSTAR