//選擇檔案
string pname, fname
integer value
value = GetFileOpenName("請選擇施工圖",pname, fname,'jpg', &
+ 'Jpg 檔案(*.jpg),*.jpg,位圖檔案(*.bmp),*.bmp,所有檔案(*.*),*.*')
IF value <> 1 THEN return
//顯示檔案
p_1.PictureName = fname
SetPointer( HOURGLASS! )
SQLCA.AutoCommit = True
//測定檔案長度
long ll_len
ll_len = FileLength(pname)
//打開檔案
integer fileno
fileno = FileOpen(pname,StreamMode!,READ!,LOCKREAD!)
//讀檔案
blob lb_file ,lb_fn
int li_ii,ii
li_ii = ceiling(ll_len/32765)//取整
for ii = 1 to li_ii
FileRead (fileno, lb_fn)
lb_file = lb_file + lb_fn
next
以上是讀檔案的代碼
上傳到服務器檔案夾不知道如何實作（\\192.168.20.150\bmp）
uj5u.com熱心網友回復：
li_FileNum = FileOpen("\\192.168.20.150\bmp\"+filename, StreamMode!, Write!, Shared!, Replace!)FileWrite(li_FileNum, emp_id_pic)
.....
應該和本地寫檔案一樣吧！試試吧！
要有相應的權限！
uj5u.com熱心網友回復：
只要服務器共享檔案夾可寫，直接用filecopy函式復制過去就可以了。轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/94950.html
標籤：腳本語言
上一篇：PB問題還是SQL2005問題?