Fórum Progresso na TStream #348718
08/11/2007
0
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?
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
Curtir tópico
+ 0
Responder
Posts
09/11/2007
Nerdex
Sim ... fiz um artigo sobre isso a muito tempo, mas para o caso da progressão faça o seguinte:
Att
Ricardo Bastos
private
FileIni, FileOut: TFileStream;
procedure ZlibProgress(Sender: TObject);procedure TForm1.ZlibProgress(Sender: TObject); begin ProgBar.Position:= FileOut.Position; //Application.ProcessMessages; end;
Att
Ricardo Bastos
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)