[求助]移动开发绝对路径 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]移动开发绝对路径

共有6037人关注过本帖树形打印复制链接主题：[求助]移动开发绝对路径

有点青

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 10:03:00 [显示全部帖子]

msgbox(path) 弹出的是什么，路径是否正确？

有点青

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 10:21:00 [显示全部帖子]

特殊字符的原因，你要这样处理下

.AddImage(UrlEncode("/G:/新建文件夹/新建文件夹/新建文件夹/te可是豆腐#子鱼儿st.jpg"))

[此贴子已经被作者于2017/4/7 10:21:51编辑过]

有点青

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 11:00:00 [显示全部帖子]

先改成下面的代码。

去httpRequest那里弹出path的值是什么，不是在下面弹出。

If dr.IsNull("扫描件") = False Then
    With .AddUploader("up1","扫描件",True)
        .AllowAdd = False '关闭文件上传功能
        For Each sst As String In dr.Lines("扫描件")
            sst = sst.Replace("\\","\")
            sst = sst.Replace("\","/")
            sst = "/d:\ftp" & sst
            msgbox(sst)
            .AddImage(UrlEncode(sst),UrlEncode(sst))
        Next
    End With
End If

有点青

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 11:28:00 [显示全部帖子]

以下是引用18523982317在2017/4/7 11:01:00的发言：
还有个问题就是全屏显示图片不支持放大缩小。。。。有点蛋疼

这个没办法。你可以不使用这个控件来显示图片，你可以直接显示一个 img 标签，不过这样比较麻烦，但控制自由。

http://www.foxtable.com/mobilehelp/scr/0015.htm

有点青

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 12:00:00 [显示全部帖子]

弹出红色代码，看有什么问题

Dim path As String = fl.replace("c:\web\", "")
msgbox(path)
If FileSys.FileExists(path) Then
e.WriteFile(path)
End If

有点青

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 14:03:00 [显示全部帖子]

用19楼代码

或者 sst = sst.replace(chr(10), "").replace(chr(13), "")

有点青

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 15:40:00 [显示全部帖子]

以下是引用18523982317在2017/4/7 14:23:00的发言：
可以了可以了多谢青大大不过能说说为什么不？为什么用str（）这种方式不行？

可以用那种方式的，不过代码要改一下，如

If dr.IsNull("扫描件") = False Then
    Dim str As String = dr("扫描件")
    str = str.replace(chr(10), "")
    Dim sts() As String = str.Split(chr(13))
    With .AddUploader("up1","扫描件",True)
        .AllowAdd = False '关闭文件上传功能
        For Each sst As String In sts
            sst = "\d:\ftp" & sst
            sst = sst.Replace("\\","\")
            sst = sst.Replace("\","/")
            .AddImage(UrlEncode(sst),UrlEncode(sst))
        Next
    End With

下一主题 >> << 上一主题

主题：[求助]移动开发绝对路径