Foxtable(狐表)用户栏目专家坐堂 → [求助]使用Preview为什么同一界面不能放入其它的控件呢?


  共有3755人关注过本帖树形打印复制链接

主题:[求助]使用Preview为什么同一界面不能放入其它的控件呢?

帅哥哟,离线,有人找我吗?
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106242 积分:540333 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/27 10:00:00 [只看该作者]

With wb.AddInputGroup("","ipg1","图片浏览")

如果If rh.Isnull("图片")=False Then有问题,说明没有图片

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15502 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/5/27 11:27:00 [只看该作者]

 Dim  lsts As  New  List(of  String)
                lsts =   rh.Lines("图片")

问题找到了。是红色字体部分漏了。

 

这个问题找到了,新的问题出现了。图片没有显示。下面程序看到确认图片的绝对路径是正确的。程序运行也不出错了。但是在该显示图片的地方是一片空白没有缩图。点击后就一片黑。

 

  With wb.AddInputGroup("","ipg1","图片浏览")
       
        With .AddUploader("up2","照片浏览",True)
            .AllowAdd = False  '关闭文件上传功能
            Dim  lsts As  New  List(of  String)
            lsts =  rh.Lines("图片")
           
            For Each lst As String In lsts              
                Dim lsml As String=tpml & lst
                If FileSys.FileExists(lsml) Then
                    Functions.Execute("加入调测","sjcxxx",lsml,lst,"文件存在","","")
                Else
                    Functions.Execute("加入调测","sjcxxx",lsml,lst,"文件不存在","","")
                End  If
                .AddImage(lsml)
            Next
        End With
    End With




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106242 积分:540333 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/27 11:38:00 [只看该作者]

.AddImage(lst)

假设HttpServer.WebPath = "d:\web"  '指定静态文件存储位置

图片绝对路径:d:\web\images\123.jpg

那么网页路径就是:.AddImage("./images/123.jpg")

图片绝对路径:d:\web\aa\bb\cc\123.jpg

那么网页路径就是:.AddImage("./aa/bb/cc/123.jpg")

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15502 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/5/27 12:03:00 [只看该作者]

网页说的绝对路径是假的。一定要基于它的根目录?

但是在加入图片是可以使用真的绝对路径!显示就要相对路径了?

 

我的问题是:台式机的存图片是A,手机存放图片也放到了A里。网页的根目录是B,且是动态的程序COPY到哪根目录就到哪 是基于  HttpServer.WebPath = ProjectPath &  "web"  动态设定的。AB没有隶属关系。

希望两方上传的图片是共享的。我找该怎么办?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106242 积分:540333 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/27 13:35:00 [只看该作者]

网页的根目录就是HttpServer.WebPath指定的目录啊。

假设ftp上传的服务器路径是:c:\a\images,比如图片:c:\a\images\123.jpg
那么和weui目录也复制到c:\a里,如:c:\a\weui
然后:HttpServer.WebPath = “c:\a”即可
那么网页图片路径就是:.AddImage("./images/123.jpg")

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15502 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/5/27 16:42:00 [只看该作者]

感谢!现在想了一个办法就是在给手机浏览如果找到这张图片就把他Copy到指定的一个目录,这个目录可以用相对路径表示。

实践证明都是按照要求实现决,但是手机上仍然看不到这三个文件?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200527163626.png
图片点击可在新窗口打开查看


 这是服务器上的记录。请老师看看是哪个地方又错了?


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200527163847.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106242 积分:540333 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/27 16:53:00 [只看该作者]

HttpServer.WebPath怎么设置的?有没有使用事件头的代码?

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15502 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/5/27 17:00:00 [只看该作者]

'AfterOpenProject

HttpServer.Close

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = ProjectPath &  "web"   '指定静态文件存储位置
HttpServer.Start()

 

'通用事件头
Dim fl As String
Dim path As String

Dim bt As String="营口维修调度管理系统"

If filesys.FileExists(path) Then
    Dim idx As Integer = path.LastIndexOf(".")
    Dim ext As String  = path.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(path)
            Return '这里必须返回
    End Select
End If

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106242 积分:540333 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/27 17:19:00 [只看该作者]

感觉上面都白说了,HttpServer.WebPath设置的路径和16楼看到的路径半毛钱关系都没有。

如果使用了HttpServer.WebPath,就不要使用通用事件头了,去掉通用事件头代码。

msgbox(ProjectPath &  "web") '显示什么内容,所有图片都必须在这个路径里面

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15502 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/5/27 17:30:00 [只看该作者]

ProjectPath &  "web" 是一个动态的路径。所以也把自己弄糊涂了

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200527172545.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200527172623.png
图片点击可在新窗口打开查看

 回到顶部
总数 28 上一页 1 2 3 下一页