Web Application 開 發 利 器 - WebSnap（七）(6…

一 個 TAdapterFileField:

接 著 還 要 新 增 一 個 AdapterAction ， 用 來 執 行 Upload File 的 動 作 :

然 後 我 們 得 撰 寫 AdapterFileField 的 OnFileUpload 事 件 ， 儲 存 使 用 者 所 上 傳 的 檔 案 :

procedure TMyPageAdapter.AdaptUploadUploadFiles(Sender: TObject;

Files: TUpdateFileList);

var

I:Integer;

fs:TFileStream;

begin

for I:=0 to Files.Count-1 do

begin

fs:=TFileStream.Create(AppPath ''''\'''' ExtractFileName(Files.Files[I].FileName),fmCreate);

fs.CopyFrom(Files.Files[I].Stream,Files.Files[I].Stream.Size);

fs.Free;

end;

end;

要 觸 發 這 個 事 件 ， 我 們 必 須 在 AdapterAction.OnExecute 事 件 中 加 入 下 面 的 程 式 碼 :

procedure TMyPageAdapter.AdaptUploadFileExecute(Sender: TObject;

Params: TStrings);

begin

Adapter1.UpdateRecords(WebContext.AdapterRequest as IActionRequest);

end;

這 一 段 程 式 碼 的 意 思 是 更 新 TAdapter 中 的 所 有 AdapterField 資 料 ， 在 這 個 程 式 中 就 是 觸 發 OnUploadFile 這 個 事 件 。 最 後 我 們 只 需 要 在 Visual Page Designer 加 入 相 關 的 元 件 就 可 以 了 :

執 行 程 式 後 你 就 可 以 上 傳 檔 案 到 這 個 網 站 上 了 ， 範 例 程 式 預 設 是 C:\Temp ， 你 可 以 整 合 使 用 者 管 理 功 能 來 設 定 上 傳 的 位 置 。 不 過 這 個 程 式 有 個 缺 點 ， 你 會 發 現 上 傳 檔 案 後 在 網 頁 的 檔 案 列 表 中 找 不 到 你 上 傳 的 檔 案 名 稱 ，

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有