以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何制作图片服务器  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102690)

--  作者:18523982317
--  发布时间:2017/6/23 21:59:00
--  [求助]如何制作图片服务器
微信网页有图片的时候   如果网速不够快,会影响其他用户的体验,求解,如何制作一个下载服务器,我的网页上要显示的图片通过另外一个foxtable程序来进行下载!求解1
--  作者:有点蓝
--  发布时间:2017/6/23 22:50:00
--  
图片使用网络路径即可,比如默认服务为80端口:

Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","text").value = "舒淇"
            .AddInput("地点","地点","text").Value = "蒙古草原"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","",True)
                .AllowAdd = False \'关闭文件上传功能
                .AddImage("http://127.0.0.1:20200/images/001.jpg")
                .AddImage("http://127.0.0.1:20200/images/002.jpg")
                .AddImage("http://127.0.0.1:20200/images/003.jpg")
            End With
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

增加一个服务端,使用其它端口启动
HttpServer.Prefixes.Add("http://127.0.0.1:20200/")
HttpServer
.Start()

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


--  作者:18523982317
--  发布时间:2017/7/12 18:01:00
--  
代码如下:
    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 = "61.128.254.170:20200\\d:\\ftp" & sst
                .AddImage(UrlEncode(sst),UrlEncode(sst))
            Next
        End With
    End If

但是实际访问不到,图片显示不出来,连服务器上e.path都弹不出来
我直接用图片地址访问又可以。。。求解。。。





--  作者:18523982317
--  发布时间:2017/7/12 18:02:00
--  
我按蓝大大的提示做了个图片服务器,直接链接图片地址可以访问,但是地址写入进另外一个程序,就显示不出来图片,怎么回事?
--  作者:有点甜
--  发布时间:2017/7/12 21:23:00
--  
以下是引用18523982317在2017/7/12 18:02:00的发言:
我按蓝大大的提示做了个图片服务器,直接链接图片地址可以访问,但是地址写入进另外一个程序,就显示不出来图片,怎么回事?

 

能访问的地址怎么写?贴出来。

 

不能显示的代码怎么写?贴出来。


--  作者:18523982317
--  发布时间:2017/7/13 8:11:00
--  

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

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


不管加不加http:抬头  都访问不到。。。



--  作者:有点甜
--  发布时间:2017/7/13 8:45:00
--  
    If dr.IsNull("附件") = False Then
        With .AddUploader("up1","附件",True)
            .AllowAdd = False \'关闭文件上传功能
            For Each sst As String In dr.Lines("附件")
                sst = "http://61.128.254.170:20200/d:/ftp" & sst
                sst = sst.Replace("\\\\","/")
                sst = sst.Replace("\\","/")
msgbox(sst)
                .AddImage(UrlEncode(sst),UrlEncode(sst))
            Next
        End With
    End If

--  作者:18523982317
--  发布时间:2017/7/13 11:49:00
--  

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


http://61.128.254.170:20200/d:/ftp/swcl/关于申请续签贵州分公司经营承包协议的函/7482546QQ图片20170704080058.png


在浏览器里这个地址能打开。。。但是放到image里就不行了




--  作者:18523982317
--  发布时间:2017/7/13 11:49:00
--  
要测试的话  我这里服务器有各msgbox(e.path)  得关了就可以显示
--  作者:有点甜
--  发布时间:2017/7/13 12:09:00
--  

 

[此贴子已经被作者于2017/7/13 12:08:57编辑过]