delphi 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;

————————————————

原文链接：https://blog.csdn.net/tvmerp/article/details/107836053