GARANTIR DESCONTO

Fórum Problemas ao Compactar com o Winzip #274137

26/03/2005

0

Delphi

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

Responder

Posts

27/03/2005

Edilcimar

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


Responder

Gostei + 0

27/03/2005

Dbergkamps

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.


Responder

Gostei + 0

27/03/2005

Gandalf.nho

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.


Responder

Gostei + 0

27/03/2005

Dbergkamps

obrigado vou tentar


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar