uniGUI之上传文件UniFileUploadButton

TUniFileUploadButton主要属性:

Filter: 文件类型过滤,有图片image/* audio/* video/*三种过滤

MaxAllowedSize: 设置文件最大上传尺寸;

Message **:**标题以及消息文本,可翻译成中文

TUniFileUploadButton控件 支持多文件批量上传!

复制代码
procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;  AStream: TFileStream);
var
  i:integer;
begin
  UniFileUploadButton1.MultipleFiles:=True;//多选 模式  
  UniFileUploadButton1.MaxFiles:=4;         //最大文件数
         for I := 0 to UniFileUploadButton1.MaxFiles-1 do  begin
          caption:= UniFileUploadButton1.Files[i].FileName ;
         end;
end;

如果文件数超过MaxFiles


事件:OnCompleted(Sender: TObject; AStream: TFileStream)

复制代码
procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;  AStream: TFileStream);
var
  DestName : string;
  DestFolder : string;
begin
  //将 文件 加载到  UniImage1里
    UniImage1.Picture.LoadFromFile(AStream.FileName);
    Caption:='File Name: '+UniFileUploadButton1.FileName;

//将 文件 保存到UploadFolder文件夹,先要创建这个UploadFolder文件夹
    DestFolder:=UniServerModule.StartPath+'UploadFolder\';   //要在与exe同下新建一个UploadFolder文件夹
    DestName:=DestFolder+ExtractFileName(UniFileUploadButton1.FileName);
    CopyFile(PChar(AStream.FileName), PChar(DestName), False);
    ShowMessage('File: '+UniFileUploadButton1.FileName+' Uploaded to folder: '+DestFolder);

end;
相关推荐
全栈师16 分钟前
C#中分组循环的做法
开发语言·c#
FAREWELL0007519 分钟前
C#进阶学习(十六)C#中的迭代器
开发语言·学习·c#·迭代器模式·迭代器
吗喽对你问好32 分钟前
Java位运算符大全
java·开发语言·位运算
chenglin01641 分钟前
.NET中,const和readonly区别
开发语言·.net
DXM05211 小时前
牟乃夏《ArcGIS Engine地理信息系统开发教程》学习笔记3-地图基本操作与实战案例
开发语言·笔记·学习·arcgis·c#·ae·arcgis engine
Vaclee1 小时前
JavaScript-基础语法
开发语言·javascript·ecmascript
CodeWithMe2 小时前
【C++】线程池
开发语言·c++
专注API从业者2 小时前
《Go 语言高并发爬虫开发:淘宝商品 API 实时采集与 ETL 数据处理管道》
开发语言·后端·爬虫·golang
欧先生^_^3 小时前
Scala语法基础
开发语言·后端·scala
hu_yuchen3 小时前
C++:BST、AVL、红黑树
开发语言·c++