首页 » 程序源码 » delphi源码 » 如何使unigui支持多文件上传-MultiFileUpload

如何使unigui支持多文件上传-MultiFileUpload

unigui能上传文件,单只支持单文件上传,在unigui中如何实现多文件上传呢?MultiFileUpload提供了解决方案!此例子使用MultiFileUpload解决了unigui多文件上传的问题

看看运行效果MultiFileUpload

其中部份代码

procedure TDialogFileUpload.UniFormClose(Sender: TObject;
  var Action: TCloseAction);
var
  I: Integer;
begin
  if FIsUploading then
  begin
    //正在上传,不允许退出
    Action := caNone;
    ModalResult := mrNone;
    Exit;
  end;
  if ModalResult=mrOK then
  begin
    if FListFiles.Count=0 then
    begin
      MessageDlg('请选择文件并上传!',mtInformation,[mbOK],nil);
      Action := caNone;
      ModalResult := mrNone;

      Exit;
    end;

    for I := 0 to FListFiles.Count - 1 do
    begin
      if Integer(FListFiles.Objects[I])=0 then
      begin
        MessageDlg('请上传选择的文件!',mtInformation,[mbOK],nil);
        Action := caNone;
        ModalResult := mrNone;

        Exit;
      end;
    end;
    if Assigned(FOnGetUploadFiles) then
    begin
      FOnGetUploadFiles(Self,FListFiles,FListFileSizes);
    end;
  end;
  //关闭时清除所有文件
  FListFiles.Clear;
  FListFileSizes.Clear;
  UniSession.AddJS('panelUpload.onRemove();');
end;

源码下载地址:

百脑问
此处内容已经被作者无情的隐藏,请输入验证码查看内容
验证码:
请关注“百脑问官方公众号,回复关键字“118”,获取验证码。【注】用微信扫描右侧二维码就可以关注“百脑问”官方公众号。

unigui不支持多文件上传,多文件上传的控件MultiFileUpload可以有效解决这个问题!

未经允许不得转载:百脑问 » 如何使unigui支持多文件上传-MultiFileUpload

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开微信扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

分享到:更多 ()

评论 抢沙发

评论前必须登录!

百脑问 创新坚持 杰然不同

赞助我们联系我们
数据查询次数:18 消耗时间:0.484 秒, 使用内存: 21.02MB
您好,有什么可以帮您吗!