| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Luciano_Lopes
Colaborador
Registrado: Quarta-Feira, 23 de Abril de 2008
Mensagens: 1080
|
 Enviada: Sex Dez 19, 2008 1:12 am Assunto: Progresso de cópia no ProgessBar |
 |
|
| Ola pessoal,como posso fazer para que durante uma copia de um arquivo,o progressbar mostre o processo da cópia?Ou então aparecer aquela janelinha de "origem" e "destino" da cópia que tem no Windows?Desde ja obrigado. |
|
| Voltar ao Topo |
|
 |
Luciano_Lopes
Colaborador
Registrado: Quarta-Feira, 23 de Abril de 2008
Mensagens: 1080
|
| Enviada: Sex Dez 19, 2008 7:09 pm Assunto: Re: Progresso de cópia no ProgessBar |
|
|
| UP |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
Luciano_Lopes
Colaborador
Registrado: Quarta-Feira, 23 de Abril de 2008
Mensagens: 1080
|
| Enviada: Sáb Dez 20, 2008 4:11 am Assunto: Re: Progresso de cópia no ProgessBar |
|
|
| Pode ser tambem,mas oque eu queria mesmo era o progressbar |
|
| Voltar ao Topo |
|
|
Luciano_Lopes
Colaborador
Registrado: Quarta-Feira, 23 de Abril de 2008
Mensagens: 1080
|
| Enviada: Sáb Dez 20, 2008 12:10 pm Assunto: Re: Progresso de cópia no ProgessBar |
|
|
| Alguem? |
|
| Voltar ao Topo |
|
|
Luciano_Lopes
Colaborador
Registrado: Quarta-Feira, 23 de Abril de 2008
Mensagens: 1080
|
| Enviada: Sáb Dez 20, 2008 7:50 pm Assunto: Re: Progresso de cópia no ProgessBar |
|
|
| UP |
|
| Voltar ao Topo |
|
|
MARCZEWSKI
Membro Junior
Registrado: Terça-Feira, 9 de Dezembro de 2008
Mensagens: 337
|
| Enviada: Sáb Dez 20, 2008 8:07 pm Assunto: |
|
|
Um jeito para que apareça a tal janela do windows, seria vc "simulando" um Ctrl+c, Ctrl+v.
espero que vc tenha entendido o que quiz dizer.
_________________
Estarei um pouco ausente do forum por um tempo!!!
Caso seja importante, mande MP(duvidas somente no forum)
grato, |
|
| Voltar ao Topo |
|
|
Luciano_Lopes
Colaborador
Registrado: Quarta-Feira, 23 de Abril de 2008
Mensagens: 1080
|
| Enviada: Sáb Dez 20, 2008 8:21 pm Assunto: |
|
|
| Mas eu quero que um progressbar mostre o progresso da cópia, entende? |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Sáb Dez 20, 2008 11:13 pm Assunto: |
|
|
| Luciano_Lopes escreveu: | | Mas eu quero que um progressbar mostre o progresso da cópia, entende? |
Vou mostrar um exemplo aqui de uso que eu fiz para um transporte de uma base de dados para outra usando o progressbar
| Código: |
var
i : integer;
begin
//--agora começa a fazer uma varredura atualizando a tabela destino cfe
//--os dados da tabela origem
dm.origem.First;
progressbar1.max := dm.origem.RecordCount;
progressbar1.position := 0; //deixa o progressbax na posição zero
dm.origem.disablecontrols;
while (not dm.origem.Eof) do
begin
{Gravando da tabela origem para tabela destino}
if Destino.Locate('dtlancamento; dscomplum; cdreduzida', VarArrayof([dm.origemmespgto.Value, dm.origemhistorico.Value, dm.origemconta.Value]), []) then
begin
destino.Next; //se tiver gravado na tabela destino passa pra frente
end else
begin
destino.append; //se não grava na tabela destino
{passa para tabela destino dos dados da tabela origem}
destinodtLancamento.value:=dm.origemmespgto.value;
destinocdSindicato.Value:=46;
destinovlpagamento.value:=dm.origempagamento.value;
destinovlrecebimento.value:=dm.origemrecebimento.value;
destinonranomes.value:=strtoint(convert(dm.origemreferentemesano.value));//converte mm/aaaa para aaaamm
destinocdreduzida.value:=strtoint(dm.origemconta.value);
//dm.destinonrlancamento.value:=Prox;
destinocdHistorico.value:=dm.origemcdhistorico.value;
destinodsComplUm.Value:=dm.origemhistorico.value;
destino.post; //gravando na tabela destino
i := i + 1;
progressbar1.position := i; //conta + 1 registro na passagem
end;
dm.origem.Next;
Application.ProcessMessages;
end;
dm.origem.EnableControls;
showmessage('Processo Terminado');
progressbar1.position := 0; //retorna a posição zero novamente |
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
