摘要：
FileUpload文件上载。了解如何使用TUniFileUpload控件。TUniFileUpload:Filter:文件类型筛选的主要属性。此属性在web模式下无效。当前版本的UniGUI没有实现此功能。这是一个有用的函数。我希望作者能尽快实现这一功能；MaxAllowedSize：设置文件上传的最大大小；消息：标题和消息文本可以翻译成中文。此属性不完整，尚未提取单个消息文本；TUniFileUpload控件最大的问题是它不支持文件批量上载！
FileUpload
文件上传，学习TUniFileUpload控件的使用
TUniFileUpload主要属性：
Filter: 文件类型过滤，这个属性在web模式下是无效的，UniGUI目前版本还没有实现此功能，比较有用的功能，希望作者尽快实现此功能；
MaxAllowedSize: 设置文件最大上传尺寸；
message：标题以及消息文本，可翻译成中文，这个属性也做的不完整，个别消息文本没有提取出来；
TUniFileUpload控件目前最大的问题是不支持文件批量上传!
事件：OnCompleted(Sender: TObject; AStream: TFileStream)
负责文件上传完成后的处理，是把文件流保存到目标路径；
procedureTMainForm.UniFileUpload1Completed(Sender: TObject; AStream: TFileStream); varDestName : string; DestFolder : string; begin if IsImage then beginUniImage1.Picture.LoadFromFile(AStream.FileName); UniLabel3.Caption:='File Name: '+UniFileUpload1.FileName; end else beginDestFolder:=UniServerModule.StartPath+'UploadFolder'; DestName:=DestFolder+ExtractFileName(UniFileUpload1.FileName); UniLabel4.Caption:='File Name: '+UniFileUpload1.FileName; CopyFile(PChar(AStream.FileName), PChar(DestName), False); ShowMessage('File: '+UniFileUpload1.FileName+'Uploaded to folder: '+DestFolder); end; end;