UniFileUploadButton 多文件上传的实现

UniFileUploadButton实现多文件一次上传功能

限制一次上传的文件数量及限制文件大小在此进行设置，上传过程的提示信息等也在此汉化。直接上码：

procedure TMainForm.UniFileUploadButton1MultiCompleted(Sender: TObject;
  Files: TUniFileInfoArray);
var
  i:integer;
  DestName : string;
  DestFolder : string;
begin
  //先要在当前运行程序文件夹下创建这个UploadFolder文件夹将文件 存到UploadFolder文件夹，
  // UniFileUploadButton1.MultipleFiles:=True;//多选 模式
   for i :=low(files) to high(files) do
   begin
     DestFolder:=UniServerModule.StartPath+'UploadFolder\';   //要在与exe同下新建一个UploadFolder文件夹
     DestName:=DestFolder+ExtractFileName(Files[i].Stream.FileName);
     CopyFile(PChar(Files[i].Stream.FileName), PChar(DestName), False);
   end;
end;