以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 上传图片测试失败  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179442)

--  作者:zcgmxf
--  发布时间:2022/8/24 8:02:00
--  [求助] 上传图片测试失败
老师,水平太差,硬是搞不好,请指导。谢谢!

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

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




--  作者:有点蓝
--  发布时间:2022/8/24 8:34:00
--  
什么地方有问题,怎么测试?
--  作者:zcgmxf
--  发布时间:2022/8/24 15:08:00
--  
老师,本机测试老是上传失败,不知道什么地方问题。
--  作者:有点蓝
--  发布时间:2022/8/24 15:32:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:签字.zip


--  作者:zcgmxf
--  发布时间: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

--  作者:有点蓝
--  发布时间:2022/8/29 8:39:00
--  
无法融合
1、web服务不能使用Foxtable设计的窗口
2、web服务不能使用全局变量


--  作者:zcgmxf
--  发布时间:2022/9/4 11:25:00
--  
老师好!水平有限,这个代码改造不成功,提示上传失败。请您看看!谢谢!

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


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

--  作者:有点蓝
--  发布时间:2022/9/4 20:54:00
--  
请上传使用的js文件
--  作者:zcgmxf
--  发布时间:2022/9/5 17:33:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:scystp.txt


--  作者:有点蓝
--  发布时间:2022/9/5 17:39:00
--  
改造了什么东西?如果只是上传不了文件,看4楼,如果添加了和签名有关的东西,麻烦把签名有关的js文件发上来