Foxtable(狐表)用户栏目专家坐堂 → [求助] 上传图片测试失败


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

主题:[求助] 上传图片测试失败

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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14489 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助] 上传图片测试失败  发帖心情 Post By:2022/8/24 8:02:00 [显示全部帖子]

老师,水平太差,硬是搞不好,请指导。谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:web.zip

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:手写签名.zip




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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14489 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2022/8/24 15:08:00 [显示全部帖子]

老师,本机测试老是上传失败,不知道什么地方问题。

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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14489 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2022/8/29 7:46:00 [显示全部帖子]

老师,如何把上面打开签字窗口生成图片的代码融入到 httpserver 中直接保存为图片?谢谢!

Dim str As String = Vars("mdqz")
Dim sj As String = Vars("sj")
Dim bs As Byte() = Convert.FromBase64String(str)
Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)
Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
bmp.Save(ProjectPath & "/temp.png", System.Drawing.Imaging.ImageFormat.png)
Dim pbx As WinForm.PictureBox
pbx = e.Form.Controls("PictureBox1")
If sj <> "" Then
    Dim fnt1 As New Font("宋体",11)
    Dim img As Image = getimage(ProjectPath & "/temp.png")
    Dim g As Graphics = Graphics.FromImage(img)
    g.DrawString(sj,fnt1,Brushes.Black,3,0)
    img.Save(ProjectPath & "/temp.png")
    g.Dispose()
    pbx.Image = img
Else
    pbx.Image = bmp
End If

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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14489 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2022/9/4 11:25:00 [显示全部帖子]

老师好!水平有限,这个代码改造不成功,提示上传失败。请您看看!谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:签字.zip


[此贴子已经被作者于2022/9/4 11:25:59编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14489 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2022/9/5 17:33:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:scystp.txt


 回到顶部