uniGUI之上傳文件UniFileUploadButton(26)

TUniFileUploadButton主要屬性：

Filter: 文件類型過濾，有圖片image/*   audio/* video/*三種過濾

MaxAllowedSize: 設置文件最大上傳尺寸；

Message：標題以及消息文本，可翻譯成中文

TUniFileUploadButton控件 支持文件批量上傳! 

procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;  AStream: TFileStream);
var
  i:integer;
begin
  UniFileUploadButton1.MultipleFiles:=True;//多選 模式  
  UniFileUploadButton1.MaxFiles:=4;         //最大文件數
         for I := 0 to UniFileUploadButton1.MaxFiles-1 do  begin
          caption:= UniFileUploadButton1.Files[i].FileName ;
         end;
end;

若是文件數超過MaxFiles

---

 

事件：OnCompleted(Sender: TObject; AStream: TFileStream)

procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;  AStream: TFileStream);
var
  DestName : string;
  DestFolder : string;
begin
  //將 文件 加載到  UniImage1裏
    UniImage1.Picture.LoadFromFile(AStream.FileName);
    Caption:='File Name: '+UniFileUploadButton1.FileName;

//將 文件 保存到UploadFolder文件夾，先要建立這個UploadFolder文件夾
    DestFolder:=UniServerModule.StartPath+'UploadFolder\';   //要在與exe同下新建一個UploadFolder文件夾
    DestName:=DestFolder+ExtractFileName(UniFileUploadButton1.FileName);
    CopyFile(PChar(AStream.FileName), PChar(DestName), False);
    ShowMessage('File: '+UniFileUploadButton1.FileName+' Uploaded to folder: '+DestFolder);

end;