Delphi Database, Delphi Components from ComponentAce

TZipForge.OnDiskFull
TZipForge

Top

Occurs when current volume for multi-disk spanned archive is full.

type TZFOnDiskFullEvent = procedure(
Sender: TObject;
VolumeNumber: Integer;
VolumeFileName: String;
var Cancel: Boolean
) of object;
property OnDiskFull: TZFOnDiskFullEvent;

Description

Write an OnDiskFull event handler to ask user to insert disk with sufficient free space for writing a multi-disk spanned archive.
VolumeNumber specifies a number of the volume that should be inserted.
Also you can override default file name for this volume using VolumeFileName. Use Cancel to abort current operation.

Dec 04, 2024