TIWFileUploader 是基于 Ajax 的上传控件, 最初是 Andrew Valums 开发, 从 IntraWeb XIV 纳入并替换 TIWFile.

虽然从组件面板上还能看到 TIWFile, 官方说已不能使用.

现在的 TIWFileUploader 非常方便, 能拖拽上传, 能批量上传, 会自动显示上传进度, 界面也可以很漂亮.

我测试拖拽上传时, 发现有些浏览器不支持.


TIWFileUploader 所在单元及继承链:
IWCompFileUploader.TIWFileUploader

主要成员:


property MaxFileSize: Int64      //文件最大许可, 默认 20971520(20MB); 如果为 0, 则表示没有最大限制
property MinFileSize: Int64 //文件最小许可, 默认 0, 表示没有最小限制
property Multiple: Boolean //是否支持多个文件同时上传, 默认 False
property 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 //在上传过程中, 是否禁用"取消", 默认 False
property 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 同 OverwriteExisting
procedure TIWForm1.IWFileUploader1AsyncUploadCompleted(Sender: TObject; var DestPath, FileName: string; var SaveFile, Overwrite: Boolean);
begin
IWFileUploader1.SaveAll(DestPath, Overwrite);
SaveFile := False; //如果前面设置了自动保存, 就取消它
end;

转帖几张官方的图片吧:












使用 IntraWeb (24) - 基本控件之 TIWFileUploader、TIWFile的更多相关文章

  1. 使用 IntraWeb (29) - 基本控件之 TIWAutherList、TIWAutherINI、TIWAutherEvent

    TIWAutherList //通过一组户名与密码验证登陆 TIWAutherINI //通过记录户名与密码信息的 #Auth.ini 文件验证登陆 TIWAutherEvent //通过其 OnCh ...

  2. 使用 IntraWeb (28) - 基本控件之 TIWTemplateProcessorHTML、TIWLayoutMgrHTML、TIWLayoutMgrForm

    TIWTemplateProcessorHTML //使用外部的 html 文件做模板 TIWLayoutMgrHTML //直接输入 Html 文本做模板 TIWLayoutMgrForm //这应 ...

  3. 使用 IntraWeb (26) - 基本控件之 TIWMenu

    TIWMenu 的任务是让原来的 TMainMenu 呈现在网页上, 通过其 AttachedMenu 属性关联一个 TMainMenu 是必需的. TIWMenu 所在单元及继承链: IWCompM ...

  4. 使用 IntraWeb (25) - 基本控件之 TIWRegion

    这应该是 IW 中最重要的容器了, 和它同父的还有 TIWTabControl TIWRegion 所在单元及继承链: IWRegion.TIWRegion 主要成员: property Align: ...

  5. 使用 IntraWeb (23) - 基本控件之 TIWTimer、TIWProgressBar、TIWProgressIndicator、TIWTimeEdit

    TIWTimer //和 TTimer 没多大区别, 它的默认事件现在是异步的(OnAsyncTimer), 在网络上使用 OnTimer 肯定是非常糟糕的 TIWProgressBar //进度条 ...

  6. 使用 IntraWeb (22) - 基本控件之 TIWCalendar

    TIWCalendar: 日历控件, 继承于 TIWCustomGrid, 所以它和 TIWGrid 共同属性特多. 它的 Cell 是 TIWCalendarCell 对象, 直接从 TIWGrid ...

  7. 使用 IntraWeb (20) - 基本控件之 TIWGrid

    TIWGrid 最终通过 Html Table 呈现; 其每个 Cell 都是一个 TIWGridCell 对象, Cell 对象的 Control 属性非常好, 可以非常方便地嵌入其他控件. TIW ...

  8. 使用 IntraWeb (19) - 基本控件之 TIWTreeView

    这是个饱受非议的控件; 我通过尝试, 理解了非议, 也能理解作者. 总之向作者的思路靠拢吧, 还是不错的. TIWTreeView 所在单元及继承链: IWCompTreeview.TIWTreeVi ...

  9. 使用 IntraWeb (16) - 基本控件之 TIWList、TIWListbox、TIWComboBox、TIWOrderedListbox

    TIWList //列表; 它对应 Html 中的 OL.LI(某些选项下会用表格模拟); TIWListbox 和 TIWComboBox 则对应 Html 在的 Option TIWListbox ...

随机推荐

  1. angularJs入门篇-hello world 开头

    AngularJS 采用了完全不同的解决方案,它创建实时视图模板代替视图,而不是将数据合并进模板之后更新DOM. 任何一个独立视图组件中的值都是 动态替换的.这个功能可以说是AngularJS中最重要 ...

  2. Javascript中与Scroll有关的方法

    这块确实太乱了,被兼容搞的简直快要晕死,默默地总结下... 与scroll相关的方法 4个window对象下:scrollX.scrollY.scrollTo.scroll(作用和scrollTo一样 ...

  3. 20145234黄斐《Java程序设计》第八周

    教材学习内容总结 第十四章-NIO与NIO2 NIO与IO的区别 NIO Channel继承框架 想要取得Channel的操作对象,可以使用Channels类,它定义了静态方法newChannel() ...

  4. (P2022 有趣的数)||(zoj Little Sub and Mr.Potato's Math Problem)(思维)

    题目链接:https://www.luogu.org/problemnew/show/P2022 题目大意:中文题目 具体思路: 第一步:我们可以先计算出当前的数前面按照字典序的话,前面有多少数(包括 ...

  5. 【算法】Huffman编码(数据结构+算法)

    1.描述 Huffman编码,将字符串利用C++编码输出该字符串的Huffman编码. Huffman树是一种特殊结构的二叉树,由Huffman树设计的二进制前缀编码,也称为Huffman编码在通信领 ...

  6. js自定制周期函数

    function mySetInterval(fn, milliSec,count){ function interval(){ if(typeof count==='undefined'||coun ...

  7. ispoweroftwo 判断2的次幂【转】

    转自:https://www.cnblogs.com/troublelost/p/5236391.html 首先结果是: public bool IsPowerOfTwo(int n) { if(n& ...

  8. sort命令的k选项大讨论【转】

    本原创文章属于<Linux大棚>博客,博客地址为http://roclinux.cn.文章作者为rocrocket. 为了防止某些网站的恶性转载,特在每篇文章前加入此信息,还望读者体谅. ...

  9. 如何将java项目转化为web项目

    1.修改工程文件 找到项目工作空间目录,打开.project文件,找到:<natures> </natures>代码段,在代码段中加入如下内容并保存:<nature> ...

  10. elasticsearch安装marvel插件

    Marvel插件要在Elasticsearch和Kibana中同时安装.Step 1: Install Marvel into Elasticsearch: bin/plugin install li ...