過時程式員的部落格

前一篇已經把檔案寫到數據庫中了，那要怎麼下載呢？這裏簡單說一說。

1.    在PB 中定義 Blob 變量
       Blob    lblob_file

2.    以 SelectBlob 把 Binary 存到 blob 中
       selectblob the_file
       into :lblob_file
       from t_file_hdr
       where file_id = :ls_file_id
       using sqlca;

3.    以 FileWriteEx() 把 blob 寫成檔案
       FileWriteEx(li_file_num, ablob_input)

如果一切順利，這時候檔案已經寫到你指定的位置了，如有需要，也可以順便把它打開給用戶看一下。由於現在的瀏覽器已經可以支援很多格式了，所以用它來打開最為簡單，以下是用瀏覽器打開的方法

// Inet Object 提供讓你可以跟預設瀏覽器打交道的服務
inet  iinet_base

// 調用 Internet 服務
GetContextService("Internet", iinet_base)
// 以預設瀏覽器打開連接，也就檔案路徑
iinet_base.HyperlinkToURL(ls_file_path)

跑完這兩句，你的瀏覽器就已經把檔案打開了吧？