Dúvida com ZipMAster

Delphi

19/03/2012

Uso o ZipMaster para fazer backup do banco.
Funciona tudo redondinho em todos os clientes, acontece que um dos Arquivos.GDB que preciso fazer backup ficou grande demais em um dos meus clientes, e este arquivo não está sendo salvo =/

Vou mandar a procedure inteira:


Procedure TManCopias.Compacta;
var
..AuxTot : integer;
..AuxNome: String;
begin
..ZipFName.Caption := AnsiString( C:\RESERVA\+AuxNome+.ZIP );
..SetZipFName( C:\RESERVA\+AuxNome+.ZIP, True );
..with ZipMaster1 do
....begin
......FSpecArgs.Clear;
......SelectedList.Clear;
......SelectedList.Items.Add( Origem.text + \CECOTEIN\+AuxNome+\DADOS\*.* );
......FSpecArgs.Assign( SelectedList.Items ); { specify filenames }
......try
........Add;
......except
........ShowMessage( Erro em adicionar; Exceção fatal na DLL );
......end;
......AuxTot:=AuxTot + SuccessCnt;
....end;
..Gauge1.Progress:=Gauge1.Progress+1;
..screen.cursor := crhourglass;
end;


Agradeço desde já (y)
Arthur Nogueira

Arthur Nogueira

Curtidas 0
POSTAR