core0 2016年08月18日
文件写在IIS服务器上,但下载不了。
#IF DEFINED PBWEBFORM THEN
ls_docname = "c:\temp\" + string(today(), 'YYMMDD') + '_' + string(now(), 'HHmmSS') + ".txt"
ll_value = 1
#ELSE
ls_cur_path = space(256)
getcurrentdirectorya(256, ls_cur_path)
ll_value = getfilesavename("导出文件", ls_docname, ls_named, "txt", "文本文件(*.txt), *.txt")
if ll_value = 1 then
setcurrentdirectorya(ls_cur_path)
end if

if fileexists(ls_docname) then
if messagebox('提示', ls_named + '文件已存在,需要覆盖吗?', Exclamation!, YesNo!, 2) = 2 then return
filedelete(ls_docname)
end if
#END IF

ll_value = FileOpen(ls_docname, LineMode!, Write!, LockWrite!, Append!)
for ll = 1 to dw_list.rowcount()
if dw_list.getitemnumber(1, 'flag') = 0 then continue
ls_str = dw_arg.getitemstring(1, 'code')
ls_str += ','
ls_str += dw_list.getitemstring(ll, 'invo_no')
ls_str += ','
ls_total = dw_list.getitemstring(ll, 'total')
if pos(ls_total, '.00') > 0 then ls_total = string(long(ls_total))
ls_str += ls_total
ls_str += ','
ls_str += string(date(dw_list.getitemstring(ll, 'invo_date')), 'yyyy-mm-dd')
ls_str += '~r'
filewrite(ll_value, ls_str)
next


#IF DEFINED PBWEBFORM THEN
fileclose(ll_value)
string s = GetDownloadFileUrl(ls_docname, false)
long ll_ = URLDownloadToFile(0, s, ls_docname, 0, 0)
if URLDownloadToFile(0, s, ls_docname, 0, 0) > 0 then messagebox('提示', '文件:' + ls_docname + ' 已导出。')
#ELSE
if fileclose(ll_value) = 1 then messagebox('提示', '导出完成。')
#END IF


怎么也下载不了,是GetDownloadFileUrl方法用错了吗?
...全文
2056 点赞 收藏 2
写回复
2 条回复

还没有回复,快来抢沙发~

发动态
发帖子
Web 应用
创建于2007-09-28

404

社区成员

2323

社区内容

PowerBuilder Web 应用
社区公告
暂无公告