|
|
|
| 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.
|
| 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;
|