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

procedure TMyPageAdapter.AdaptDeleteFileGetParams(Sender: TObject;

Params: TStrings);

begin

Params.Add(''''FileName='''' AdaptFileName.Value);

end;

OnGetParams 會 在 網 頁 顯 示 前 被 觸 發 ， 因 此 我 們 利 用 她 的 Params 參 數 來 加 入 檔 案 名 稱 ， 這 樣 當 Action 被 觸 發 時 這 個 參 數 就 會 傳 到 我 們 的 OnExecute 事 件 中 ， 我 們 就 可 以 利 用 這 個 參 數 值 來 刪 除 該 檔 案 ， 要 完 全 了 解 這 部 份 的 動 作 我 們 要 觀 察 網 頁 中 的 程 式 碼 :

<input type="submit" value="DeleteFile" onclick="AdapterForm1.

__act.value=''''FileName.13.inventory.rtf__p.13.MyPageAdapter__id.38.MyPageAdapter.PagedAdapter1.DeleteFile''''">

你 可 以 看 到 紅 色 字 的 部 份 ， 這 就 是 我 們 在 OnGetParams 所 填 入 的 參 數 值 ， 當 使 用 者 按 下 按 紐 後 TAdapterDispatcher 會 取 出 這 個 參 數 值 並 送 到 我 們 的 OnExecute 事 件 中 。 完 成 設 計 網 頁 的 動 作 後 這 個 程 式 就 算 完 成 了 ， 你 已 經 擁 有 一 個 簡 單 的 檔 案 總 管 了 ， 接 下 來 你 可 以 結 合 使 用 者 管 理 與 其 它 一 些 控 制 之 後 ， 就 可 以 達 到 類 似 PCHome 個 人 網 頁 的 能 力 了 ， 這 些 就 當 成 是 你 的 練 習 題 了 。

7-3 TOrpEditablePagedAdapter

原 本 我 一 直 避 免 在 這 篇 文 章 中 論 及 元 件 設 計 ， 可 是 我 後 來 想 想 ， 這 個 範 例 對 你 來 說 可 能 是 蠻 有 用 的 ， 但 是 我 不 打 算 在 這 篇 文 章 中 解 釋 元 件 設 計 ， 因 為 那 得 用 一 篇 文 章 才 能 交 代 各 個 Interface 間 的 互 動 及 協 調 ， 但 我 又 很 想 將 這 個 範 例 與 你 分 享 ， 所 以 我 下 了 個 決 定 ， 我 將 元 件 給 你 ， 但 原 始 碼 等 到 Inside WebSnap 時 再 詳 細 的 解 釋 ! 還 記 得 我 們 上 一 節 的 範 例 嗎 ? 基 本 上 看 起 來 是 很 不 錯 ， 但 是 我 們 必 須 承 認 ， 她 還 不 是 很 實 用 ， 也 不 足以 啟 發 你 其 它 的 聯 想 ， 所 以 我 完 成 了 這 個 範 例 ， 要 編 譯 這 個 範 例 ， 你 必 須 要 先 安 裝 Orpdemo.bpl 這 個 Package ， 裡 面 有 一 個 TOrpEditablePagedAdapter 元 件 ， 她 是 基 於 TPagedAdapter 再 加 入 可 編 修 資 料 的 能 力 ， 我 們 利 用 她 來 完 成 我 們 上 一 節 中 未 完 成 的 範 例 ， 這 個 檔 案 總 管 可 以 讓 使 用 者 先 挑 選 要 刪 除 的 資 料 ， 之 後 按 下 刪 除 的 按 紐 後 刪 除 資 料 ， 這 不 只 可 以 用 在 刪 除 檔 案 ， 你 也 可 以 利 用 她 來 將 使 用 者 選 擇 的 檔 案 壓 縮 後 讓 使 用 者 下 載 ， 亦 或 是 購 物 車 ， 或 者 更 多 地 方 ! 這 也 是 我 為 何 會 破 例 在 這 篇 文 章 中 展 示 她

标签：

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