一.文件上傳TUniFileUploadButton

TUniFileUploadButton主要屬性：

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

MaxAllowedSize:?設(shè)置文件最大上傳尺寸；

Message：標(biāo)題以及消息文本，可翻譯成中文

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

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

如果文件數(shù)超過MaxFiles

---

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

procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;  AStream: TFileStream);
varDestName : string;DestFolder : string;
begin//將 文件 加載到  UniImage1里UniImage1.Picture.LoadFromFile(AStream.FileName);Caption:='File Name: '+UniFileUploadButton1.FileName;//將 文件 保存到UploadFolder文件夾，先要創(chuàng)建這個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;

2文件下載

1]SendFile

2]SendStream?

3]自定義類型文件**

---

?1]SendFile

UniSession.SendFile('新建文本文檔.txt'  //服務(wù)器端  文件名,'anew.txt'          //客戶端 新下載 的文件名);

---

2]SendStream?

procedure TMainForm.UniButton3Click(Sender: TObject);
varS : TStringStream;
beginS:=TStringStream.Create('Some text here....');tryUniSession.SendStream(S, 'Mydoc.txt');finallyS.Free;end;
end;

?

---

?3]自定義類型文件下載

UniSession.SendFile(ServerModule.UniServerModule.FilesFolderPath+'aaa.abc');

web默認(rèn)文檔主目錄在執(zhí)行程序同級目錄下的files子目錄下,該屬性可以在ServerModule的FilesFolder屬性中配置。

對于常見的文檔類型，瀏覽器默認(rèn)支持，對于如abc擴(kuò)展名的特殊類文檔，點(diǎn)擊后瀏覽器會沒有動作，你需要配置一下MIME表。?

在ServerModule的OnCreate屬性中添加：

MimeTable.AddMimeType("abc","abc");