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;
相关推荐
命苦的孩子几秒前
Java 数学工具类 Math
java·开发语言
你可以叫我仔哥呀29 分钟前
Java程序员学从0学AI(七)
java·开发语言·人工智能·ai·spring ai
望获linux1 小时前
【Linux基础知识系列】第六十四篇 - 了解Linux的硬件架构
linux·运维·服务器·开发语言·数据库·操作系统·嵌入式软件
1candobetter2 小时前
JAVA后端开发——用 Spring Boot 实现定时任务
java·开发语言·spring boot
啊阿狸不会拉杆3 小时前
《Java 程序设计》第 8 章 - Java 常用核心类详解
java·开发语言·python·算法·intellij-idea
小白学大数据3 小时前
Python + Requests库爬取动态Ajax分页数据
开发语言·python·ajax·okhttp
2501_920047033 小时前
python-内存管理
开发语言·jvm·python
芜青3 小时前
JavaScript手录09-内置对象【String对象】
开发语言·javascript·ecmascript
钮钴禄·爱因斯晨4 小时前
Java 集合进阶:从 Collection 接口到迭代器的实战指南
java·开发语言
mrbone114 小时前
C++-关于协程的一些思考
开发语言·数据库·c++·c++20·协程·异步·coroutines