主题：狐表如何接收图片base64的代码 来保存为图片

Dim sb As New StringBuilder
For Each key As String In e.Files.Keys
'sb.AppendLine("已经上传" & e.Files(key).Count & "个图片文件:
")
For Each fl As String In e.Files(key)
'sb.AppendLine(fl)
'e.SaveFile(key,fl,HttpServer.WebPath + "/upload/" & fl)
Dim NewName As String = fl
Dim idx As Integer = fl.LastIndexOf(".")
Dim cnt As Integer = 1
Do While FileSys.FileExists(ProjectPath & "\upload\" & NewName) '判断文件夹是否存在同名文件
NewName = fl.Insert(idx,"(" & cnt & ")") '如果存在同名文件,在原文件名加上序号
cnt = cnt + 1 '递增序号
Loop
sb.AppendLine(NewName)
e.SaveFile(key,fl,HttpServer.WebPath + "/upload/" & NewName)
Next
Next

项目事件

HttpRequest

Select Case e.Path
Case "upload.htm"
Dim sb As New StringBuilder
sb.appendLine("

")
sb.appendLine("单文件上传:

")
sb.appendLine("多文件上传:

")
sb.appendLine("")
sb.appendLine("

")
e.WriteString(sb.ToString)
Case "accept.htm"
Dim sb As New StringBuilder
For Each key As String In e.Files.Keys
sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:
")
For Each fl As String In e.Files(key)
sb.AppendLine(fl & "
")
e.SaveFile(key,fl, ProjectPath & fl) '保存接收到的文件
Next
sb.AppendLine("
")
Next
sb.AppendLine("以上文件服务器已正确接收并保存!")
e.WriteString(sb.ToString)
End Select

计划管理

表事件

窗口表事件

窗口与控件事件

窗口1_Button1_Click

HttpServer.Prefixes.Add("http://127.0.0.1:8033/")
HttpServer.Start()

窗口1_Button2_Click

HttpServer.Close()

自定义函数

全局代码

菜单事件