![]() |
![]() ![]() ![]() |
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;
|