OnExtracted event
|
procedure OnExtracted(Sender: TObject; FileName: String; FileSize: Integer; Successfully: Boolean);
|
The OnExtracted event occurs once StoredFile has extracted.
|
|
Write an OnExtracted event handler to determinate whether this file has successfully extracted from FileStorage. If file has been sucessfully extracted (without write errors) then Successfully parameter will be True.
|
The Successfully parameter will be False if file already exists and currently blocked by another application (no write permission). For example, this will happend if you trying to extract executable file which currently running.
|
FileName | file name of the extracted file.
|
FileSize | size (in bytes) of the extracted file.
|
Successfully | determines whether the file (specified by FileName parameter) has successfully extracted.
|
procedure TForm1.FileStorageExtracted(Sender: TObject;
|
FileName: String; FileSize: Integer; Successfully: Boolean);
|
begin
|
if not Successfully then
|
ShowMessage('Error !!');
|
end;
|