uniGUI之上传文件UniFileUploadButton

最新推荐文章于 2024-02-06 15:40:05 发布

蝈蝈(GuoGuo)

最新推荐文章于 2024-02-06 15:40:05 发布

阅读量1.7k

点赞数 21

分类专栏： UniGui 文章标签：开发语言

本文链接：https://blog.youkuaiyun.com/delphigbg/article/details/135028604

版权

UniGui 专栏收录该内容

42 篇文章

订阅专栏

文章介绍了TUniFileUploadButton控件的特性，包括文件类型过滤、最大上传尺寸限制、多文件批量上传，以及OnCompleted事件处理和文件保存至指定文件夹的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

uniGUI之上传文件UniFileUploadButton(26)_uniGUI教程

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

uniGUI之上传文件UniFileUploadButton(26)_uniGUI学习_02

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;