如何使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”，获取验证码。【注】用微信扫描右侧二维码就可以关注“百脑问”官方公众号。

AD：【bsphp网络验证系统破解】bsphp

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