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;