首页 > 代码库 > 使用 IntraWeb (24) - 基本控件之 TIWFileUploader、TIWFile
使用 IntraWeb (24) - 基本控件之 TIWFileUploader、TIWFile
TIWFileUploader 是基于 Ajax 的上传控件, 最初是 Andrew Valums 开发, 从 IntraWeb XIV 纳入并替换 TIWFile.
虽然从组件面板上还能看到 TIWFile, 官方说已不能使用.
现在的 TIWFileUploader 非常方便, 能拖拽上传, 能批量上传, 会自动显示上传进度, 界面也可以很漂亮.
我测试拖拽上传时, 发现有些浏览器不支持.
TIWFileUploader 所在单元及继承链:
IWCompFileUploader.TIWFileUploader < TIWCustomFileUploader < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject
主要成员:
property MaxFileSize: Int64 //文件最大许可, 默认 20971520(20MB); 如果为 0, 则表示没有最大限制property MinFileSize: Int64 //文件最小许可, 默认 0, 表示没有最小限制property Multiple: Boolean //是否支持多个文件同时上传, 默认 Falseproperty AutoHideListTime: Cardinal //上传后等待多少毫秒既隐藏上传列表; 默认 0, 表示不隐藏.property TextStrings: TIWFileUploaderTextStrings //这包含 12 项信息文本, 可以通过它彻底地本地化property Style: TIWFileUploaderStyle //它包含 7 个子选项, 可设置各种状态下的样式, 能弄得很漂亮property AllowedExtensions: string //支持上传的文件类型, 多种类型用逗号分割, 如: rar,zip,pdf,mp3; 默认为空, 表示支持任何文件property AutoSave: Boolean //上传完成后是否自动保存到 AutoSavePath 指示的文件夹property AutoSavePath: string //用于自动保存的文件夹, 如果不存在会创建; 如果出错会保存在用户的缓存文件夹property OverwriteExisting: Boolean //是否覆盖同名文件, 默认 True; False 时遇同名会引发异常property DisableCancel: Boolean //在上传过程中, 是否禁用"取消", 默认 Falseproperty FileList: THttpFileList //?property AcceptFiles: string //?property OnAsyncUploadCompleted: TUploadCompleteEvent //该事件在上传完毕后自动保存前触发; 可以在该事件中更改路径或文件名, 甚至取消保存property OnAsyncUploadSuccess: TIWAsyncEvent //成功完成后property OnAsyncUploadError: TIWAsyncEvent //出错时{下面三个保存方法都应该用在 OnAsyncUploadCompleted 中}function SaveAll(APathname: string; AOverwrite: Boolean) //如果还是使用源文件名, 应该用这个function SaveToFile(ASourceFileName: string; ADestFileName: TFileName; AOverwrite: Boolean) //假如要更改文件名, 用这个function SaveToStream(ASourceFileName: string; AStream: TStream) //procedure NotifyUploadCompleted //
测试 1(全自动上传):
uses ServerController;procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin IWFileUploader1.MaxFileSize := 0; //不限制大文件 IWFileUploader1.Multiple := True; //可以同时上传多个文件 IWFileUploader1.AutoSave := True; //自动保存 IWFileUploader1.AutoSavePath := IWServerController.ContentPath; //这是 wwwroot, 需要修改文件夹属性, 可写才行end;
测试 2(在 OnUploadCompleted 事件中保存):
uses ServerController;procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin IWFileUploader1.MaxFileSize := 0; IWFileUploader1.Multiple := True; IWFileUploader1.AutoSavePath := IWServerController.ContentPath;end;//OnUploadCompleted 的参数解释://DestPath 同 AutoSavePath//FileName 同源文件名//SaveFile 它会是 True,//Overwrite 同 OverwriteExistingprocedure TIWForm1.IWFileUploader1AsyncUploadCompleted(Sender: TObject; var DestPath, FileName: string; var SaveFile, Overwrite: Boolean);begin IWFileUploader1.SaveAll(DestPath, Overwrite); SaveFile := False; //如果前面设置了自动保存, 就取消它end;
转帖几张官方的图片吧:
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。