- 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)
-- 发布时间：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()
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
-- 发布时间：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都弹不出来
我直接用图片地址访问又可以。。。求解。。。
-- 发布时间：2017/7/12 18:02:00
--
我按蓝大大的提示做了个图片服务器，直接链接图片地址可以访问，但是地址写入进另外一个程序，就显示不出来图片，怎么回事？
-- 发布时间：2017/7/12 21:23:00
--
以下是引用18523982317在2017/7/12 18:02:00的发言：
我按蓝大大的提示做了个图片服务器，直接链接图片地址可以访问，但是地址写入进另外一个程序，就显示不出来图片，怎么回事？
我按蓝大大的提示做了个图片服务器，直接链接图片地址可以访问，但是地址写入进另外一个程序，就显示不出来图片，怎么回事？
能访问的地址怎么写？贴出来。
不能显示的代码怎么写？贴出来。
-- 发布时间：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
-- 发布时间：2017/7/13 11:49:00
--
此主题相关图片如下：qq图片20170713114728.png
http://61.128.254.170:20200/d:/ftp/swcl/关于申请续签贵州分公司经营承包协议的函/7482546QQ图片20170704080058.png
在浏览器里这个地址能打开。。。但是放到image里就不行了
-- 发布时间：2017/7/13 11:49:00
--
要测试的话 我这里服务器有各msgbox（e.path） 得关了就可以显示
-- 发布时间：2017/7/13 12:09:00
--
[此贴子已经被作者于2017/7/13 12:08:57编辑过]