Problemas ao Compactar com o Winzip

Delphi

26/03/2005

Boa noite. To com um probleminha:
E que atraves do seguinte código eu compacto um arquivo com o Winzip:
var
 Caminho, Diretorio: String;
begin
Diretorio:=DirectoryListBox1.Directory +´\´ ;
Caminho:=DirectoryListBox2.Directory + ´\Backup_de_Banco´;
If DirectoryExists(Caminho) then
Begin
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "´+Caminho+´" ´
+ ´"´+Diretorio+ ´*.*´ + ´"´),1);
end;

Agora vem o erro:
1 - Mesmo eu desconectando o Ibdatabase e limpando a propriedade DataBaseName ele continua dizendo que o arquivo do Banco de Dados está sendo usado;
Utilizo Firebird .
Boa Noite :wink: :wink:


Dbergkamps

Dbergkamps

Curtidas 0

Respostas

Edilcimar

Edilcimar

26/03/2005

WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -a ´´+Localondeseráfeitaacópia\NomedoArquivodecopia+´´ ´+´´´+ localondeestaoosarquivos\arquivos + ´´´),1)


GOSTEI 0
Dbergkamps

Dbergkamps

26/03/2005

valeu edilcimar, este é uma adaptação do seu exemplo.
Mas o que eu quero é como ´liberar´ o arquivo de Banco de dados do Ibdatabase, já desconectei, e nada.
Utilizo IBX e Firebird.


GOSTEI 0
Gandalf.nho

Gandalf.nho

26/03/2005

Uma sugestão mais adequada ao caso: use os componentes de backup da paleta Interbase Admin (IBBackupService e IBRestoreService) para fazer o backup do seu banco (aí pode fazer o backup com o banco em uso). Só aí você compacta o arquivo gerado.


GOSTEI 0
Dbergkamps

Dbergkamps

26/03/2005

obrigado vou tentar


GOSTEI 0
POSTAR