- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 几个关开打包后的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117084)
-- 发布时间：2018/4/6 7:55:00
-- 几个关开打包后的问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.txt |
-- 发布时间：2018/4/6 9:37:00
--
1、提交表单，在httprequest那里把当前行设置成locked；
如果某行是locked，生成一种网页，否则，生成你原来的网页。
2.1 不可以，必须保存，才能上传，你可以上传后删除；（保存也不是本地，是在你的服务器上）
2.2 要显示图片，服务器上必须有对应的图片
2.3 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108071&skin=0
-- 发布时间：2018/4/6 20:16:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim path As String = "foxtableAppTest"
Dim ftp1 As New FtpClient
ftp1.Host="47.92
ftp1.Account = "ftp“
ftp1.Password = "abdc"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","xpcj.htm")
wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/common.js\'></script>", True)
wb.AppendHTML("<link rel=\'stylesheet\' href=\'/" & path & "/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)
With wb.AddInputGroup("form1","ipg1","客户资料")
With .AddUploader("up1","照片",True)
.AddImage("./images/001.jpg") (远程可能存在文件为 e.Cookies("username") & Ifo.extension 的图片，如果有在这里显示，这里该如何写）
.TextPosition = 0 \'标题靠左
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "拍照", "button").Attribute = """ (不管e.Cookies("username") & Ifo.extension 的图片是否存在, 如果点拍照调出拍照后都要将原有的图像在控制里显示覆盖）
.Add("btn2", "上传", "sumit") （点上传就按现有图片进行压缩提交到远程）
End With
e.WriteString(wb.Build) \'生成网页
Else
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln)
Dim ifo As new FileInfo("d:\\web\\uploadfiles\\" & fln)
Dim img As image = getimage("d:\\web\\uploadfiles\\" & fln)
Dim bmp As new bitmap(img.width, img.height)
Dim g = graphics.fromimage(bmp)
\' messagebox.show(fln)
g.DrawImage(img, 0, 0, img.Width, img.Height)
Dim jpgEncoder As ImageCodecInfo
Dim codecs() As ImageCodecInfo = ImageCodecInfo.GetImageDecoders
For Each codec As ImageCodecInfo In codecs
If (codec.FormatID = ImageFormat.Jpeg.Guid) Then
jpgEncoder = codec
Exit For
End If
Next
Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
Dim myEncoderParameters As EncoderParameters = New EncoderParameters(1)
Dim myEncoderParameter As EncoderParameter = New EncoderParameter(myEncoder, 10) \' 质量级别 0 对应于最大压缩,而质量级别 100 对应于最小压缩
myEncoderParameters.Param(0) = myEncoderParameter
Dim slt As String = ifo.path & e.Cookies("username") & ifo.Extension
bmp.Save(slt,jpgEncoder, myEncoderParameters)
bmp.dispose
g.dispose
Dim img1 As image = getImage(slt)
Dim bmp1 As bitmap
If img1.width > 200 Then
If 200 * (img1.height / img1.width) > 150 Then
bmp1 = new bitmap(img1, 200*(150/(200*(img1.height/img1.width))), 150)
Else
bmp1 = new bitmap(img1, 150, 150 * (img1.height / img1.width))
End If
End If
bmp1.save(slt)
bmp1.Dispose
If ftp1.Upload(slt,"\\xp\\" & FileSys.GetName(e.Cookies("username") & Ifo.extension),True) = True Then
\' Messagebox.show("文件上传完成,请正确填写资料信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
Next
With wb.AddMsgPage("","msgpage","上传成功", "") \'生成成功提示页
.AddButton("btn6","返回","cjsc.htm")
End With
wb.AppendHTML("<script src=\'./lib/order.js\'></script>") \'引入
e.WriteString(wb.Build)
End If
老师，我看了一下，现在就像片问题只有组合成这样了，但一直对如何实现打包可调用摄像头弄不好，请老师帮写一下，蓝色部分与扫码输入例子一样的内容，谢谢，另外，关于锁定当前记录问题，我是有一个保存提交键，保存时不锁定，另有一个单独的锁定键，当要锁定记录时点锁定，是不是要用js代码来锁定，如何写？
[此贴子已经被作者于2018/4/6 20:21:29编辑过]
-- 发布时间：2018/4/7 8:48:00
--
需要有一个逻辑列对应您锁定键，然后点击锁定的时候，可以通过ajex函数发到后台更改逻辑列的值
-- 发布时间：2018/4/7 9:09:00
--
1、ajex不懂，是不是提当前行的_identify给后台锁定?
ajex:function locked(){ location="zkbm.htm?&lock=true";}
If e.GetValues.ContainsKey("lock") Then \'如果地址中有page参数
dr.Locked= True
End If
好像这样就可以了
2、3楼的红色问题，请老师明示一下，按照例子看了还是做不来。
[此贴子已经被作者于2018/4/7 9:29:20编辑过]
-- 发布时间：2018/4/7 9:57:00
--
ajex函数参考：http://www.foxtable.com/mobilehelp/scr/0099.htm
With wb.AddInputGroup("form1","ipg1","客户资料")
With .AddUploader("up1","照片",True)
.AddImage(e.Cookies("username") & ".jpg") 这里无法使用Ifo.extension，必须指定一个已知的扩展名，建议统一所有图片的扩展名
.TextPosition = 0 \'标题靠左
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "拍照", "button").Attribute = """ 把Uploader的Multiple设置为false
.Add("btn2", "上传", "sumit") （点上传就按现有图片进行压缩提交到远程）参考：http://www.foxtable.com/mobilehelp/scr/0251.htm，或者上传到后台后再压缩
End With
e.WriteString(wb.Build) \'生成网页
[此贴子已经被作者于2018/4/7 9:56:42编辑过]
-- 发布时间：2018/4/7 10:35:00
--
.AddImage(e.Cookies("username") & ".jpg") 这里无法使用Ifo.extension，必须指定一个已知的扩展名，建议统一所有图片的扩展名
这个问题关键是e.Cookies("username") & ".jpg"是在远程ftp服务器上
想法是如果有远程有就显示出来
[此贴子已经被作者于2018/4/7 10:43:44编辑过]
-- 发布时间：2018/4/7 10:55:00
--
比如用户名称是张三，只要d:\\web\\张三.jpg这个路径有这个图片即可
-- 发布时间：2018/4/7 11:35:00
--
老师，是这样的，e.Cookies("username") & ".jpg"这个图不是在本地，也不是在服务器某个盘，而是做了ftp，图片在ftp上
当初的想法是在电脑或手机上同一个人的相片用其身份证作为文件名保存在ftp上，在手机或电脑上上传的图片，都可以共享打开,
[此贴子已经被作者于2018/4/7 11:44:10编辑过]
-- 发布时间：2018/4/7 14:05:00
--
如果ftp和网页都是同一个服务器，改一下ftp的路径，在web目录下创建一个子目录，比如“images"，ftp的物理路径改为：D:\\web\\images，这样就可以共用图片了
.AddImage("images/" & e.Cookies("username") & ".jpg")