Ajuda com ZipForge

Question

E ai galera,Sou novo aqui  no f�rum mais j� tenho um problema�o para vcs..Seguinte estou realizando uma rotina de bkp em minha aplica��o e estou usando o ZipForge. E estou com o problema na seguinte l...

Massuda · Answer

[quote:2d894545ba=�Markullino�]zfBackup.OnDiskFull(Sender, SpanningOptions.GetVolumeSize(VolumeNumberInfo), ��, True);[/quote:2d894545ba]OnDiskFull � um evento, o que significa que voc� deve atribuir a ele uma procedure com seu c�digo que ser� executada pelo componente quando o evento �disco cheio� ocorrer....

Markullino · Answer

Isso j� foi feito... o evento OndiskFull... tem uma procedure em seu escopo que realiza a verifica��o se o volume esta ou n�o cheio...

O que estou com problemas � para passar os par�metros para a chamado do evento como falei em meu post anterior... pois n�o estou achando a forma certa de executar tal procedimento..

Valeu..

:D

Massuda · Answer

N�o � voc� quem chama o evento. A procedure que voc� atribuiu ao evento ser� executada pelo componente quando for necess�ria.

TSeuForm = class...
  procedure zfBackupDiskFull(Sender: TObject; ...resto dos parametros...);
...

procedure TSeuForm.zfBackupDiskFull(Sender: TObject; ...
begin
  ... seu tratamento aqui ...
end;

Ou voc� atribui TSeuForm.zfBackupDiskFull ao OnDiskFull atrav�s do Object Inspector ou voc� faz via c�digo, geralmente no OnCreate do form...

TSeuForm.FormCreate(...
begin
  ...
  zfBackup.OnDiskFull = zfBackupDiskFull;
  ...

Se a sua id�ia � gerar o evento apenas para pedir o primeiro disco, faz mais sentido criar uma procedure (por exemplo, PedirDisco) e cham�-la na hora de pedir o primeiro disco e na hora do evento OnDiskFull.

F�rum Ajuda com ZipForge #340483