压缩时自动关闭app - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Else

For Each key As String In e.PostValues.Keys

If key.Contains("imgs_") Then

Dim bs As Byte() = Convert.FromBase64String(e.PostValues(key).split(",")(1))

Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)

Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)

bmp.Save("c:\web\xp\" & e.Cookies("username") & ".jpg", ImageFormat.Jpeg)

Dim slt As String ="c:\web\xp\" & e.Cookies("username") & ".jpg"

Dim img1 As image = getImage(slt)

Dim bmp1 As bitmap

If img1.width > 800 Then

If 800 * (img1.height / img1.width) > 600 Then

bmp1 = new bitmap(img1, 800*(600/(800*(img1.height/img1.width))), 600)

Else

bmp1 = new bitmap(img1, 600, 600 * (img1.height / img1.width))

End If

bmp1.save(slt, ImageFormat.Jpeg)

bmp1.Dispose

End If

With wb.AddMsgPage("","msgpage","上传成功", "") '生成成功提示页

Dim bt1=.AddButton("btn1","确定","xpcj.htm")

bt1.kind=1

bt1.Attribute = "style='border:1px solid black;border-radius:20px;padding:0px;width:50%'"

End With

End If

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/camera.js'></script>")

e.WriteString(wb.Build)

老师，我看了之前就是是用的这个例子做的,是先存到服务器，考虑一张图片有几M，就又将其压缩，现在的就是解决如何实现快速一点，不卡死的问题

直接使用甜版发的示例二测试有没有问题？

[此贴子已经被作者于2018/9/18 20:52:45编辑过]

我没试，提交时只多了压缩代码，你说的压缩代码提出来异步处理懂不起,请帮我改一下

Dim e As RequestEventArgs = args(0)

Dim path As String = "foxtableAppTest"

Dim wb As New weui

wb.InsertHTML("<!DOCTYPE html>")

wb.InsertHTML("<html>")

wb.InsertHTML("<head>")

wb.InsertHTML("<meta charset='utf-8'>")

wb.InsertHTML("<meta name='viewport' c />")

wb.InsertHTML("<title></title>")

wb.InsertHTML("<script src='../mui/js/mui.js'></script>")

wb.InsertHTML("<link href='../mui/css/mui.css' rel='stylesheet'/>")

wb.InsertHTML("<script Type='text/javascript' charset='utf-8'>mui.init();</script>")

wb.InsertHTML("</head>")

wb.InsertHTML("<body>")

wb.InsertHTML("<header class='mui-bar mui-bar-nav mui-bar-nav-bg'>")

wb.InsertHTML("<a id='icon-menu' class='mui-action-back mui-icon mui-icon-left-nav mui-pull-left'></a>")

wb.InsertHTML("<h1 class='mui-title'>我的照片</h1>")

wb.InsertHTML("</header>")

wb.InsertHTML("<div class='mui-content'>")

wb.InsertHTML("<br>")

wb.AddForm("","form1","xpcj.htm")

If e.PostValues.Count = 0 Then

wb.InsertHTML("form1","<div style='height: 150px;'><span style='position:absolute;margin-top:60px;margin-left:20px;'>我的照片:</span><img alt='你还没有照片' src='./xp/" & e.Cookies("username") & ".jpg' style='height: 150px;width:120px;margin-left:120px;max-height:100%'></div><br>")

If ReadSex(e.Cookies("username"))= "女"

wb.InsertHTML("form1","<div style='height: 170px'><span style='position:absolute;margin-top:70px;margin-left:20px;'>样板照片:</span><div id='imgs'><img src='./xp/yb.jpg' style='height:150px;width:120px;margin-top:20px;margin-left:120px;max-height:100%;'></div></div><br/>")

End If

If ReadSex(e.Cookies("username"))= "男"

wb.InsertHTML("form1","<div style='height:150px'><span style='position:absolute;margin-top:70px;margin-left:20px;'>样板照片:</span><div id='imgs' style='widht:120px;height:150px;'><img src='./xp/yb1.jpg' style='height:150px;width:120px;margin-left:120px;max-height:100%;'></div></div><br/>")

End If

With wb.AddPageFooter("form1","pf1","")

With wb.AddButtonGroup("form1","btg1",False)

Dim bt1= .Add("btn1", "拍照", "button")

bt1.Attribute = "onclick=getImageByCamera('imgs') style='border:1px solid black;border-radius:40px;padding:0px;'"

bt1.kind=1

Dim bt2= .Add("btn2", "相册", "button")

bt2.Attribute = "onclick=galleryImg('imgs') style='border:1px solid black;border-radius:40px;padding:0px;'"

bt2.kind=1

Dim bt3=.Add("btn3", "上传")

bt3.kind=1

bt3.attribute="style='border:1px solid black;border-radius:40px;padding:0px;'onclick=javascript:mui.toast('正在上传,请等待');"

End With

Else

For Each key As String In e.PostValues.Keys

If key.Contains("imgs_") Then

Dim bs As Byte() = Convert.FromBase64String(e.PostValues(key).split(",")(1))

Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)

Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)

bmp.Save("c:\web\xp\" & e.Cookies("username") & ".jpg", ImageFormat.Jpeg)

Dim slt As String ="c:\web\xp\" & e.Cookies("username") & ".jpg"

Dim img1 As image = getImage(slt)

Dim bmp1 As bitmap

If img1.width > 400 Then

If 400 * (img1.height / img1.width) > 300 Then

bmp1 = new bitmap(img1, 400*(300/(400*(img1.height/img1.width))), 300)

Else

bmp1 = new bitmap(img1, 300, 300 * (img1.height / img1.width))

End If

bmp1.save(slt, ImageFormat.Jpeg)

' bmp1.Dispose

End If

With wb.AddMsgPage("","msgpage","上传成功", "") '生成成功提示页

Dim bt1=.AddButton("btn1","确定","xpcj.htm")

bt1.kind=1

bt1.Attribute = "style='border:1px solid black;border-radius:20px;padding:0px;width:50%'"

End With

End If

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/camera.js'></script>")

e.WriteString(wb.Build)

'e.Handled = True

老师，除了楼上的问题，现在还发现多了一个问题:就是该页面点顶部返回时正常用返回，点手机返回键就会关闭app,而其他页页的顶部引入是一样的，但按顶部返回和手机返回键都可以，不会出现关闭现象，反复对比没找出问题，请老师指教，谢谢

[此贴子已经被作者于2018/9/19 7:31:50编辑过]

1、如果不加你红色的压缩大小的代码，是否还有问题？

2、按着步骤测试啊。测试是你手机那边的js有问题，还是你httprequest事件里面有问题啊。

3、请用实例测试，如果有问题实例发上来测试 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119997&skin=0

1、不用压缩不会有问题，就是压缩原文件小一点的都没问题，就是当原文件太大了就有问题了

2 、按顶部反回键可正常可返回，手机返回键就会自动关闭，顶部返回js是与其他页面一样的，但其它没问题，所以不能说是js的反回代码有问题。

请老师帮找找原因呀

1、改一下你的压缩代码

Dim bs As Byte() = Convert.FromBase64String(e.PostValues(key).split(",")(1))
Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)
Dim img1 As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
Dim slt As String ="c:\web\xp\" & e.Cookies("username") & ".jpg"
Dim bmp1 As bitmap
If img1.width > 400 Then
    If 400 * (img1.height / img1.width) > 300 Then
        bmp1 = new bitmap(img1, 400*(300/(400*(img1.height/img1.width))), 300)
    Else
        bmp1 = new bitmap(img1, 300, 300 * (img1.height / img1.width))
    End If
End If
bmp1.save(slt, ImageFormat.Jpeg)
bmp1.Dispose
img1.dispose
stream.close

2、是不是返回了最顶层才退出的？如果是，看看 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=124516&skin=0

主题：压缩时自动关闭app