João Paulo Taraciuk

Boa tarde a todos Estou precisando de ajuda para realizar o seguinte procedimento No meu projeto tenho que fazer um backup do banco de dados e enviar para um FTP, bom, compactar e enviar não seria problema, o problema é que como o programa vai estar em execução no momento do backup, quando o winzip vai compactar o banco de dados, dá erro, pois o banco está sendo utilizado. Tem como eu parar o banco ou parar o Mysql para poder realizar o backup tranquilamente ? eu utilizo o Zeos para conectar-se com o Mysql, Delphi 7, Mysql 3.23 Já tentei fazer ZConnection.disconnect mas não deu certo. Utilizo esta procedure para compactar o banco procedure Tform1.compactar; begin If winexec(PChar('c:\arquivos de programas\winzip\winzip32.exe -a -s'+edt_passftp.Text+' C:\arquivo.zip' + ' '+ 'C:\Arquivo'), sw_show) < 32 then begin MessageDlg('Não é possível criar o arquivo compactado.', mtError, [mbOk], 0); end; Exit; end; Se alguém puder me ajudar eu agradeço!!!! Valeu!!!

Obrigado Jhonas, deu exatamente como eu queria, obrigado!!!

Olá, gostaria de saber como devo fazer para compactar um arquivo e colocar senha nele, estou utilizando a seguinte procedure para compactá-lo: procedure Tform1.compactar; //Procedure criada para compactar o banco// begin If winexec(PChar('c:\arquivos de programas\winzip\winzip32.exe -a -rsenha C:\teste.zip' + ' '+ 'C:\teste'), sw_show) < 32 then begin MessageDlg('Não é possível criar o arquivo compactado.', mtError, [mbOk], 0); end; Exit; end; e para descompactá-lo : sDir := 'C:\'; sNomeZip := 'C:\teste.zip'; sNomeArq := 'C:\pastatemporaria\teste; WinExec( PChar('"C:\Arquivos de Programas\WinZip\winzip32" -e -rsenha ' + sNomeZip + ' ' + sNomeArq), SW_SHOW ); end; então procedo desta maneira, porque estou fazendo um backup para ftp, sendo que o usuário faz o backup, e quando necessário baixa ele no local escolhido, da tudo certo, somente quando tive que por senha no arquivo é que não está dando certo, ele até envia pro ftp, mas na hora de baixar, não dá certo. Se alguém puder me ajudar eu agradeço; end. Bom pessoal, já consegui colocar senha na procedure, agora estou querendo saber se tem como eu colocar a senha através de um TEdit o form para o usuário colocar a senha que ele preferir, pois da maneira que eu fiz, a senha vai ser sempre a que eu adicionei, ah e onde eu tinha colocado -r na verdade é -s, hehe procedure Tform1.compactar; begin If winexec(PChar('c:\arquivos de programas\winzip\winzip32.exe -a -ssenha C:\teste.zip' + ' '+ 'C:\teste'), sw_show) < 32 then begin MessageDlg('Não é possível criar o arquivo compactado.', mtError, [mbOk], 0); end; Exit; end;